vb6.0怎么接数据保存到数据库中

往aa。mdb数据库里的ss表的x列添加text1里的内容

Dim conn As New ADODB.Connection

Private Sub form_load()

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Persist Security Info=FalseData Source=" &App.Path &"\aa.mdb", "admin"

Command1.Caption = "保存"

End Sub

Private Sub command1_click()

conn.Execute "insert into ss (x) values ('" &Text1.Text &"')"

End Sub

修改回答

如果错误在 rsServer.Update之前的话 那么应该是Update某一个字段值为空值且你数据库的字段定义为不允许空值

建议你在上传前用isnull判断是不是空值

        With rs

        If MsgBox("确定删除此行吗？" & vbNewLine & _

            .Fields(0) & ", " & .Fields(1), vbYesNo) = vbYes Then

            If Not (.EOF Or .BOF) Then .Delete  ’删除记录

        End If

        End With Update 方法 (ADO)

保存对 Recordset 对象的当前记录所做的所有更改。

语法

recordset.Update Fields, Values

参数

Fields   可选。变体型，代表单个名称；或变体型数组，代表需要修改的字段（单个或多个）名称或序号位置。

Values   可选。变体型，代表单个值；或变体型数组，代表新记录中字段（单个或多个）值。

说明

使用 Update 方法保存自从调用 AddNew 方法，或自从现有记录的任何字段值发生更改之后，对 Recordset 对象的当前记录所作的所有更改。Recordset 对象必须支持更新。

要设置字段值，请进行下列某项 *** 作：

给 Field 对象的 Value 属性赋值并调用 Update 方法。

传送字段名和值作为 Update 调用的参数。

将字段名数组和值数组传送给 Update 调用。

在使用字段和值数组时，两个数组中必须有相等数量的元素，同时字段名的次序必须与字段值的次序相匹配。字段和值的数量及次序不匹配将产生错误。

如果 Recordset 对象支持批更新，那么可以在调用 UpdateBatch 方法之前将一个或多个记录的多个更改缓存在本地。如果在调用 UpdateBatch 方法时正在编辑当前记录或者添加新记录，那么 ADO 将自动调用 Update 方法，以便在批更改传送到提供者之前将所有挂起的更改保存到当前记录。

如果在调用 Update 方法之前移动出正在添加或编辑的记录，那么 ADO 将自动调用 Update 以便保存更改。如果希望取消对当前记录所做的所有更改或者放弃新添加的记录，则必须调用 CancelUpdate 方法。

调用 Update 方法后当前记录仍为当前状态。

---