求助 将查询对象数据导入至指定表单中 已解决

lym321321

辞旧迎新
恭贺新喜
本菜
多次得到
贵坛网友无私的帮助
在
网络中
本菜无法
用行动来
表示感谢
只有
灌水是永恒的

求助附件中：
已知条件：查询对象名称 ----（所有商品库存）
         
要求结果：将已知条件数据导入至指定表单中（表单名称：库存查询）

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

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

Henry D. Sy

请参阅insert into语句

lym321321

原帖由 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 OLEDBatabase 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

Dim conn As New ADODB.Connection
Dim sq As String
set conn=currentproject.Connection
sq = "INSERT INTO 库存查询 select * from 所有商品库存"
cnn.Execute sq

lym321321

原帖由 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

没有RAR，打不开你的附件。

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

Henry D. Sy

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

楼上的大哥
你好

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

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

lym321321

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


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

十分感谢!!!!

lym321321

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

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

多谢楼上高手关注!!

jlbaccess

新手来学习下[:50] [:30]