'* Sub ReadData
'* 参数1: myConnString [String] IN 连接字符串
'* 参数2: strOrderID [String] IN OrderID主键
'* 提取这一行中的其他数据,只在控制台显示,可根据需要返回结果集
'* 根据OrderID查询。
Public Sub ReadData(ByVal myConnString As String, ByVal strOrderID As String)
'拼接查询字符串,查询此OrderID所属的客户
Dim mySelectQuery As String = "SELECT OrderID, Customer FROM Orders WHERE OrderID='" & strOrderID & "'"
'创建数据库连接对象,不同数据库不同。以下针对SqlServer.
Dim myConnection As New SqlConnection(myConnString)
'创建数据库操作类
Dim myCommand As New SqlCommand(mySelectQuery, myConnection)
'操作需要打开数据库连接
myConnection.Open()
Dim myReader As SqlDataReader = myCommand.ExecuteReader()
Try
While myReader.Read()
Console.WriteLine((myReader.GetInt32(0).ToString & ", " & myReader.GetString(1)))
End While
Finally
' always call Close when done reading.
myReader.Close()
' always call Close when done reading.
myConnection.Close()
End Try
End Sub 'ReadData
'* Sub UpdateCustomer
'* 参数1: myConnString [String] IN 连接字符串
'* 参数2: strOrderID [String] IN OrderID主键
'* 参数3: strCustomer [String] IN 要修改的用户名
Public Sub UpdateCustomer(ByVal myConnString As String, ByVal strOrderID As String, ByVal strCustomer As String)
'拼接查询字符串,修改此OrderID所属的客户
Dim mySelectQuery As String = "Update Orders set Customer ='" & strCustomer & "' WHERE OrderID='" & strOrderID & "'"
'创建数据库连接对象
Dim myConnection As New SqlConnection(myConnString)
'创建数据库操作类
Dim myCommand As New SqlCommand(mySelectQuery, myConnection)
'操作需要打开数据库连接
myConnection.Open()
Try
'执行更新数据库操作
myCommand.ExecuteNonQuery()
Catch ex As Exception