用ado方式连接数据库,用adodc控件想做一个"修改"按钮,不知代码怎么写?

Question

用ado方式连接数据库,用adodc控件想做一个"修改"按钮,不知代码怎么写?
我试过可以直接在文本框中修改access数据库,我想用sql的updata方法,不知怎么写好,
怎么修改当前这个记录....请各位大俠不吝赐教....最好给点代吗..

Answer 1

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    '通过记录集修改
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    rs!ID = "编号"
    rs!Memo = "备注"
    rs.Update    '通过SQL语句修改    
    cn.Execute "UPDATE TABLENAME SET Memo = '"  & txtMemo.text & "' WHERE NAME = '" & txtName.text & "'"
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 2

请问我这样可以吗?
Adodc1.RecordSource = "UPDATE inftable SET sname = '" & txtname.Text & "' WHERE sno ='a0002'"