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

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

编辑:说三道四文库 发布时间:2018-01-18 04:30
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
多谢大家。
快速选择里List全部项目-VB资料 VB利用 App.Path 读取「应用程序所在之目录」 VB利用 EM_LINESCROLL 信息控制 TextBox 的卷动。 命名的技巧 -VB资料 目录所占的字节数-VB资料 问一个令我郁闷的有关导出到Excel的问题,帮帮我! 求sql语句(检索最后加入某组的用户) 高分求救,在线等,利用ADO往表里插入记录时的问题 高分求select模型服务器端的源码。需要同时管理多个socket. solaris8中怎样得到硬盘每个分区的使用情况,怎样看出剩余多少空间 帮一朋友问个小问题!谢谢! 《Effective Java》侯捷译下载 请问要将输出的文本设置为斜体、粗体,该如何实现? 数据导入导出问题,谢谢 某人去年全年收入为2万元,今年全年收入是是2.4万 在进行“探究影响鼠妇分布的环境因素”的活动时,所用 在研究环境因素对鼠的分布影响的实验中所用鼠妇的数量 如何证明硫酸钠的存在?现在有硫酸和硫酸钠的混合溶液 硫酸和硫酸钠的混合溶液中.常温下,向100mLpH 硫酸和硫酸钠的混合溶液如何分别检验这两个溶质 甲同学在某食品包装带内,发现一个装有白色颗粒固体A 去年销售额是100,今年销售额是200,问现在比过 今年销售额比去年多了35万元,去年是今年的百分之9 新消法引入\"举证倒置\" 经营者需前3季度国内渔业产值达5362亿元 上海自贸试验区营造“宽进严管”的营商谷歌雅虎数据遭美国国安局窃取 美媒称菲律宾议员“港人生命值钱说”激起香港证监会发招!监管层今天宣布了这些大事【猎头】对汽车品牌策划感兴趣?搜狐在混社会能和这12种贵人做朋友,也算人【两会】李书福三刻拍案惊奇白领市场成外卖重点 饿了么37%排绝命神通魔非仙破界笔录第三幻想魔导师道衍至尊飞升崖旅游两仪殿旅游南岩旅游一柱十二梁旅游九曲黄河墙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘