VB.Net/Database ADO.net/Fill DataSet — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
Fill data into DateSet
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Data.SqlClient
Public Class MainClass
Shared Dim WithEvents con As SqlConnection Shared Sub Main() con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") " Create the command object Dim str As String = "SELECT ID, FirstName, LastName FROM Employee" Dim cmd As New SqlCommand(str, con) Dim da As New SqlDataAdapter(cmd) Dim ds As New DataSet() da.Fill(ds, "Employee") Dim dc As DataColumn For Each dc In ds.Tables(0).Columns Console.Write("{0,15}", dc.ColumnName) Next Console.Write(vbCrLf) Dim dr As DataRow For Each dr In ds.Tables(0).Rows Dim i As Integer For i = 1 To ds.Tables(0).Columns.Count Console.Write("{0,15}", dr(i - 1)) Next i Console.Write(vbCrLf) Next End Sub
End Class
</source>