Software Development Network>> Visual Basic>> create sql table in vb.net code
a.s.viswa,
Please try the following code:
Private Sub BuildDataSet()
Dim objDS As New Data.DataSet("CustomerOrders")
Dim dtCustomers As Data.DataTable = objDS.Tables.Add("Customers")
Dim dtOrders As Data.DataTable = objDS.Tables.Add("Orders")
Dim objDR As Data.DataRow
With dtCustomers
.Columns.Add("CustomerID", Type.GetType("System.Int32"))
.Columns.Add("FirstName", Type.GetType("System.String"))
.Columns.Add("LastName", Type.GetType("System.String"))
.Columns.Add("Phone", Type.GetType("System.String"))
.Columns.Add("Email", Type.GetType("System.String"))
End With
With dtOrders
.Columns.Add("OrderID", Type.GetType("System.Int32"))
.Columns.Add("OrderAmount", Type.GetType("System.Double"))
.Columns.Add("OrderDate", Type.GetType("System.DateTime"))
objDS.Relations.Add("r_Customers_Orders", _
objDS.Tables("Customers").Columns("CustomerID"), _
objDS.Tables("Orders").Columns("CustomerID"))
objDR = dtCustomers.NewRow()
objDR("CustomerID") = 1
objDR("FirstName") = "Miriam"
objDR("LastName") = "McCarthy"
objDR("Phone") = "555-1212"
objDR("Email") = "tweety@hotmail.com"
dtCustomers.Rows.Add(objDR)
objDR = dtOrders.NewRow()
objDR("OrderID") = 22
objDR("OrderAmount") = 0
objDR("OrderDate") = #11/10/1997#
dtOrders.Rows.Add(objDR)
Console.WriteLine(objDS.GetXml())
End Sub
Hi
Sorry but I still do not understand what you are looking for.
Do you want to create a table in an application written in VB.NET but not in a database
Do you mean you want to create a temporary in-memory data table
Do you mean that you want to create a table in a database that is not SQL Server. If so, which database are you using
Richard
Do you want the TSQL ddl statement for creating a table (temp or perm) or are you looking for the code to create a connection and issue a command
create sql table in vb.net code
Roberto Collina
yes.create a table in an application written in VB.NET but not in a database.
but store in sql server 2000 or 2005.
nhaas
a.s.viswa,
Please try the following code:
Private Sub BuildDataSet()
Dim objDS As New Data.DataSet("CustomerOrders")
Dim dtCustomers As Data.DataTable = objDS.Tables.Add("Customers")
Dim dtOrders As Data.DataTable = objDS.Tables.Add("Orders")
Dim objDR As Data.DataRow
With dtCustomers
.Columns.Add("CustomerID", Type.GetType("System.Int32"))
.Columns.Add("FirstName", Type.GetType("System.String"))
.Columns.Add("LastName", Type.GetType("System.String"))
.Columns.Add("Phone", Type.GetType("System.String"))
.Columns.Add("Email", Type.GetType("System.String"))
End With
With dtOrders
.Columns.Add("CustomerID", Type.GetType("System.Int32"))
.Columns.Add("OrderID", Type.GetType("System.Int32"))
.Columns.Add("OrderAmount", Type.GetType("System.Double"))
.Columns.Add("OrderDate", Type.GetType("System.DateTime"))
End With
objDS.Relations.Add("r_Customers_Orders", _
objDS.Tables("Customers").Columns("CustomerID"), _
objDS.Tables("Orders").Columns("CustomerID"))
objDR = dtCustomers.NewRow()
objDR("CustomerID") = 1
objDR("FirstName") = "Miriam"
objDR("LastName") = "McCarthy"
objDR("Phone") = "555-1212"
objDR("Email") = "tweety@hotmail.com"
dtCustomers.Rows.Add(objDR)
objDR = dtOrders.NewRow()
objDR("CustomerID") = 1
objDR("OrderID") = 22
objDR("OrderAmount") = 0
objDR("OrderDate") = #11/10/1997#
dtOrders.Rows.Add(objDR)
Console.WriteLine(objDS.GetXml())
End Sub
gafferuk
Hi
Sorry but I still do not understand what you are looking for.
Do you want to create a table in an application written in VB.NET but not in a database
Do you mean you want to create a temporary in-memory data table
Do you mean that you want to create a table in a database that is not SQL Server. If so, which database are you using
Richard
data_architect
I am using visual basic .net application,
that vb.net generate a code for create a sql table .
i am creating vb.net only not for sql server.
please help me.
leonreet
Hi
Do you want the TSQL ddl statement for creating a table (temp or perm) or are you looking for the code to create a connection and issue a command
Richard