我在VB用了这句: Dim Db As Database Set Db = OpenDatabase(App.Path & "\" & "db.mdb") db.Execute "insert into [ODBC;DSN=Codbc;UID=sa;PWD=****;APP=Visual Basic;WSID=FLH;DATABASE=sqldatabase].sqltable from tlocation"tlocation为本地access表 结果是语法错误?? 好象没错吧,怎么不行呢? 请赐教,谢谢.
Dim Db As Database
Set Db = OpenDatabase(App.Path & "\" & "db.mdb")
db.Execute "insert into [ODBC;DSN=Codbc;UID=sa;PWD=****;APP=Visual Basic;WSID=FLH;DATABASE=sqldatabase].sqltable from tlocation"tlocation为本地access表
结果是语法错误??
好象没错吧,怎么不行呢?
请赐教,谢谢.
一个连ACCESS,一个连SQL SERVER
分别开OPEN记录集,每次OPEN同样的表,如access里的TEMP,SQL也开TEMP
然后循环,读ACCESS,写SQL
大概写一下
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\osm;Persist Security Info=False;"
db1.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=warehouse;Data Source=此处填你SQL SERVR的IP"
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
rs.open "temp",db
rs1.open "temp",db1
do until rs.eof
rs1.addnew
rs1.field(0)=rs.field(0)
....
rs1.field(8)=rs.field(8)
rs.movenext
loop
这样就写进去了,这次用的TEMP表,下次用别的表,把库里所有表都来一遍就行了其实SQL SERVER有导入功能的,可以直接导入ACCESS的*.mdb文件