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

[wth1150]

请教怎么把DBF的数据库转换成MDB格式的???那位大哥有原程序吗?可以贴出来给小弟看看吗???谢谢~~~~~~~

[water_j]

用ACCESS打开DBF文件，然后存为MDB即可！

[water_j]

用ACCESS打开DBF文件，然后存为MDB即可！

[uploo]

用ACCESS打开DBF文件，然后存为MDB即可
不过原来的dbf文件不能删掉，
它打开时还需要原来的dbf文件，而且我感觉存为的mdb文件就是个映射，
可以试着直接打开dbf数据文件就可以了

[water_j]

对你可以用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

[wth1150]

我想能用写的程序把DBF数据库转换成MDB格式的吗??用程序!

[water_j]

SELECT [名单表].[姓名], [名单表].[尊称], [名单表].[省名] & [名单表].[地区] & [名单表].[地址] AS 地址, [名单表].[邮政编码], [名单表].[工作单位] INTO [dBASE IV; Database=C:\;].a.dbf
FROM 名单表;

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

[sonicdater]

试试：
==================================================================
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

[thorkhan]

先打開dbf庫取出資料然后存到mdb

[water_j]

使用程序最简单的方法就是从DBF中读取一条记录，写进ACCESS 的MDB文件中

[water_j]

转帖！

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"

[vbsnake]

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