求教ODBC的UPDATE问题

microyip

如图，想将数据库里的”字段1“与表格对应的数据的”字段1“相同的，数据库对应的那条记录的”字段2“全部设为”ABC“

Function Excel_SQL()
'本例，数据库须存在GA_2016库，数据表SQLDB，并包含“字段1、字段2、字段3、字段4”
    Dim sSQL_Server As String
    Dim sSQL_Password As String
    Dim sDB_Name As String
    Dim sDBFormName As String
    Dim aExcel_Conn As ADODB.Connection
    Dim sSQL_Conn As String
    Dim sSQL_Case As String

    Application.ScreenUpdating = False
    sSQL_Server = "192.168.1.229"
    sSQL_Password = "RuningTime"

    sDB_Name = "GA_2016"
    sDBFormName = "SQLDB"

    Set aExcel_Conn = CreateObject("Adodb.Connection")
    aExcel_Conn.ConnectionString = _
        "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
    aExcel_Conn.Open
    sSQL_Conn = _
        "[ODBC;Driver={SQL Server};Server=" & sSQL_Server & ";Database=" & sDB_Name & ";UID=sa;PWD=" & sSQL_Password & ";]"

    sSQL_Case = "Insert Into " & sSQL_Conn & "." & sDBFormName & " Select * From [测试数据表$K1:N10] As R Where R.字段3<>'ExcelDB.3'"
    aExcel_Conn.Execute sSQL_Case
'Insert Into 语句执行正常

    sSQL_Case = "Select * From " & sSQL_Conn & "." & sDBFormName
    [测试数据表!U2].CopyFromRecordset aExcel_Conn.Execute(sSQL_Case)
'Select 语句执行正常

    sSQL_Case = "Update " & sSQL_Conn & "." & sDBFormName & " As W ,[测试数据表$K1:N9] As R Set W.字段2='ABC' Where W.字段1=R.字段1"
    sSQL_Case = "Update " & sSQL_Conn & "." & sDBFormName & " As W ,[测试数据表$K1:N9] As R Set W.字段2='ABC' Where W.字段1='aa'"
    Debug.Print sSQL_Case
    aExcel_Conn.Execute sSQL_Case
'无论哪句的Update 语句都无法执行

    aExcel_Conn.Close
    Set aExcel_Conn = Nothing
    Application.ScreenUpdating = True
End Function


求指正

microyip

我的问题真这么难么？看都有几十个人看，就是没人可以帮忙解决？

microyip

把分类改成求助，不知道有没有贵人帮助

microyip

有没有贵人出现啊？自顶一下，希望来个贵人

microyip

zoujialing 发表于 2016-3-9 16:15
你有没有试过反过来把connecting string改成SQL server的，然后在SQL string语句里加excel的连接参数，比如 ...

反过来试了，结果也是不行。感觉除了Update之外，其余的语句都能正常运行的

microyip

zoujialing 发表于 2016-3-9 16:15
你有没有试过反过来把connecting string改成SQL server的，然后在SQL string语句里加excel的连接参数，比如 ...

自此先谢过，感谢你给了我回复。现在能不能请求你，在你那里随便建个数据库，然后测试可以后，发附件给我，我自己可以参考修改的

microyip

fox_9741 发表于 2016-3-9 18:31
[测试数据表$K1:N9]
数据集可以支持这个一次更新多行的操作模式？
虽然有不循环直接从表格更新数据库的方 ...

这个是可以的

microyip

zoujialing 发表于 2016-3-9 18:24
我这边没有SQL server的，都是access的.
https://www.connectionstrings.com/microsoft-ole-db-provider-f ...

首先要多谢你提供的信息，并且要夸你，全部是鸡肠，你都看懂，好腻害啊你！点赞
接着告诉你，这个信息没用-_-!

microyip

唯有自顶来增加曝光率，看看哪位高手肯出手解决

microyip

见到有大师讲授ADO，于是又自顶一下自己的问题，以求曝光率