求助如何取 access数据匹配工作表

spin2016

求助如何取 access中指定日期的数据并匹配工作表中的A列名称

hdbk

Sub getdatafromaccess()
Sheets("sheet1").Range("a3").CurrentRegion.Clear
Dim con As Object, s%, k&
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb"

      date1 = Sheets("sheet1").Range("b1")
      Sql = "select 名称,数量 from 流水 where 日期= " & "#" & date1 & "#"
For k = 0 To con.Execute(Sql).fields.Count - 1
      Cells(3, k + 1) = con.Execute(Sql).fields(k).Name
Next
Sheets("sheet1").Range("a4").CopyFromRecordset con.Execute(Sql)
con.Execute(Sql).Close
con.Close: Set con = Nothing
End Sub

jiangxiaoyun

Sub 查询()
    Dim cnn As Object, rst As Object, SQL$
    rq = [B1].Value
    Set cnn = CreateObject("Adodb.Connection")
    Set rst = CreateObject("Adodb.Recordset")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb"
    SQL = "Select b.数量 From [Excel 12.0;Database=" & ThisWorkbook.Path & "\工作簿1.xlsm;].[sheet1$a3:A] as a" & _
     " left join 流水 as b on a.名称=b.名称 where b.日期= " & "#" & rq & "#" & ""
     Range("b4").CopyFromRecordset cnn.Execute(SQL)
    Set rst = Nothing
    Set cnn = Nothing
End Sub

spin2016

hdbk 发表于 2018-10-11 14:48
Sub getdatafromaccess()
Sheets("sheet1").Range("a3").CurrentRegion.Clear
Dim con As Object, s%, k& ...

老师您好， where是筛选符合条件的数据，但并没有对应A列的名称取出数量列的值。我是想指定[b1] 日期，对应A列的名称从 access中取出数量列的值。之前我是想用join ,但没办法指定单个日期。请教老师还有没有其他好的办法。

spin2016

jiangxiaoyun 发表于 2018-10-11 15:01
Sub 查询()
    Dim cnn As Object, rst As Object, SQL$
    rq = .Value

老师您好，join后面跟where是可以取出数据，where好象是去除空数据后，随机排列，所以无法对应A列，不知道 是不是这样，所以数据不对应A列名称。我重新改下A列名称的顺序，您帮看下。

解0人

1. Sub getData()
   
2. Dim rs, r%, arr, i%, x
   
3.     With ActiveSheet
   
4.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("A4:B" & r)
   
6.     End With
   
7.     Set rs = CreateObject("ADODB.Recordset")
   
8.     With rs
   
9.         .CursorLocation = 3
   
10.         .Open "select * from 流水 where 日期=#" & ActiveSheet.[B1].Value & "#", _
    
11.             "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb", 1, 1
    
12.         For i = 1 To UBound(arr)
    
13.             .movefirst
    
14.             .Find .fields(2).Name & "='" & arr(i, 1) & "'"
    
15.             If .EOF Then
    
16.                 arr(i, 2) = ""
    
17.             Else
    
18.                 arr(i, 2) = rs(3).Value
    
19.             End If
    
20.         Next
    
21.         .Close
    
22.     End With
    
23.     Set rs = Nothing
    
24.     ActiveSheet.Range("A4:B" & r) = arr
    
25. End Sub

复制代码

spin2016

解0人 发表于 2018-10-11 15:24

非常感谢老师，这正是我想要的，运行很成功。我慢慢消化下代码。

jiangxiaoyun

spin2016 发表于 2018-10-11 15:12
老师您好，join后面跟where是可以取出数据，where好象是去除空数据后，随机排列，所以无法对应A列，不知 ...

那就用其他老师的循环吧。。。

hdbk

spin2016 发表于 2018-10-11 15:02
老师您好， where是筛选符合条件的数据，但并没有对应A列的名称取出数量列的值。我是想指定 日期，对应A ...

Sub getdatafromaccess()
Application.ScreenUpdating = False
Sheets("sheet1").Range("b4:b100").Clear
Dim con As Object, s%, k&
Set con = CreateObject("adodb.connection")
Set con1 = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb"
con1.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName

    date1 = Sheets("sheet1").Range("b1")
    Sql = "select 名称,数量 from 流水 where 日期= " & "#" & date1 & "#"
For k = 0 To con.Execute(Sql).fields.Count - 1
      Cells(3, k + 6) = con.Execute(Sql).fields(k).Name
Next
Sheets("sheet1").Range("f4").CopyFromRecordset con.Execute(Sql)

Sql1 = "select t1.名称,t2.数量 from [Sheet1$a3:b]t1,[Sheet1$f3:g]t2 where t1.名称=t2.名称 and t1.名称 is not null "
Sheets("sheet1").Range("a4").CopyFromRecordset con1.Execute(Sql1)
Sheets("sheet1").Range("f4").CurrentRegion.Clear
con.Execute(Sql).Close
con1.Execute(Sql1).Close
con.Close: Set con = Nothing
Application.ScreenUpdating = False
End Sub

spin2016

解0人 发表于 2018-10-11 15:24

不好意思哈，老师。想再请教您，
rs(3).value   这里面的3是指第几个字段名吗？