Dim cnD2A As New ADODB.Connection Dim strSQL As String strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\water.mdb;Persist Security Info=False" cnD2A.ConnectionString = strSQL cnD2A.Open '将数据库导入到mdb中 strSQL = "Select * Into test_tb From [dBASE 5.0;Database=C:\WINDOWS\Desktop].members.dbf" cnD2A.Execute strSQL
刚刚做完一个项目,.dbf和.xls文件导入都能用AOD执行SQL语句实现:Dim cnnX As New ADODB.Connection Dim strSQL As String '首先建立到Access的连接 strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\DataBaseName.mdb;Persist Security Info=False" cnnX.Open strSQL '将.dbf数据库导入.mdb数据库 strSQL = "Select * Into test_tb From [dBASE 5.0;Database=" & App.Path & "\SourceData\DataBaseName.dbf" cnnX.Execute strSQLExcel需要把参数dBase 5.0换成Excel 8.0
1、odbc+ado dim adb as new adodb.conection dim adset as new adodb.recordset adb.ConnectionString = "DSN=dfcb;UID=;PSW=;" adb.Open adset.Open "dfcb", adb, , , adCmdTable2、dao dim db as database dim ds as recordset Set db = OpenDatabase(Path_output, False, False, "Dbase III;") Set ds = db.OpenRecordset(File_output) 下边是sql到mdb表的 Set db = Workspaces(0).OpenDatabase(App.Path + "\cb.mdb") db.Execute "INSERT INTO yhinfo(" + str1 + ") select " + TT1 + " FROM [FoxPro 3.0;DATABASE=" + Path_inport + "]." + "[" + File_inport + "]"
To:waterweedODBC Driver for dBASE
oConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DriverID=277;" & _
"Dbq=c:\somepath"
Then specify the filename in the SQL statement:oRs.Open "Select * From user.dbf", oConn, , ,adCmdText
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey
Set tt1 = Db1.OpenRecordset(openName, dbOpenTable)
我的数据库是dbf为后缀的,不知识得把塞还是foxpro的那个版本,那我用foxpro驱动都可以访问么?
还有,只用代码可以实现转换么?可以不设数据源么?
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey
然后file menu下就有导入数据库这个功能,选择适当就行了,
不过你要是有一大批表要处理,就按楼上说的去做吧
大家没做过么?给点建议吧谢谢了
把一个foxpro的表结构用vb语句导入一个access新的表中
如果表的内容同时导入就更好了
Dim strSQL As String
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\water.mdb;Persist Security Info=False"
cnD2A.ConnectionString = strSQL
cnD2A.Open
'将数据库导入到mdb中
strSQL = "Select * Into test_tb From [dBASE 5.0;Database=C:\WINDOWS\Desktop].members.dbf"
cnD2A.Execute strSQL
Dim strSQL As String
'首先建立到Access的连接
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\DataBaseName.mdb;Persist Security Info=False"
cnnX.Open strSQL
'将.dbf数据库导入.mdb数据库
strSQL = "Select * Into test_tb From [dBASE 5.0;Database=" & App.Path & "\SourceData\DataBaseName.dbf"
cnnX.Execute strSQLExcel需要把参数dBase 5.0换成Excel 8.0
dim adb as new adodb.conection
dim adset as new adodb.recordset
adb.ConnectionString = "DSN=dfcb;UID=;PSW=;"
adb.Open
adset.Open "dfcb", adb, , , adCmdTable2、dao
dim db as database
dim ds as recordset
Set db = OpenDatabase(Path_output, False, False, "Dbase III;")
Set ds = db.OpenRecordset(File_output)
下边是sql到mdb表的
Set db = Workspaces(0).OpenDatabase(App.Path + "\cb.mdb")
db.Execute "INSERT INTO yhinfo(" + str1 + ") select " + TT1 + " FROM [FoxPro 3.0;DATABASE=" + Path_inport + "]." + "[" + File_inport + "]"