说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

特急:读取txt文件,再写入sql server的问题。

编辑:说三道四文库 发布时间:2018-06-18 06:13
HTML文档下载 WORD文档下载 PDF文档下载
形如下列数据是由Sql server导出至txt文件中的,共5个子段:
1,"天津XX有限公司","2046","Bank of China","北京建行东四支行地坛"
2,"天津XX有限公司","0303","Bank of China","北京建行东四支行地坛"
问:我想做个VB程序,读取这个txt文件,再写入另一个sql server 数据库里,该怎么写?特别是我在读取这个txt文件时怎么区别2条记录之间的分界?
每个字段之间不是有逗号做分隔符的吗,用FileSystemObject.ReadLine读取一行然后用instr(int,str,str)检索出所有的字段然后插入数据库。
Dim strTmp As String, strArray() As String

Open "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

strArray = Split(strTmp, vbCrLf) '将文件放到数组里,一个数组元素代表文件的一行
怎么向数据库里写就看你自己的了!~~~~
我做出来了
Private Sub Command1_Click()

Dim T As Long
Dim H As Long
Dim strTmp As String, strArray() As String
Dim str2Array() As String

Open "d:\aa.txt" For Input As #1

strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)

Close #1

strArray = Split(strTmp, vbCrLf) '将文件放到数组里,一个数组元素代表文件的一行

For T = 0 To UBound(strArray)
    
    str2Array = Split(strArray(T), ",")
    
    aa = str2Array(0)
    bb = str2Array(1)
    cc = str2Array(2)
    dd = str2Array(3)
    ee = str2Array(4)
Next T

End Sub
多谢大家。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘