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

spin2016 · 发表于 2018-10-11 13:20

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

hdbk · 发表于 2018-10-11 14:48

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 · 发表于 2018-10-11 15:01

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 · 发表于 2018-10-11 15:02

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 · 发表于 2018-10-11 15:12

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

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

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

Sub getData()
Dim rs, r%, arr, i%, x
With ActiveSheet
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("A4:B" & r)
End With
Set rs = CreateObject("ADODB.Recordset")
With rs
.CursorLocation = 3
.Open "select * from 流水 where 日期=#" & ActiveSheet.[B1].Value & "#", _
"provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Database1.accdb", 1, 1
For i = 1 To UBound(arr)
.movefirst
.Find .fields(2).Name & "='" & arr(i, 1) & "'"
If .EOF Then
arr(i, 2) = ""
Else
arr(i, 2) = rs(3).Value
End If
Next
.Close
End With
Set rs = Nothing
ActiveSheet.Range("A4:B" & r) = arr
End Sub

复制代码

spin2016 · 发表于 2018-10-11 15:39

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

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

jiangxiaoyun · 发表于 2018-10-11 15:52

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

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

hdbk · 发表于 2018-10-11 16:08

本帖最后由 hdbk 于 2018-10-11 16:26 编辑

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 · 发表于 2018-10-11 16:27

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

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

		自动登录	找回密码
密码			免费注册

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