VB怎么通过command和text来修改access数据库你想要修改一条数据

Dim cn As New ADODBConnection'定义连接

Dim Rs As New ADODBRecordset'定义记录集

Private Sub Form_Load()'初始化

cnOpen "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\1mdb;Persist Security Info=False"'连接ACC数据库

RsOpen "select test from test1", cn, adOpenKeyset, adLockOptimistic'打开记录集其中：test为字段名test1为表名，这后面最好是跟着条件，因为不知道你要什么条件以及数据库是什么样的，所以就没写

Text1 = Rs(0)'Text1显示Rs记录集中的第一个字段

End Sub

Private Sub Command1_Click()

Set Rs = cnExecute("update test1 set test='" & Text1 & "'")'将表test1的字段test修改为Text1中的数据。

End Sub

希望能帮到你！

试编写代码如下：

Private Sub Command1_Click()

    Dim db As New ADODBConnection

    Dim RS As New ADODBRecordset

    Dim sql As String 'SQL字符串

    

    dbConnectionString = "provider=MicrosoftJetOLEDB40;Data source =D:\Projects\temp\datamdb" '数据库连接

    dbOpen '打开数据库

        

    sql = "UPDATE [user] SET Sl=Sl-" & Text1Text & " WHERE Xm='张三';"

    

    RSOpen sql, db, 1, 3

    

    Set db = Nothing

    Set RS = Nothing

End Sub

运行截图：

Try

objconnOpen()

Dim dt As New DataTable

Dim strsql = "select from Info"

objadapSelectCommand = New OleDbOleDbCommand(strsql, objconn)

objadapFill(objDSet, "Info")

objDSetClear()

Dim cmdbuilder As New OleDbOleDbCommandBuilder(objadap)

objadapUpdateCommand = cmdbuilderGetUpdateCommand()

‘此处修改数据

objadapUpdate(objDSetTables("Info"))

objconnClose()

MsgBox("保存成功", , "提示") '

Catch ex As Exception

MsgBox(ErrDescription, MsgBoxStyleCritical, ErrNumber)

End Try

添加： ’下面这句连接数据库指定表的所有字段 Adodc1RecordSource = "select from 库存表" ’下面这句添加记录 Adodc1RecordsetAddNew 下面4句就是通过4个TEXTBOX控件输入字段的数据，如果是数字类型可以加VAL Adodc1RecordsetFields

以上就是关于VB怎么通过command和text来修改access数据库你想要修改一条数据全部的内容，包括:VB怎么通过command和text来修改access数据库你想要修改一条数据、VB如何使用ADO修改ACCESS数据、VB.NET用UpdateCommand更新数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！