用split分解文本文件中的行数据,然后插入数据库时出现错误,麻烦指导,谢
烦请你看看,错在哪里
下面的代码,是将形如以下文本文件的数据灌入access数据库
0307 我
0760 的
0125 便
0723 很
0224 後
……
如果我不将strline 分解作为整体插入不会出错,但是一旦用上
arrline = Split(strline, vbCrLf)进行数据分割(字和编码),马上就有错误提示:
compile error:
can't assign to array
代码如下:
Private Sub Command1_Click()
Dim astr As String
Dim resultMDB As Database
Dim strline As String
Dim arrline(2) As String
Open App.Path & "\jiandan.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strline
arrline = Split(strline, vbCrLf)
Set resultMDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\test.dat")
astr = "INSERT INTO jiandan(bianma,wenzhi) values ('" & arrline(0)&" ','" & strline(1) & "')"
resultMDB.Execute astr
Loop
resultMDB.Close
Set resultMDB = Nothing
Close #1
End Sub
下面的代码,是将形如以下文本文件的数据灌入access数据库
0307 我
0760 的
0125 便
0723 很
0224 後
……
如果我不将strline 分解作为整体插入不会出错,但是一旦用上
arrline = Split(strline, vbCrLf)进行数据分割(字和编码),马上就有错误提示:
compile error:
can't assign to array
代码如下:
Private Sub Command1_Click()
Dim astr As String
Dim resultMDB As Database
Dim strline As String
Dim arrline(2) As String
Open App.Path & "\jiandan.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strline
arrline = Split(strline, vbCrLf)
Set resultMDB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\test.dat")
astr = "INSERT INTO jiandan(bianma,wenzhi) values ('" & arrline(0)&" ','" & strline(1) & "')"
resultMDB.Execute astr
Loop
resultMDB.Close
Set resultMDB = Nothing
Close #1
End Sub
...全文
相关推荐
java把文本文件内容导入到数据库
在生产企业中,会涉及到许多诸如把外部文件内容导入到数据库。本资源采用java程序开发,文本文件内容里的字段用“,”分开(如果是其他标识符,相应修改一下就行了),方便快捷。
asp.net 读取文本文件并插入数据库的实现代码
最近我司和招行有合作,招行给财务的是一个txt格式的账务文本文件,文本文件包含很多内容,对账只需要用到其中一部分内容。
python中的split()函数和os.path.split()函数使用详解
今天小编就为大家分享一篇python中的split()函数和os.path.split()函数使用详解,具有很好的参考价值,希望对大家有所帮助。一起跟随小编过来看看吧
java读取Txt文本中的手机号码插入到数据库
java读取Txt文本中的手机号码插入到数据库,只能用炫酷来形容,感兴趣就下载看看吧
asp实现批量插入表单中的数据到数据库的方法
asp实现批量插入表单中的数据到数据库的方法


