ADO如何修改数据库内容？

Question

如题

Answer 1

Option Explicit
Private conn1 As ADODB.ConnectionPrivate Sub Command2_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
dbfilename = "F:\csdn_vb\database\listbox\article1.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectString
conn1.execute "update mz set mc='aa' where id=1"
End Sub

Answer 2

连接数据库后
  用.move方法指到要修改的记录
  然后直接给字段赋值就可以
  最后用.update更新数据库
 如：
   Dim objCn As New Connection
   Dim objRs As New Recordset
   Dim strCn As String, strSQL As String
    strSQL = "SELECT * FROM Item"
    Set objRs = New ADODB.Recordset
    With objRs
    .ActiveConnection = objCn
    .LockType = adLockOptimistic
    .Open (strSQL)
       For i = 1 To ListView1.ListItems.Count
         .AddNew
         .Fields("消费项目表号") = Label5.Caption
         .Fields("项目序号") = ListView1.ListItems(i).Text
         .Fields("产品编号") = ListView1.ListItems(i).SubItems(1)
         .Fields("产品名称") = ListView1.ListItems(i).SubItems(2)
         .Fields("产品单价") = ListView1.ListItems(i).SubItems(3)
         .Fields("数量") = ListView1.ListItems(i).SubItems(4)
         .Fields("备注") = Text3.Text
       Next
         .Update
     .Close
     End With

Answer 3

也可在连接后直接用 sql语句
如: 
cn.execute "update ..."
cn.execute "delete ..."
cn.execute "insert into ..."

Answer 4

Public CN   As New ADODB.Connection '定义数据库的连接
Public RS  As New ADODB.Recordset'定义Recoedset
Public AppPathAppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path + "\")  CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + AppPath + "DataBase.MDB;Persist Security Info=False"
  CN.Mode = adoReadWrite '默认打开模式是只读的
  CN.OpenRS.Open "select * from Table ", CN, adOpenDynamic, adLockBatchOptimistic
'Edit
RS![Field] = "Strings"
RS.UpdateBatch
RS.CloseRS.Open "select * from Table ", CN, adOpenDynamic, adLockBatchOptimistic
'Addnew
RS.AddNew
RS![Field] = "Strings"
RS.UpdateBatch
RS.Close

Answer 5

Public CN   As New ADODB.Connection '定义数据库的连接
Public RS  As New ADODB.Recordset
dim sql As String 
Public AppPath
AppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path + "\")
  CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + AppPath + "DataBase.MDB;Persist Security Info=False"
  CN.Mode = adoReadWrite '默认打开模式是只读的
  CN.Open
sql = "update tablename set col='常量' id = ''"
rs.open sql,cn,1,1 或者 cn.excute sql我认为好好看看书吧！