收录日期:2018/08/16 06:40:52 时间: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