收录日期:2019/01/17 21:38:49 时间:2016/05/20 18:27:13 标签:Access
将c:/data1.mdb的数据库中的表table1中的所有字段按照条件[table1].[日期]>#1999-1-22#插入到数据库d:/data2.mdb中的表table2中;
两个数据库结构完全一样。
这个程序要用vba写在d:/data2.mdb这个数据库中,即完成导入功能。
用Ado或者DAO都成,本人菜鸟都不会用,代码只写一半,希望高手帮我实现。
----------------------------------------------------------------
Sub InsertIntoX()
  Dim dbsOut As Database
  Dim dbsIn As Database
  
  Dim tdfOut As TableDef
  Dim tdfIn As TableDef
  
  Set dbsOut = OpenDatabase(c:/data1.mdb)
  Set dbsIn = OpenDatabase(d:/data2.mdb)
  
......
  
 ......Execute " Insert Into [table2] Select * From [table1] Where ([table1].[日期]>#1999-1-22#) ;"
..........
  dbsIn.Close
  dbsOut.Close
End Sub
---------------------------------
Dim CN As ADODB.Connection
   Dim rst As ADODB.Recordset
   Set CN = New ADODB.Connection
   Set rst = New ADODB.Recordset
   CN.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist    Security Info=False;Initial Catalog=cygl;Data Source="

   CN.Open
   Set rst = CN.Execute("sql语句")
因为要插入 所以本人代码最后一句可改成:
rst.open "sql语句",3,3
 数据源用完不用了记得关上
哦 写漏了 应该是:
  rst.open "sql语句",conn,3,3

请问:两个程序(无界面)怎样通讯? 怀疑jet 4驱动有问题。 哪有《无悔的十字军战士》可下载? 什么是java VM .具体指什么软件? sql7.0挂数据库的问题急!!! 我们该送拉登几颗核蛋 怎么成为一个优秀的c++程序员? 战争的精髓 请问将一个表单提交到email,待发送完成后能不能转向显示一个发送成功的页面,应该怎么做?谢谢 delphi编程数据库数据如何存储成word模板的文档 动态控件的键盘消息 再问一次,真的很难还是太简单了不屑回答呢? TreeView在哪里初始化? 请问好多消息前面都有NC,和不带NC的有什么区别,比方说WM_DESTORY和WM_NCDESTORY 新来的,报告一下。(内空) 哪有《无悔的十字军战士》下载? 关于数据窗口的protect属性的问题,谁帮忙?急急! 怎样限制一部分用户进入internet? 怎样从3ds MAX中导出*.VUE文件? 请大家说出自己的共享软件月收入注册费多少? 请问“已发送邮件”保存在什么地方,如何访问? 哪位大侠帮我解释一下以太网和INTERNET的区别? 请教一条sql语句!100分! sql问题,急。 CLIENT关闭问题 关于数据仓库与SQL库连接的问题? 关于打印设置的问题 各位老少前辈:请帮小生找两本书吧!!!(有关于\"Delphi与XML\"和\"Java与XML\") 关于MODEM一些问题? java之JSP之SOS