Dim conn As Connection
Set conn = New Connection
conn.Open "Provider=MSDASQL.1;Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\实验.dbf
conn.Execute "select * into [c:\TEST.mdb].[test] from " 实验.DBF"
Set conn = New Connection
conn.Open "Provider=MSDASQL.1;Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\实验.dbf
conn.Execute "select * into [c:\TEST.mdb].[test] from " 实验.DBF"
解决方案 »
- VB6 中,MSCHART如何设置 坐标间隔?
- VBA的一个语法问题
- 服务器端运行的vb程序???
- 请问如何给文件夹加密,程序运行时才可以访问
- VB可执行文件图标的问题
- 想换工作给点意见!
- SQL语句复制数据库中的表,新表的名字如何指定?谢谢
- 请教各位高手,如何编程序,在vb程序运行的时候,将DataGrid控件中的数据导入到excel中去?
- ListBox 的一个问题
- 将stdPicture对象中的图片缩放以后,还还原为stdPicture对象。不要保存到磁盘上,速度越快越好。(一定给分)
- 在(vb+access2000)中日期在数据库中保存错误,怎样解决!
- 如何将 MSFlexGrid 中的记录保存为 Excel 文件?
你可以把DBF的结果取出来,然后写程序保存到MDB中啊
比如
rec = select * from dbf数据库
然后最这个结果集进行操作
do while not rec.eof
这里打开mdb
'用insert 操作啊.一条一条的写到数据库中
rec.movenext
loop
以上是我的思路,应该可以解决的吧
conn.Open "Provider=MSDASQL.1;Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\"
conn.Execute ("select * into test in TEST.mdb from 实验.DBF")
conn.Open "Provider=MSDASQL.1;Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\"
conn.Execute ("select * into [......].test from 实验")文件"实验.dbf"的表名是"实验",而不是"实验.dbf",所以在Select语句中应该使用"实验"而不是"实验.dbf"
然后[......]中的内容记不清了,自己去查一查吧!