写了主要的一段,剩下数据库处理的代码,你百度下就有了
    Sub ReadFiles()
        Dim Frm As New FolderBrowserDialog
        Frm.SelectedPath = Environment.SpecialFolder.Desktop
        If Frm.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim FileName As String
            For Each FileName In IO.Directory.GetFiles(Frm.SelectedPath)
                FileOpen(1, FileName, OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)
                Dim mLine As String = ""
                Do While Not EOF(1)
                    mLine = LineInput(1) '读取数据行
                    Dim L() As String = mLine.Split(Chr(9)) '拆分字符串
                    '执行插入操作
                    '……
                Loop
                FileClose(1)
            Next
        End If
    End Sub

解决方案 »

  1.   

    LZ 不妨考虑一下外部表,看看是没有数据上的问题。 如果没有的话,可以 直接 insert into select  。
      

  2.   

    写成这样还不知道咋用,你还是试试4#的方法吧,这代码就差生成exe发给你了
      

  3.   

    很多吗?
    多个文件,控制文件可以这样写
    OPTIONS (ROWS=20000)
    LOAD DATA
    INFILE 'E:\hgq documents\aa.txt'
    INFILE 'E:\hgq documents\bb.txt'
    PRESERVE BLANKS
    INTO TABLE hgq_temp
    truncate
    REENABLE DISABLED_CONSTRAINTS
    FIELDS TERMINATED BY ' ' 
    TRAILING NULLCOLS
    (tel,area
    )