写了主要的一段,剩下数据库处理的代码,你百度下就有了
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
解决方案 »
- 请教关于库存中的出入库单号和相关单据2个属性
- 如何用form实现查询功能并导出到EXCEL?
- 一个CDC的问题
- 数据库的删除效率问题
- 在存储过程中添加新列的问题!!!
- 300分!! 求解oracle8i中的long类型怎么才能实现用like进行模糊查询?急!!
- 在Oracle中如何将“_”通配符变成非通配符?
- SQL与差值计算
- oracle816:在启动OracleoraHomeManagementServer时提示:在本地计算机无法启动OracleoraHomeManagementServer服务。错误997:重叠I/O操作
- SQL排序:前面的排序结果对后面的排序结果有影响的排序方法
- 求两个时间的差值
- win7安装oracle10g直接报错,求大神进来看看这是怎么回事啊!!!
多个文件,控制文件可以这样写
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
)