阅读量:0
在VB中,可以使用ADO.NET库来连接和查询数据库。下面是一个简单的示例,演示如何查询数据库并列出所有结果:
首先,确保你已经添加了对System.Data命名空间的引用。
接下来,使用以下代码连接到数据库并查询数据:
Imports System.Data.SqlClient Private Sub QueryDatabase() ' 数据库连接字符串 Dim connectionString As String = "Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码" ' 查询语句 Dim query As String = "SELECT * FROM 表名" ' 创建连接对象 Using connection As New SqlConnection(connectionString) ' 打开数据库连接 connection.Open() ' 创建命令对象 Using command As New SqlCommand(query, connection) ' 执行查询,并获取结果集 Using reader As SqlDataReader = command.ExecuteReader() ' 循环遍历结果集 While reader.Read() ' 读取每一行的数据 Dim value1 As String = reader.GetString(0) ' 假设第一列是字符串类型 Dim value2 As Integer = reader.GetInt32(1) ' 假设第二列是整数类型 ' 输出数据到控制台或界面 Console.WriteLine("Value 1: " & value1) Console.WriteLine("Value 2: " & value2) Console.WriteLine("---------") End While End Using End Using End Using End Sub
在上面的示例中,你需要替换以下部分:
数据库服务器地址
:数据库服务器的地址数据库名称
:要查询的数据库名称用户名
:用于连接数据库的用户名密码
:用于连接数据库的密码表名
:要查询的表名
你可以根据需要修改查询语句和读取的列的类型。
最后,调用 QueryDatabase
函数即可执行查询并列出所有结果。