VBA中如何使用sql的update语句

王南宁

  各位大神晚上好，小弟想请教一个问题，就是如何在Excel内部使用sql中的update语句，来对指定工作表的某一列进行更新，如下图这个学生表

我想把学生姓名为"D"更新成”dd"，我的代码如下，请各位大神指正
Sub 更新()
Dim ADO As Object, sql代码, 连接字符串 As String, arr
  Set ADO = CreateObject("ADODB.connection") '创建ADO对象
    Select Case Application.Version * 1 '判断Excel的版本号
     Case Is <= 11: 连接字符串 = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Imex=0;Hdr=Yes';Data source=" & ThisWorkbook.FullName '如果是03版本
      Case Is >= 12: 连接字符串 = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;IMEX=1';Data Source=" & ThisWorkbook.FullName '如果是07或者07版本以上
       End Select
        ADO.Open 连接字符串   '通过ADO打开数据库连接
         sql代码 = "update [学生表$] set 姓名=""dd"" where 姓名=""D""" '设置sql语句(注意在VBA中使用引号记得要加上双引号)"
         MsgBox sql代码
       ADO.Execute (sql代码) '利用connection对象的Execute方法执行sql语句,并把结果输出到B2单元格
  ADO.Close '关闭数据库连接
End Sub

王南宁

请各位大神指正啊

王南宁

在线急等啊

zhaogang1960

IMEX=0

或者不要这个参数，直接'Excel 12.0;HDR=Yes'

王南宁

成功了，谢谢赵老师

ning84

王南宁 发表于 2015-8-19 22:13
成功了，谢谢赵老师

谢谢你的示例，学习了UpDate

1. Sub L()
   
2. Dim ADO As Object, sql代码, 连接字符串 As String, arr
   
3.   Dim Cn As ADODB.Connection
   
4.   Dim Rst As ADODB.Recordset
   
5.   Dim CnStr, SqlStr
   
6.      Set Cn = New ADODB.Connection
   
7.      Select Case Application.Version
   
8.            Case Is <= 11
   
9.                  CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Imex=0;Hdr=Yes';Data source=" & ThisWorkbook.FullName '03版本
   
10.            Case Is >= 12
    
11.                  CnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;IMEX=0';Data Source=" & ThisWorkbook.FullName '07或者07版本以上
    
12.        End Select
    
13.        Cn.Open CnStr   'Connect Ado DataBase
    
14.        SqlStr = "update [Sheet2$] set A=""Repl Cell"" where C=""CC6""" 'Set sql (Note, use """" in VBA)"
    
15.          Debug.Print SqlStr
    
16.        Set Rst = Cn.Execute(SqlStr) 'Execute sql
    
17.        Cn.Close 'Close DataBase Connection
    
18. End Sub
    

复制代码