VB+ado+Access如何数据修改
我把用adodc1绑定了表Case，并在窗体中用几个Text跟表Case中的对应字段相绑定，我现在想直接通过修改Text(i).text来修改数据库表Case中的记录，问该如何修改，大侠们可否提供一下建议，并帮忙看看我的问题出在哪儿
Private Sub EditSaveCmd_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "修改成功！"
Text1.SetFocus
End Sub
修改Text(i)中的内容后，要两次点击改修改保存按钮后才能更新保存记录。应该怎么办才能一次点击改按钮就能立刻更新和保存修改记录呢？感激不尽
在线求教
[解决办法]
应该比较简单，只是没看到代码还不太清楚；你可以用ado方式打开数据库，然后用text(i).text=rs!字段名 显示数据库，用rs!字段名=text(i).text rs.update更新数据
[解决办法]
感觉ADO控件很不好用，用ADODB连接也很方便啊
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
这是我的收藏啊，贡献了，用这个更方便一点
