vb6.0如何用代码实现往access中添加字段的数据？请高手解答，代码要详细。

Question

我用vb6.0实现了连接access功能，但是不会往数据库中保存手动输入的数据。手动输入是写在textbox上的，如何将写入的东西直接通过代码保存到数据库中。望详尽一些，不胜感激

Answer 1

Private Sub cmdOK_Click()
'定义一个结果集
Dim rs As New ADODB.Recordset

'如果结果集的状态为打开，那么就关闭
If (rs.State = adStateOpen) Then
rs.Close
End If

'打开结果集
'aa是你要插入数据的表，cn是你建立与ACCESS数据库建立的连接
rs.Open "select * from tbl_aa ", cn, adOpenDynamic, adLockOptimistic, adCmdText
'新增
rs.AddNew
'为所要新增的字段赋值。（rs!姓名）中的“姓名”是数据表中的某个具体字段名
rs!姓名 = Trim(TextBox.text)
'更新一下
rs.Update
'关闭结果集
rs.Close
End Sub

注： 以上是对新增数据操作最简单有效的方法。

如果你想修改数据：
'定义一个结果集
Dim rs As New ADODB.Recordset

'如果结果集的状态为打开，那么就关闭
If (rs.State = adStateOpen) Then
rs.Close
End If

'打开结果集。 注：此SQL语句查询出来的结果只可以有一条数据。
rs.Open "select * from tbl_aa where id = 1 ", cn, adOpenDynamic, adLockOptimistic, adCmdText
'为所要修改的字段赋值。（rs!姓名）中的“姓名”是数据表中的某个具体字段名
rs!姓名 = Trim(TextBox.text)
'更新一下
rs.Update
'关闭结果集
rs.Close

这样就能完成修改了

希望我的答案能帮到你。