1180
社区成员
- 主页
请教怎么把DBF的数据库转换成MDB格式的???
请教怎么把DBF的数据库转换成MDB格式的???那位大哥有原程序吗?可以贴出来给小弟看看吗???谢谢~~~~~~~
...全文
请发表友善的回复…
发表回复
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
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"
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
==================================================================
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语句
供你参考！
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
您可以用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数据文件就可以了
不过原来的dbf文件不能删掉，
它打开时还需要原来的dbf文件，而且我感觉存为的mdb文件就是个映射，
可以试着直接打开dbf数据文件就可以了
water_j 2002-04-14
用ACCESS打开DBF文件，然后存为MDB即可！
water_j 2002-04-14
用ACCESS打开DBF文件，然后存为MDB即可！