以下代码列表演示如何使用 ADO.NET 数据提供程序从数据库中检索数据.数据在一个 DataReader 中返回.有关更多信息,请参见使用 DataReader 检索数据 (ADO.NET). SqlClient
此示例中的代码假定您可以连接到 Microsoft SQL Server 7.0 或更高版本上的 Northwind 示例数据库.ADO.NET 数据在此情形 5 中,示例代码创建一个 SqlCommand 以从 Products 表中选择行,并添加 SqlParameter 来将结果限制为其 UnitPrice 大于指定参数值的行.
SqlConnection 在 using 块内打开,这将确保在代码退出时会关闭和释放资源.示例代码使用 SqlDataReader 执行命令,ADO.NET 数据并在控制台窗口中显示结果.此示例中的代码假定您可以连接到 Microsoft Access Northwind 示例数据库.
在此情形 5 中,示例代码创建一个ADO.NET 数据 OleDbCommand 以从 Products 表中选择行,并添加 OleDbParameter 来将结果限制为其 UnitPrice 大于指定参数值的行.OleDbConnection 在 using 块内打开,这将确保在代码退出时会关闭和释放资源.示例代码使用 OleDbDataReader 执行命令,并在控制台窗口中显示结果.
Option Explicit On
Option Strict On
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Program
Public Shared Sub Main()
Dim connectionString As String = GetConnectionString()
Dim queryString As String = _ “SELECT CategoryID, CategoryName FROM dbo.Categories;”
Using connection As New SqlConnection(connectionString)
Dim command As SqlCommand = connection.CreateCommand()
command.CommandText = queryString Try
connection.Open()
Dim dataReader As SqlDataReader = _ command.ExecuteReader()
Do While dataReader.Read()
Console.WriteLine(vbTab & “{0}” & vbTab & “{1}”, _ dataReader(0), dataReader(1))
Loop
dataReader.Close()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Using
End Sub
Private Shared Function GetConnectionString() As String
' To avoid storing the connection string in your code,
' you can retrieve it from a configuration file.
Return “Data Source=(local);Initial Catalog=Northwind;” _ & “Integrated Security=SSPI;”
End Function
End Class