请教怎么把DBF的数据库转换成MDB格式的???

wth1150 2002-04-14 04:58:14
请教怎么把DBF的数据库转换成MDB格式的???那位大哥有原程序吗?可以贴出来给小弟看看吗???谢谢~~~~~~~
...全文
488 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
vbsnake 2002-04-15
  • 打赏
  • 举报
回复
1.用 Access 做个同结构的 Mdb 空档。
2.用一个 FileListBox 指向 *.dbf 的目录。
3.用 Dao 物件读入 mdb 空档。
4.用 for next 回圈一一读入各 Dbf,如:
for i=0 to FileListBox.listcount
开启 FileListBox.list(i) 的 dbf
for j=0 to FileListBox.list(i).recordcount
mdb空档.addnew FileListBox.list(i).record(j)
next
next
water_j 2002-04-14
  • 打赏
  • 举报
回复
转帖!

Dim adoConnection As New ADODB.Connection
'一定要用 Microsoft.Jet.OLEDB.4.0,不要用 3.51,但 MDB 文件可以是 Access97
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db4.mdb;Persist Security Info=False"

'playyuer
'adoConnection.Execute "SELECT * INTO CopyOfAnimals FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\]"
'adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM animals IN ''[dBASE IV;DATABASE=d:\dbfs\]"

'王国荣 也可以,但也一定要用 Microsoft.Jet.OLEDB.4.0,不要用 3.51,但 MDB 文件可以是 Access97
'adoConnection.Execute "SELECT * INTO CopyOfAnimals FROM [dBASE III;DATABASE=d:\dbfs\].animals.dbf"
adoConnection.Execute "INSERT INTO CopyOfAnimals SELECT * FROM [dBASE III;DATABASE=d:\dbfs\].animals.dbf"
water_j 2002-04-14
  • 打赏
  • 举报
回复
使用程序最简单的方法就是从DBF中读取一条记录,写进ACCESS 的MDB文件中
thorkhan 2002-04-14
  • 打赏
  • 举报
回复
先打開dbf庫取出資料然后存到mdb
sonicdater 2002-04-14
  • 打赏
  • 举报
回复
试试:
==================================================================
dBase To Access
==================================================================
Sub ImportdBaseToAccess()

Dim cnn As New ADODB.Connection
Dim sqlString As String

' Open the Connection
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=d:\My Documents\db1.mdb;"
& _
"Jet OLEDB:Engine Type=4"

'Creates new Access table
sqlString = "SELECT * INTO [Table5] FROM [dBase III;DATABASE=d:\My
Documents\dBase].[dBase1]"
'Existing Access table
'sqlString = "INSERT INTO [Table3] SELECT * FROM [dBase III;DATABASE=d:\My
Documents\dBase].[dBase1]"
cnn.Execute sqlString

cnn.Close
Set cnn = Nothing

End Sub
water_j 2002-04-14
  • 打赏
  • 举报
回复
SELECT [名单表].[姓名], [名单表].[尊称], [名单表].[省名] & [名单表].[地区] & [名单表].[地址] AS 地址, [名单表].[邮政编码], [名单表].[工作单位] INTO [dBASE IV; Database=C:\;].a.dbf
FROM 名单表;

以上是MDB转DBF的SQL语句
供你参考!



wth1150 2002-04-14
  • 打赏
  • 举报
回复
我想能用写的程序把DBF数据库转换成MDB格式的吗??用程序!
water_j 2002-04-14
  • 打赏
  • 举报
回复
对你可以用ADO连接DBF啊!
您可以用ADO通过ODBC(使用Microsoft Visual FoxPro Driver)来连foxpro数据库库,要注意写对ConnectionString。以下有一小段代码供您参考:


Private Sub Command1_Click()


Dim conn As ADODB.Connection


Dim rs As ADODB.Recordset


Set conn = New ADODB.Connection


conn.ConnectionString ="SourceType=DBC;SourceDB=C:\MyDBC\data1.dbc;Driver={Microsoft Visual FoxPro Driver}"


conn.Open


Set rs = New ADODB.Recordset


rs.CursorType = adOpenStatic


rs.LockType = adLockOptimistic


rs.Open "Table1", conn, , , adCmdTable


rs.MoveFirst


MsgBox rs.Fields(0).Value


rs.Close


conn.Close


Set rs = Nothing


Set conn = Nothing


End Sub

uploo 2002-04-14
  • 打赏
  • 举报
回复
用ACCESS打开DBF文件,然后存为MDB即可
不过原来的dbf文件不能删掉,
它打开时还需要原来的dbf文件,而且我感觉存为的mdb文件就是个映射,
可以试着直接打开dbf数据文件就可以了
water_j 2002-04-14
  • 打赏
  • 举报
回复
用ACCESS打开DBF文件,然后存为MDB即可!
water_j 2002-04-14
  • 打赏
  • 举报
回复
用ACCESS打开DBF文件,然后存为MDB即可!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧