如何将ado查询结果赋值给数组

lmy945150

以下是读取excle数据
Range("A2:L5000").ClearContents
    Dim cnn As Object, rs As Object, SQL$
    a = Range("e50000").End(xlUp).Row() + 1
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.Ace.Oledb.12.0;Extended Properties =Excel 20.0;Data Source =\\njxr\财务共享\孩子王验收\2022年11月孩子王验收记录.xlsm"
    SQL = "select '未验收'as 类型,日期,发货单号,客户编码,客户,备注,订单号,编码,货物,数量,单价,金额 FROM [发货单$] where  是否验收='未验收' and 金额>0"
    Set rs = cnn.Execute(SQL)
    Range("a2").CopyFromRecordset rs
    SQL = "select IIF(验收金额=验收差异,'未退回','部分未退回')as 类型,验收日期,'T'&序号,编码,门店名称,'' as 备注,订单号,'' as 商品编码,'' as 货物,'' as 数量,'' as 单价,验收差异 FROM [验收对比$] where  验收差异<0 and 验收金额<0 "
    Set rs = cnn.Execute(SQL)

各位大神，如何将rs的结果读取到数组中？请教

qdtzq

1.可以用循环
2.arr = rs.GetRows，用这种方式要转置

lmy945150

感谢，循环的给点提示，因为我也准备用循环做的，但对这个变量不太了解。给点提示

chrish

lmy945150 发表于 2022-11-24 16:46
感谢，循环的给点提示，因为我也准备用循环做的，但对这个变量不太了解。给点提示

ReDim Arr(1 To Rst.RecordCount + 1, 1 To Rst.Fields.Count)
        For i = 0 To Rst.Fields.Count - 1
            Arr(1, i + 1) = Rst.Fields(i).Name
        Next
        
        Rst.MoveFirst
        
         n = 2
         Do While Not Rst.EOF
            For i = 0 To Rst.Fields.Count - 1
                Arr(n, i + 1) = Rst.Fields(i).Value
             Next
           n = n + 1
            Rst.MoveNext
       Loop

limonet

RecordSet.Open StrSQL, Cn, 1, 3
RecordSet.RecordCount

lmy945150

为什么把ado换成访问sql数据库导入数组又不对了
Set Rs = CreateObject("ADODB.RecordSet")
Set cnn = CreateObject("ADODB.Connection")
Dim strSQL As String
Dim cnnStr As String
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=123;Initial Catalog=UFDATA_106_2022;Data Source=njxr;Connect Timeout=5;"
strSQL = "select MAX(DispatchLists.cInvCode)  AS  编码,MAX(DispatchLists.cInvName)  AS  名称,sum(DispatchLists.iQuantity)  AS  数量,MAX(DispatchLists.iTaxUnitPrice)  AS  单价,sum(DispatchLists.iSum)  AS  金额,MAX(Inventory.cInvDefine5)  AS  条码  from DispatchList,DispatchLists,Inventory  where  DispatchList.dlid=DispatchLists.dlid  and Inventory.cinvcode=DispatchLists.cinvcode  and cDLCode='79693'"
cnn.Open cnn.ConnectionString
Rs.Open strSQL, cnn

  arr = rs.GetRows
    Cells(1, 1).Resize(UBound(arr), 11) = arr

lmy945150

Set rs = CreateObject("ADODB.RecordSet")
Set cnn = CreateObject("ADODB.Connection")
Dim strSQL As String
Dim cnnStr As String
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=123;Initial Catalog=UFDATA_106_2022;Data Source=njxr;Connect Timeout=5;"
strSQL = "select MAX(DispatchLists.cInvCode)  AS  编码,MAX(DispatchLists.cInvName)  AS  名称,sum(DispatchLists.iQuantity)  AS  数量,MAX(DispatchLists.iTaxUnitPrice)  AS  单价,sum(DispatchLists.iSum)  AS  金额,MAX(Inventory.cInvDefine5)  AS  条码  from DispatchList,DispatchLists,Inventory  where  DispatchList.dlid=DispatchLists.dlid  and Inventory.cinvcode=DispatchLists.cinvcode  and cDLCode='79693'"
cnn.Open cnn.ConnectionString
rs.Open strSQL, cnn
a = rs.RecordCount

为什么a=-1的？这个记录集怎么知道记录数量

pjiang

测试通过，，，，，，，，，，，，，，

lmy945150

感谢