用ado将dbf文件导入access中

Question

用ado将access文件中的表(TMPAA)导入另一个access中TMPBB,是
AdoInCon.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                            "Data Source=C:\ACCESS1.MDB;Jet Oledb:Database Password=;"AdoInCon.Execute "Select * Into [;DATABASE=C:\ACCESS2.MDB].TMPBB From TMPAA"用ado将TMPAA.dbf文件导入access生成TMPBB,请写出完整清楚的语句,谢谢！

Answer 1

--/* dBase IV文件
select * from 
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase IV;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料4.dbf]')
--*/--/* dBase III文件
select * from 
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase III;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料3.dbf]')
--*/--/* FoxPro 数据库
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
--*//**************导入DBF文件****************/
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;
SourceDB=e:\VFP98\data;
SourceType=DBF',
'select * from customer where country != "USA" order by country')
go
/***************** 导出到DBF ***************/
如果要导出数据到已经生成结构(即现存的)FOXPRO表中,可以直接用下面的SQL语句insert into openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
select * from 表说明:
SourceDB=c:\  指定foxpro表所在的文件夹
aa.DBF        指定foxpro表的文件名.

Answer 2

参考：SQL语句导入导出大全
http://blog.csdn.net/i_like_database/archive/2004/12/20/222440.aspx

Answer 3

AdoInCon.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                            "Data Source=C:\ACCESS1.MDB;Jet Oledb:Database Password=;"
AdoInCon.Execute "select * into TMPBB from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=G:\',
'select * from [TMPAA.DBF]')"以上代码已经测试通过，如有疑问，可与我联系

Answer 4

myhgyp,谢谢！
但还是没有通过，我已给你留言。谢谢再次指教。

Answer 5

要不你把你的DBF文件发给我，我帮你试一下吧
MSN：[email protected]

Answer 6

你用不用MSN，如用，把我的MSN加上，我们在网上交流

Answer 7

我看了你一下你发过来的表，里面字段好多的，上面我给你的代码出错主要是因为你这个数据库中的几个日期字段没有输入正确的值，导致数据类型转换错误的，如你要想能正确导过来，你可能要把里面的同个日期字段的值整理一下，要不然后没法转，
当然，如果你不是所有的字段都要，那可以挑选你所要的字段导出来，如：
select 字段1，字段2，字段3，... into TMPBB from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=G:\',
'select * from [TMPAA.DBF]')
即不用Select * ....
实例：select Name,xm,id,birthday into TMPBB from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=G:\',
'select * from [person2.DBF]')

Answer 8

高手！我怎么用你的代码的时候总是提示from子句出错？要不也帮我看看？我发到你邮箱，将DBF导入到MDB中？
多谢！

Answer 9

select Name,xm,id,birthday into TMPBB from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=G:\',
'select * from [person2.DBF]')
执行这句部分字段的导出也有问题？

Answer 10

我把person2.DBF只留字段Name，并且只有几条纪录，还是FROM出错。
还有其他信箱吗？

Answer 11

上次你发给我的person2.DBF，我用：
select Name,xm,id,birthday into TMPBB from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=G:\',
'select * from [person2.DBF]')测试可以通过，没问题啊，会不会你机器上没有Driver=Microsoft Visual FoxPro Driver;这个驱动啊

Answer 12

应该有Driver=Microsoft Visual FoxPro Driver;这个驱动，因为我能用ado打开dbf文件,我的环境是Win98+vb6。请再帮我检查以下语句，谢谢！
AdoInCon.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;" & _
                            "Data Source=D:\Data2K.mdb;Jet Oledb:Database Password=;"
AdoInCon.Open
AdoInCon.Execute "select Name into TMPBB from openrowset('MSDASQL','Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=D:\','select * from [sss.DBF]')"或告诉我信箱给你发去全部数据。
再次谢谢！