因为DATA空件认的是ACCESS7.0的数据库,所以需要转换一下,用ACCESS来转换也行,下面提供一个动态转换的例子(其中用到了ADODB,哈哈,‘拖裤子放屁’)Dim ss As New ADODB.Connection Dim db As DAO.DatabaseSet db = CreateDatabase(App.Path + "\savedb.mdb", dbLangGeneral, dbEncrypt) db.Close Set db = Nothingss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库路径和数据库名;Persist Security Info=False" ss.Open ss.Execute "select * into " + App.Path + "\savedb.tablename from mytbl" '注意savedb是ACCESS的数据库名,但不要写扩展名,tablename是你要转换出来的表,mytbl是原数据库的表
可以參考msdn
Dim db As DAO.DatabaseSet db = CreateDatabase(App.Path + "\savedb.mdb", dbLangGeneral, dbEncrypt)
db.Close
Set db = Nothingss.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库路径和数据库名;Persist Security Info=False"
ss.Open
ss.Execute "select * into " + App.Path + "\savedb.tablename from mytbl"
'注意savedb是ACCESS的数据库名,但不要写扩展名,tablename是你要转换出来的表,mytbl是原数据库的表