在VB.NET中，查询数据库并获取数据是应用程序与数据存储交互的基本操作。这个过程涉及到连接数据库、执行SQL语句以及处理返回的结果集。下面将详细解释如何使用VB.NET来实现这个功能。
确保你已经安装了ADO.NET，它是.NET框架的一部分，提供了访问各种数据库的能力。ADO.NET的主要组件包括Connection（连接对象）、Command（命令对象）、DataAdapter（数据适配器）和DataSet（数据集）。在VB.NET中，这些组件被用来与数据库进行交互。
1. **建立数据库连接**：
在VB.NET中，使用`SqlConnection`类来建立与SQL Server数据库的连接。连接字符串包含了服务器名、数据库名、用户名和密码等信息。例如：
```vbnet
Dim connString As String = "Server=myServerAddress;Database=myDataBase;User Id=myUsername;Password=myPassword;"
Dim conn As New SqlConnection(connString)
```
连接字符串需要根据实际的数据库配置进行调整。
2. **创建Command对象**：
使用`SqlCommand`类来执行SQL查询或存储过程。在给定的代码中，`SqlCommand`对象的`CommandText`属性用于设置SQL查询语句。例如：
```vbnet
Dim sqlCmd As New SqlCommand(SqlStr, conn)
```
其中`SqlStr`是包含SQL查询的字符串。
3. **使用DataAdapter填充DataSet**：
`SqlDataAdapter`是数据访问的核心组件，它负责在数据库和内存中的数据之间传递数据。通过调用`Fill`方法，我们可以将数据库查询结果填充到一个`DataSet`对象中。在提供的代码中，`getConn`函数的实现如下：
```vbnet
Public Sub getConn(ByVal SqlStr As String, ByVal TableName As String)
Try
Dim objCommand As New SqlCommand(SqlStr)
Dim objDataAdapter As New SqlDataAdapter(objCommand)
Dim objDataSet As New DataSet()
objDataSet.Clear()
' 设置SqlCommand对象为DataAdapter的SelectCommand
objDataAdapter.SelectCommand = objCommand
' 填充DataSet
objDataAdapter.Fill(objDataSet, TableName)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
```
这里，`TableName`参数用于指定在`DataSet`中创建的表名，`Fill`方法将结果填充到名为`TableName`的表中。
4. **处理异常**：
上述代码中包含了异常处理，当执行过程中出现错误时，会显示一个消息框显示错误信息。在实际应用中，根据需求可能需要更详细的错误处理机制，如日志记录或用户友好的错误提示。
5. **关闭连接**：
记得在操作完成后关闭数据库连接以释放资源。这可以通过调用`SqlConnection`的`Close`或`Dispose`方法完成。
6. **使用查询结果**：
`DataSet`对象现在包含了从数据库中获取的数据。可以遍历`DataTable`，访问每一行和每一列的数据，如下所示：
```vbnet
For Each row As DataRow In objDataSet.Tables(TableName).Rows
Console.WriteLine("Column1: " & row("Column1").ToString() & ", Column2: " & row("Column2").ToString())
Next
```
VB.NET提供了强大的工具来处理数据库操作。通过`SqlConnection`、`SqlCommand`、`SqlDataAdapter`和`DataSet`，你可以方便地执行查询、更新、删除等操作，同时确保了数据的安全性和性能。理解并熟练运用这些组件是开发任何涉及数据库的VB.NET应用程序的基础。
