Question

我想退出数据并通过SQL查询在工作表中更新相同的数据。我得到了阵列变化的结果＆＃39;我＆＃39;但是没有结果可以改变数组＆＃39; j＆＃39;并且＆＃39; k＆＃39;。不确定出了什么问题。所有字段名称都是正确的。

我不确定我是否因为编码不足而得不到结果。

mrs.Open sSQLSting, Conn, 3, 1

完整编码

Dim ReturnArray
Dim Conn As New adodb.Connection
Dim mrs As New adodb.Recordset
Dim DBPath As String, sconnect As String
Dim sSQLSting As String

DBPath = ThisWorkbook.FullName

enter code here sconnect =＆＃34; Provider = Microsoft.ACE.OLEDB.12.0;＆＃34; ＆安培; ＆＃34;数据源=＆＃34; ＆安培; DBPath＆amp; ＆＃34 ;;＆＃34; ＆安培; ＆＃34;扩展属性=＆＃34;＆＃34; Excel 12.0; HDR = YES＆＃34;＆＃34 ;;＆＃34;

For i = 0 To com1 - 1
    For j = 0 To com2 - 1
        For k = 0 To com3 - 1
            Conn.Open sconnect
            sSQLSting = "SELECT * From [DataSheet$] where [Vertical]= '" & Sheets(1).ComboBox1.List(i) & "' and [Activities]= '" & Sheets(1).ComboBox3.List(k) & "'"
            mrs.Open sSQLSting, Conn, 3, 1
            ThisWorkbook.Sheets("Sheet4").Cells(za, 4).Value = mrs.RecordCount
            za = za + 1
            mrs.Close
            Conn.Close
        Next
    Next
Next

ADODB与Excel记录集

0 个答案: