如何在vb中直接使用dbf,excel,text形式的数据

[zhengsimon]

请问如何在vb中直接使用dbf,excel,text形式的数据，即自己编一个程序把excel,text,dbf文件格式的数据转换成access文件格式。

[liyang]

我推荐你看看Visdata的源程序。它是Vb自带的程序。

[Longe]

数据库之间的转换是比较容易的,我们来看一下将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

[zhengsimon]

1.我的visdata源程序打不开，一打开此工程即死机
2.还有其他格式的如何操作？好象用ADO控件可以直接使用这些格式的数据，就象access格式的文件一样，请问代码如何写？

[liyang]

另外，你可以使用DAO，它的JET引擎可以直接打开DBF,Excel,Text格式的文件，另外，通过ISAM，可以打开更多的格式，如：Outlook,Oracle等。

而ADO的Provider=microsoft.jet.oledb...，我没有试过，但是它也是用的JET引擎，应该也可以。

对于dbf,excel,text等格式，应该是将data source(在dao中是table)填入该类文件的路径（实际上是将该目录作为数据库),而该目录下的每个文件作为表，来进行操作。

[liyang]

格式如下：(DAO) ADO也应当如此。
MyPath = "c:\program files\microsoft office\office"

' Open the Northwind database.
Set db = OpenDatabase(MyPath, False, False, "dBase 5.0;")
------------>该字串
为控制面板中odbc数据源中的“驱动程序”中的"名称"。

[bluewater]

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

将EXECL变成ACCESS:
此一模块共有四个参数：
1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1
2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls
3、sAccessTable：要导入的 Access Table 名称，例如 TestTable
4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb

在声明中加入以下：

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

ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

[zhengsimon]

衷心感谢bluewater朋友！谢谢！