VB如何使用ADO修改ACCESS数据

Question

想请教，如果数据库里不仅仅有一条数据，当数据库里有“材料名称”和“材料数量”两项内容，textbox1中的数据是名称，textbox2中的数据是数量，如何在access数据库中查找到textbox1中输入的名称的数据并使“材料数量”变为原数据减去textbox2中的数据？

Answer 1

Public dbConn As ADODB.Connection '定义一个ADODB连接
Public stuRs As ADODB.Recordset '定义Recordset对象
Public SqlFindStr As String

Public Function Conn2DB() As Boolean
'公共Access数据库连函数

Dim connStr As String
Dim dbName As String

dbName = App.Path & "\" & "StudentDB.mdb" '返回程序所在路径

' Access连接字符串
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName

Set dbConn = New ADODB.Connection '定义一个ADODB连接对象

If dbConn.State <> adStateOpen Then '判断ADODB连接是否打开
dbConn.Open conStr '如果不是打开状态 就打开连接
End If

Conn2DB = True
End Function

Public Function ExcSQL(ByVal sql As String) As ADODB.Recordset
Dim rst As ADODB.Recordset

'执行一条SQL查询,得到一个记录集
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), dbConn, adOpenKeyset, adLockOptimistic '得到记录

Set ExcSQL = rst
End Function
自己修改下