VB.NET数据库操作实战指南

3星 · 超过75%的资源需积分: 1 187 浏览量更新于2024-09-17 收藏 22KB TXT 举报

"这篇资源是关于VB.NET进行数据库操作的代码示例集合，适用于数据库的连接、删除、修改和查询等常见操作。" 在VB.NET中进行数据库操作，通常会用到ADO.NET（ActiveX Data Objects .NET）框架，这个框架提供了一套全面的类库，用于与各种数据源进行交互。在给定的代码中，我们可以看到以下几个关键知识点： 1. **数据库连接**： - 使用`System.Data.SqlClient.SqlConnection`类创建SQL Server数据库的连接。`GetConn`方法应该是返回数据库连接字符串的方法，它包含了服务器名称、数据库名、用户名和密码等信息。 2. **SQL查询构造**： - 代码展示了如何动态构建SQL查询语句。例如，`GetIntByStr`函数中，根据传入的参数构建了一个查询单个字段值的SQL语句，用于获取特定条件下的第一条记录。这涉及到字符串拼接，需要注意SQL注入的安全问题。 3. **命令对象（SqlCommand）**： - `System.Data.SqlClient.SqlCommand`类用于执行数据库查询或命令。在这个例子中，使用`New SqlCommand(queryString, sqlConnection)`实例化SqlCommand对象，并将SQL查询语句和数据库连接赋值给它。 4. **执行查询**： - `ExecuteScalar`方法用于执行SQL查询并返回查询结果的第一行第一列的值。如果查询没有结果，它会返回`DBNull.Value`，所以使用`IIf`函数来处理可能的`DBNull`值。 5. **异常处理**： - 使用`Try...Catch...Finally`语句进行异常处理，捕获执行过程中可能出现的异常，如`NotSupportedException`，并将异常信息重新抛出。 6. **数据库连接管理**： - 在查询执行前后，需要打开和关闭数据库连接，确保资源的正确释放。`sqlConnection.Close()`确保了操作完成后数据库连接的关闭。 7. **函数设计**： - 提供了`GetIntByStr`和`GetIntByInt`两个函数，分别处理字符串类型和整型参数的查询。它们都遵循相同的模式，但对参数类型进行了适配。通过这些示例，开发者可以学习到如何在VB.NET环境中高效地进行数据库操作，包括建立连接、执行查询、处理结果以及异常控制等核心步骤。这有助于开发者在实际项目中构建自己的数据库操作逻辑。

Imports System.Data
'引入数据库操作类命名空间
Imports System.Data.OleDb
'引入ADO.NET操作命名空间

Module ModSql

Function GetIntByStr(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As String) As Integer
Dim sqlConnection As New SqlClient.SqlConnection(GetConn)
Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where " & ParaName & "='" & ParaValue & "'"
Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
Dim rowsAffected As Integer = 0
sqlConnection.Open()
Try
rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)
Catch ex As Exception
Throw New NotSupportedException(ex.Message)
Finally
sqlConnection.Close()
End Try
Return rowsAffected
End Function
Function GetIntByInt(ByVal FieldName As String, ByVal TableName As String, ByVal ParaName As String, ByVal ParaValue As Integer) As Integer
Dim sqlConnection As New SqlClient.SqlConnection(GetConn)
Dim queryString As String = "select Top 1 " & FieldName & " from " & TableName & " where " & ParaName & "=" & ParaValue & ""
Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(queryString, sqlConnection)
Dim rowsAffected As Integer = 0
sqlConnection.Open()
Try
rowsAffected = IIf(IsDBNull(sqlCommand.ExecuteScalar), 0, sqlCommand.ExecuteScalar)