如何把*.txt文件批量导入同一个ACCESS数据库成为表1、表2、表3……（在线等，分不够再加！）

Question

可以帮我写一段ACCESS数据库查找的带码吗？

Answer 1

先把txt文件合并，然后用字符串和字符操作函数进行分析，最后导入。

Answer 2

ali_wz(wz)：那不是变成一个表了？
tanyx(不知道)：可否提供一点代码？

Answer 3

    Dim strSQL, strLine As String
    Dim tmpS() As String
    Dim FileNumber As Integer
    If Dir(App.Path & "\setuplist.ini") = "" Then
        gSQLServer = ""
        gDataBase = ""
        gLogin = ""
        gPassword = ""
        Exit Sub
    End If
    
    FileNumber = FreeFile
    Open App.Path & "\setuplist.Ini" For Input As #FileNumber
    Do While Not EOF(FileNumber)
        Line Input #FileNumber, strLine
        tmpS = Split(strLine, "=")
        Select Case UCase(Trim(tmpS(0)))
            Case "SQL SERVER"
                gSQLServer = Trim(tmpS(1))
            Case "DATABASE"
                gDataBase = Trim(tmpS(1))
            Case "LOGIN"
                gLogin = Trim(tmpS(1))
            Case "PASSWORD"
                gPassword = Trim(tmpS(1))
        End Select
    Loop
    Close #FileNumber
你可以参改一下就是了