Office中国论坛/Access中国论坛

标题: 求助将查询对象数据导入至指定表单中已解决 [打印本页]

作者: lym321321 时间: 2008-12-21 21:11
标题: 求助将查询对象数据导入至指定表单中已解决
辞旧迎新
恭贺新喜
本菜
多次得到
贵坛网友无私的帮助
在
网络中
本菜无法
用行动来
表示感谢
只有
灌水是永恒的

求助附件中：
已知条件：查询对象名称 ----（所有商品库存）

要求结果：将已知条件数据导入至指定表单中（表单名称：库存查询）

本菜原来的笨办法是：
先将查询对象数据导入至EXCEL中
然后再将数据导入至指定表单中
但
在实操上很繁琐
故
今日特来求助
谢谢各位！！！

[ 本帖最后由 lym321321 于 2008-12-22 07:20 编辑 ]

作者: Henry D. Sy 时间: 2008-12-21 22:02
请参阅insert into语句

作者: lym321321 时间: 2008-12-21 22:44

原帖由 Henry D. Sy 于 2008-12-21 22:02 发表
请参阅insert into语句

请教大侠
具体代码怎么写:
Private Sub Command0_Click()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sq As String
conn.Open "provider=Microsoft.jet.OLEDB.4.0;Jet OLEDB

atabase Password=123;data source=" & ThisWorkbook.Path & "\库存.MDB"
cnn.Execute ("delete * from 库存查询")
sq = "INSERT INTO 库存查询 select * from 所有商品库存"
cnn.Execute sq
cnn.Close
Set cnn = Nothing

End Sub

本菜文化程度不高
而且非常菜
请再指点一下
谢谢

作者: Henry D. Sy 时间: 2008-12-21 23:01
Dim conn As New ADODB.Connection
Dim sq As String
set conn=currentproject.Connection
sq = "INSERT INTO 库存查询 select * from 所有商品库存"
cnn.Execute sq

作者: lym321321 时间: 2008-12-21 23:13

原帖由 Henry D. Sy 于 2008-12-21 23:01 发表
Dim conn As New ADODB.Connection
Dim sq As String
set conn=currentproject.Connection
sq = "INSERT INTO 库存查询 select * from 所有商品库存"
cnn.Execute sq

楼上的大哥
你好

本菜照搬你的原码
放入附件窗体中
还是无法运行

敬请大侠
能否以附件
做个实例
谢谢!!!

作者: ACMAIN_CHM 时间: 2008-12-22 00:17
没有RAR，打不开你的附件。

你运行的具体错误信息是什么？

作者: Henry D. Sy 时间: 2008-12-22 03:30

原帖由 lym321321 于 2008-12-21 23:13 发表

楼上的大哥
你好

本菜照搬你的原码
放入附件窗体中
还是无法运行

刚才直接复制您的代码，没有注意你原来少打了个”o“
将最后一句
cnn.Execute sq
更改为
conn.Execute sq

作者: lym321321 时间: 2008-12-22 07:18

原帖由 Henry D. Sy 于 2008-12-22 03:30 发表

刚才直接复制您的代码，没有注意你原来少打了个”o“
将最后一句
cnn.Execute sq
更改为
conn.Execute sq

十分感谢!!!!

作者: lym321321 时间: 2008-12-22 07:19

原帖由 ACMAIN_CHM 于 2008-12-22 00:17 发表
没有RAR，打不开你的附件。

你运行的具体错误信息是什么？

多谢楼上高手关注!!

作者: jlbaccess 时间: 2009-1-7 20:19
新手来学习下[:50] [:30]

作者: yanghua1900363 时间: 2011-8-3 23:59
学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)