请问如何用ADO对数据库进行录入操作？

Question

Dim Cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\db1.mdb;"
With rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from 表名", Cnn1, , , adCmdText
End With
rst.addnew
rst.fileds("name").values=text1.text
......
rst.update

Answer 1

Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\db.mdb;"
With rs
    .LockType = adLockOptimistic
    .Open "select name , sex from 表名", Cnn
End With
rs.addnew
rs.fields("name")=textname.text
rs.fields("sex")=textsex.text
rs.update
可以的

Answer 2

如果你是一个较大的系统，建议你建立模块
程序：
Public Function DBConnect() As Boolean
    DBConnect = False
    
    On Error GoTo ErrHandler
    With g_Conn
       .ConnectionString = "你的连接字符串" 
     .CommandTimeout=15                                                  .CursorLocation=adUseClient                                         .IsolationLevel=adXactChaos                                         .Mode=adModeReadWrite                                               .Open
    End With
    
    DBConnect = True
    Exit Function
ErrHandler:
    MsgBox "打开数据库错误",vbOKOnly, "错误"
End Function再在你的FROM里面
dim sname as string
sname=txtname.text
rs.Open "select * from 你的表 where name='" & sname & "'", g_Conn, adOpenKeyset, adLockOptimistic
   If Not rs.EOF Then
        rs.Close
        MsgBox "关键字重复",vbOKOnly, "错误"
        Exit Sub
   End If    
    rs.AddNew
    rs.Fields("name") = sname
    rs.Fields("sex") = txtsex.Text
    rs.Update
    rs.Close
这样就可以了

Answer 3

str="insert into 你的表('a','b') values('"&txtname.text&"','"&txtsex.text&"') "
rs.open str,conn

Answer 4

请问如何用ado对数据进行修改和删除呢？