如何使用ado实现update等查询.txt

VB技巧问答10000例 VB技巧问答10000例

ADODB.Command对 象 就 是 用 来 执 行 UPDATE等 SQL查 询 语 句 的 ， 类 似 于 DAO的 Execute方 法 。 例 如 ： 
    Dim cmd As ADODB.Command 
    Dim strOldCity As String 
    Dim strNewCity As String 
    Dim lngRecs As Long 
     
    Set cmd = New ADODB.Command 
     
    cmd.ActiveConnection = _ 
     "Provider = Microsoft.Jet.OLEDB.3.51; " & _ 
     "Data Source=" & App.Path & "\Mydb.mdb" 
    cmd.CommandText = _ 
     "UPDATE tblCustomer SET City = ? WHERE City = ?" 
     
    strOldCity = InputBox( _ 
     Prompt := "请 输 入 要 替 换 的 城 市 名 ") 
    strNewCity = InputBox( _ 
     Prompt := "请 输 入 新 城 市 名 ") 
    cmdExecute _ 
     lngRecs, Arrray(strNewCity, strOldCity), adCmdText) 
    MsgBox "有 " & lngRecs & "条 记 录 被 修 改 。 " 
<END>