求代码：文本导入ACCESS，高分在线等!

Question

求VB代码，最好实例，能实现对文本的导入，并对其进行筛选，排序等功能。
有劳了。

Answer 1

试试看
Private Sub TxtToMdb(sTxtPath As String, sTxtFileName As String, sAccessFullFileName As String,sAccessTable As String)
'功能：将文本文件导入到Access中的表
'调用：Call TxtToMdb("c:\","test.txt","c:\a.mdb","NewTempTable")
'结果：将c:\test.txt导入到c:\a.mdb中的NewTempTable表中    Dim db As DAO.Database
 
    Set db = DBEngine.CreateDatabase(sAccessFullFileName, dbLangGeneral)
    If Err.Number = 3204 Then
        Set db = Workspaces(0).OpenDatabase(sAccessFullFileName)
    End If
    db.Execute "SELECT * into " & sAccessTable & " FROM [Text;HDR=NO;DATABASE=" & sTxtPath & "]." & sTxtFileName
    db.Close
    Set db = Nothing
End Sub

Answer 2

看看这贴
http://expert.csdn.net/Expert/topic/2202/2202104.xml?temp=7.365054E-02

Answer 3

看看这几篇文章对你是否有帮助
http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=2310
http://www.sijiqing.com/vbgood/article/001311546.html

Answer 4

//如果要对其筛选，排序，必须知道文本文件的结构。同意，而且要配置好Schema.ini文件参考：
http://vbboshi.myrice.com/vbtech/database/page_4/file111.htm

Answer 5

i'm newbird ,有些细节还是不太明白，实例有吗？

Answer 6

补充，你可以看看这篇文摘如何将一个TXT文件转化成Access格式数据库中的表
http://www.china-askpro.com/msg9/qa42.shtml