心情

SqlClient
[Visual Basic]

Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports Microsoft.VisualBasic

Public Class Sample Public Shared Sub Main()  

 Dim nwindConn As SqlConnection = New SqlConnection("Data Source=localhost;" 

_    "Integrated Security=SSPI;Initial Catalog=northwind")  

Dim catCMD As SqlCommand = nwindConn.CreateCommand()   catCMD.CommandText = "SELECT CategoryID, CategoryName FROM Categories"   nwindConn.Open()  

Dim myReader As SqlDataReader = catCMD.ExecuteReader()

 Do While myReader.Read()    

    Console.WriteLine(vbTab & "{0}" & vbTab & "{1}", myReader.GetInt32(0),          myReader.GetString(1))

  Loop  

 myReader.Close()  

 nwindConn.Close()

End Sub

End Class