在VB中读取SQL数据库数据可以使用ADO.NET技术。以下是一个简单示例代码：
- 引用System.Data.SqlClient命名空间
Imports System.Data.SqlClient
- 创建数据库连接对象并打开连接
Dim connStr As String = "Data Source=myServerAddress;Initial Catalog=myDatabase;User ID=myUsername;Password=myPassword;"
Dim conn As New SqlConnection(connStr)
conn.Open()
- 创建SQL查询语句并执行
Dim query As String = "SELECT * FROM myTable"
Dim cmd As New SqlCommand(query, conn)
Dim reader As SqlDataReader = cmd.ExecuteReader()
- 读取数据
While reader.Read()
Dim value1 As String = reader("column1").ToString()
Dim value2 As Integer = CInt(reader("column2"))
'处理读取到的数据
End While
- 关闭连接和释放资源
reader.Close()
conn.Close()
conn.Dispose()
以上示例代码演示了如何连接到数据库，执行查询语句并读取数据。在实际应用中，可以根据具体需求修改查询语句和处理读取数据的逻辑。
