用ado的addnew将txt文本文件导入到一个空的oracle数据库的表中,为什么总报错“记录集不能为空,”
难道如果这个表为空的话,就不能用这个方法吗?
with rs
.addnew
.fields("text")="aaaaaaaaaaaa"
.update
end with
即使我把 ".addnew"这一行先注释掉,也是报同样的错。
难道如果这个表为空的话,就不能用这个方法吗?
with rs
.addnew
.fields("text")="aaaaaaaaaaaa"
.update
end with
即使我把 ".addnew"这一行先注释掉,也是报同样的错。
解决方案 »
- 多媒体式排队叫号系统
- 100高分悬赏 如何在VB应用程序中控制.net网页上按钮(调用.net上的Button_Click事件) 谢谢 急急急
- 用代码生成sql再输出到文本的问题。
- 为什么我加上分组标题,就提示数据源和报表不匹配?
- 请问如何的利用VB来控制系统为不待机状态,操作系统可能为,win2k
- 笨问题:如何用语句选定Check控件
- 一个小问题,谢谢各位指导
- 一个VB使用的问题!!!
- 高分求一“计算器”程序源代码,VB或Delphi均可,快呀
- 请问哪有VB调用TAPI的资料或控件?(内空)
- 再送分,MSFlex Grid如何实现ctrl选中不相邻的行
- 如何解决runtime error '-2147417848'错误呢?程序时而正常,时而弹出这个错误,郁闷啊!!!
lssql = "Select * from table"
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open lssql, con
Open "c:\abcd.txt" For Input As #1
End With
While Not EOF(1)
Line Input #1, lstr
lsstr = Split(lstr, Chr(9))
With rs
.AddNew
For i = 0 To UBound(lsstr)
.Fields(i) = lsstr(i)
.Update
Next
End With
Wend
Close #1
效率可能不高,但能导入,文本文件是用空格分割的,要保证ORACLE的表的字段数和文本文件的是一样的!
我用的是ORACLE8i,操作系统是AIX!