神马品牌网超神特种兵王萧峰txt:用VB将TXT文本中的内容导入oracle数据库.......急!!急
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 09:55:45
如题目所说.现在有在文本文件中有如下的信息:
1/223,2/223,3/221,4/333
其实的"/"前面的数字代表是第几个字段."/"后面的信息代表字段中的信息
在oracle中建立一张表"info"
将文本文件中的这四个字段用VB导入到oracle数据库中
最好有例子.
能够解决再加分!
如果要随机获取路径，应该怎么做。
能不能用CommonDialog控件，在打开一个文件以后再进行导入。
1/223,2/223,3/221,4/333
其实的"/"前面的数字代表是第几个字段."/"后面的信息代表字段中的信息
在oracle中建立一张表"info"
将文本文件中的这四个字段用VB导入到oracle数据库中
最好有例子.
能够解决再加分!
如果要随机获取路径，应该怎么做。
能不能用CommonDialog控件，在打开一个文件以后再进行导入。
Private Sub Form_Load()
Dim strfilename As String ''文本文件路径
Dim strtext As String
Dim array1 As Variant ''数组
Dim i As Integer
dim strsql as string ''sql 语句
Dim strno As String ''信息序号部分
Dim strcontent As String ''信息内容部分
strfilename = "d:\1.txt"
Open strfilename For Binary As #1
strtext = Input(LOF(1), #1) ''将文本内容赋给strtext
Close #1
array1 = Trim(Split(strtext, ","))
For i = LBound(array1) To UBound(array1)
strno = Mid(array1(i), 1, 1) ''取序号
strcontent = Mid(Array(i), 3, 5) ''取信息
''下面为插入数据库,假设cnn为数据库连接
strsql="insert into info(序号，信息) values('" & strno & "','" & strcontent & "')"
cnn.excute strsql
Next
End Sub