请教VBASQL语句，执行出错，和怎么查找并将结果写入excel中

yczzwy · 发表于 2013-3-30 20:37

本帖最后由 yczzwy 于 2013-4-2 22:45 编辑

流水.rar (112.85 KB, 下载次数: 19)

1、执行按钮35报错，执行目的日将depd2010数据保存至access数据库，2怎么样从数据库中按照账号查询户名至depd6020表备注栏

zhaogang1960 · 发表于 2013-3-30 22:13

请测试:

Sub 执行SQL语句()
Dim cnn As Object, StrSQL$
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Database1.mdb" '连接数据库
StrSQL = "INSERT INTO 账户信息 SELECT * FROM [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[DEPD2010$A2:N] where 账户姓名 is not null"
cnn.Execute StrSQL '执行
MsgBox "已将工作表记录添加到数据库。", vbInformation
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2013-3-30 22:14

请看附件

流水.rar (106.38 KB, 下载次数: 28)

yczzwy · 发表于 2013-3-31 00:15

zhaogang1960 发表于 2013-3-30 22:14
请看附件

谢谢版主帮忙，我表达不清，我的意思是导入不区分姓名的，导入直接累加导入即可，在导入后新建命令把depd6020表中O列（备注栏）从数据库中查找，填写用户名，就是当日对私开／销户报表有名我明日建数据库，流水表无名，我导入excel后，从数据库取名添加。

zhaogang1960 · 发表于 2013-3-31 00:19

yczzwy 发表于 2013-3-31 00:15
谢谢版主帮忙，我表达不清，我的意思是导入不区分姓名的，导入直接累加导入即可，在导入后新建命令把depd ...

我写的就是直接把工作表数据导入到Access数据表中，没有其他处理

yczzwy · 发表于 2013-3-31 00:35

zhaogang1960 发表于 2013-3-31 00:19
我写的就是直接把工作表数据导入到Access数据表中，没有其他处理

帮忙处理第二个问题，可以用把depd6020表一起建立数据库过渡，再在excel中查询显示简单吗？

zhaogang1960 · 发表于 2013-3-31 00:41

yczzwy 发表于 2013-3-31 00:35
帮忙处理第二个问题，可以用把depd6020表一起建立数据库过渡，再在excel中查询显示简单吗？

我实在没有理解第二个问题是什么

yczzwy · 发表于 2013-3-31 00:48

zhaogang1960 发表于 2013-3-31 00:41
我实在没有理解第二个问题是什么

不好意思，问题一是将DEPD2010表中数据存档至数据库中，因为数据量大excel无法满足。问题二是，在数据库中查找按照“账号”查找“户名”填写在DEPD6020表中“备注”列，excel不好直接处理，可以将DEPD6020表建立数据库在查询显示。两个表均是将文本文件导入到excel的

zhaogang1960 · 发表于 2013-3-31 00:51

本帖最后由 zhaogang1960 于 2013-3-31 23:24 编辑

yczzwy 发表于 2013-3-31 00:48
不好意思，问题一是将DEPD2010表中数据存档至数据库中，因为数据量大excel无法满足。问题二是，在数据库中 ...

请测试：

Sub 查询()
Dim cnn As Object, StrSQL$
Set cnn = CreateObject("adodb.connection")
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\Database1.mdb" '连接数据库
StrSQL = "select 账户姓名 from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[DEPD6020$a2:a" & Sheets("DEPD6020").[a65536].End(xlUp).Row & "] a left join 账户信息 b on a.账号=b.账号"
Sheets("DEPD6020").Range("o3").CopyFromRecordset cnn.Execute(StrSQL)
cnn.Close
Set cnn = Nothing
End Sub

复制代码

zhaogang1960 · 发表于 2013-3-31 00:52

本帖最后由 zhaogang1960 于 2013-3-31 23:25 编辑

请看附件

流水.rar (108.68 KB, 下载次数: 24)

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

[已解决] 请教VBASQL语句，执行出错，和怎么查找并将结果写入excel中