写了主要的一段,剩下数据库处理的代码,你百度下就有了
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
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
多个文件,控制文件可以这样写
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
)