收录日期:2018/10/23 18:05:35 时间: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

关于IIS5和IIS6访问Access数据库的问题 我的这个进制转换简单小程序错哪了~~求助~~ ant javaweb 先将src编译成jar 再将项目打包成war 工作两年了工资1800像话吗? MFC的文件保存 avro怎么对对象中的List进行编码,scheme该怎么写 HTTP Status 500 - 怎样更新_RecordsetPtr选择的记录集对象 sqlldr要导入的数据文件比表中的列多怎么办? Linux下服务器端的问题,分不多了,在线等 cygwin下repo下载 android出错!!刚开始玩,请大家指教! 有谁玩过DICOMM 3.0,想以这个格式往软件里传输病人信息和X光片 gcc编译出现问题program cc1plus got fatal signal 15。 关于published的问题 调查:设计模式的应用。 openssl/ssl.h 导出分组的excel ext.net panel服务器分页 jsp如何连接远程DB2 笔记本不停的重启,不能进入系统 关于打开文件后会出现Debug Assertion Failed! fprintf.c Line:56报警 关于java集合问题 多表关联,哪种写法好 不能返回局部变量的引用 cudaMalloc3D 分配数据后如何访问? 关于FBO的问题 用了FreeTextBox后 pages validateRequest=\"false\"的问题 用C# 有前途吗 中国灰姑娘 与 美国灰姑娘的区别 ImageButton设置的文字如何适应不同像素