Scribd
Upload
56 views3 pages

NVARCHAR Usage in Student Table Creation

The document defines a student table in SQL Server with fields for roll number, name, and course. It inserts sample records for two students. It then defines a Windows form application in Visual Basic that exports the student data to an XML file, reads the XML file, and displays it in a list box and datagrid. The application also connects to the SQL Server database, retrieves the student data, exports it to another XML file, and displays it in the datagrid.

Uploaded by

supriya028
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
56 views3 pages

NVARCHAR Usage in Student Table Creation

The document defines a student table in SQL Server with fields for roll number, name, and course. It inserts sample records for two students. It then defines a Windows form application in Visual Basic that exports the student data to an XML file, reads the XML file, and displays it in a list box and datagrid. The application also connects to the SQL Server database, retrieves the student data, exports it to another XML file, and displays it in the datagrid.

Uploaded by

supriya028
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

CREATE TABLE [dbo].

[student]
(
[rollno] INT NOT NULL PRIMARY KEY,
[sname] NVARCHAR(50) NULL,
[course] NVARCHAR(50) NULL
)
INSERT INTO [dbo].[student] ([rollno], [sname], [course]) VALUES (1, N'murari', N'MCA')
INSERT INTO [dbo].[student] ([rollno], [sname], [course]) VALUES (2, N'krishna', N'MCA')

Imports [Link]
Imports [Link]
Imports [Link]
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim writer As New XmlTextWriter("f:\[Link]", [Link].UTF8)
[Link](True)
[Link] = [Link]
[Link] = 2
[Link]("StudentInfo")
createNode(1, "Pinki", "85", writer)
createNode(2, "chinki", "56", writer)
createNode(3, "pankaj", "89", writer)

createNode(4, "surendra", "95", writer)


[Link]()
[Link]()
[Link]()
End Sub
Private Sub createNode(ByVal sID As String, ByVal sName As String, ByVal smarks As String,
ByVal writer As XmlTextWriter)
[Link]("student")
[Link]("rollno")
[Link](sID)
[Link]()
[Link]("sname")
[Link](sName)
[Link]()
[Link]("marks")
[Link](smarks)
[Link]()
[Link]()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
Dim xmldoc As New XmlDataDocument()
Dim xmlnode As XmlNodeList
Dim i As Integer
Dim str As String = ""
Dim fs As New FileStream("f:\[Link]", [Link], [Link])
[Link](fs)
xmlnode = [Link]("student")
For i = 0 To [Link] - 1
xmlnode(i).[Link](0).[Link]()
str = xmlnode(i).[Link](0).[Link]() & " " &
xmlnode(i).[Link](1).[Link]() & " " &
xmlnode(i).[Link](2).[Link]()
[Link](str)
Next
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As
DataGridViewCellEventArgs) Handles [Link]
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
Dim connetionString As String
Dim connection As SqlConnection
Dim adapter As SqlDataAdapter
Dim ds As New DataSet
Dim sql As String
connetionString = "Data Source=(localdb)\MSSQLLocalDB;Initial
Catalog=demo1db;Integrated Security=True;Connect
Timeout=30;Encrypt=False;TrustServerCertificate=True;ApplicationIntent=ReadWrite;MultiSubnet
Failover=False"
connection = New SqlConnection(connetionString)
sql = "select * from student"

Try
[Link]()
adapter = New SqlDataAdapter(sql, connection)
[Link](ds)
[Link]()
[Link]("f:\[Link]")
[Link] = [Link](0)
[Link]()
MsgBox("Done")
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
End Class

You might also like