VB.NET连接数据库教程：初学者源代码示例

"这篇资源是关于使用VB.NET连接数据库的基础教程，主要涉及如何建立数据库连接字符串，打开连接，执行查询，以及使用DataReader读取数据。示例代码使用了SQL Server数据库，并展示了验证登录账户和查询数据的过程。" 在VB.NET中，连接到数据库通常涉及到以下几个关键步骤： 1. **创建连接字符串**： 连接字符串是数据库连接的核心，它包含了服务器名称、数据库名称、用户名、密码等信息。例如： ```vbnet Dim str As String = "Server=localhost;Database=數據庫名稱;User Id=帳戶名稱;Password=密碼;Integrated Security=SSPI;" ``` 其中，`Server`指定了数据库服务器的位置，`Database`是你要连接的数据库名称，`User Id`和`Password`是认证身份的凭据，`Integrated Security`用于指定是否使用Windows身份验证（本例使用了SSPI，即Windows身份验证）。 2. **建立数据库连接**： 使用`SqlConnection`类创建一个数据库连接对象： ```vbnet Dim conn As SqlConnection = New SqlConnection(str) ``` 这里的`str`就是上一步创建的连接字符串。 3. **打开数据库连接**： 调用`Open()`方法来建立实际的连接： ```vbnet conn.Open() ``` 4. **执行SQL查询**： 创建一个`SqlCommand`对象来执行SQL命令，例如查询所有数据： ```vbnet Dim str1 As String = "select * from 表名" Dim cmd As OleDbCommand = New OleDbCommand(str1, conn) ``` 5. **获取数据**： 使用`ExecuteReader()`方法从命令对象获取一个`OleDbDataReader`，它可以按行读取数据： ```vbnet Dim dreader As OleDbDataReader = cmd.ExecuteReader() ``` 6. **处理查询结果**： `OleDbDataReader`提供了一种流式访问数据的方式。可以遍历每一行数据并读取各列： ```vbnet Do While dreader.Read() ' 例如，假设我们有"供應商"、"聯絡人"和"地址"三列 TextBox1.Text &= dreader.Item("供應商") & vbTab & dreader.Item("聯絡人") & vbTab & dreader.Item("地址") & vbNewLine Loop ``` 在这里，`Read()`方法会返回一个布尔值，表示是否有更多的记录。`Item()`方法则用于访问数据列。 7. **关闭连接**： 当不再需要数据库连接时，应关闭以释放资源： ```vbnet Conn.Close() Dreader.Close() ``` 这个例子中还展示了一种获取表结构的方法，通过`GetSchemaTable()`方法可以获取到关于查询结果列的信息，这对于动态编程或显示列名很有帮助。 注意：在实际应用中，为了安全性和最佳实践，你应该考虑使用`using`语句块来自动管理数据库连接和相关的对象，这样即使发生异常也能确保资源被正确释放。此外，密码和其他敏感信息通常不直接写入代码，而是存储在配置文件或环境变量中。