Text 转换为 Access MDB:
首先,为文本文件创建一个 SCHEMA.INI文件。然后,你可以使用下面的代码来实现转换:
Dim db As Database, tbl as TableDef
Set db = DBEngine.CreateDatabase(App.Path & "/mymdb.mdb", dbLangGeneral, dbVersion_0)
Set tbl = db.CreateTableDef("Temp")
tbl.Connect = "Text;database=c:\vbpj\data"
tbl.SourceTableName = "Customer#txt"
db.TableDefs.Append tbl
db.Execute "Select Temp.* into NewTable from Temp"
db.TableDefs.Delete tbl.Name
db.Close
Set tbl = Nothing
Set db = Nothing
Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
使用范例如下:將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTable
数据库之间的转换是比较容易的,我们来看一下将text文件转换成access文件.
'open text file
open "text1.txt" for input as #1
'read data
line #1,m_str
close(1)
'create database
set db_exp=workspaces(0).createdatabase("path/filename")
'create table
set tb_exp=db_exp.createtable("tableanme")
'create fields
'create index
'then
db_exp.execute "INSERT INTO tablename " _
& "(fields list[,])" _
& " VALUES(" & m_str & ");"
'close database
db_exp.close