VB6.0连接oracle 10G 查询教多数据时出现的问题

MattHgh 2008-03-27 06:24:31
我也能成功连接oracle并获取数据,但是当获取的数据量稍微过大一点时.
我的VB程序就会变成没响应状态....
我想应该是 的连接数据库方式的问题,大家帮我看看怎么解决下.
我代码里是通过什么方式连接数据库的?
我其实不太明白,我并没有拉adodb这样的控件出来
我也都没建立数据源
用数据源连接数据库会不会快点呢?
请大家给我说下具体怎么用数据源连接oracle把,谢谢了
另我见有个叫 ORADC 的控件,怎么是怎么使用的呢?

最后,VB怎么读取和写入clob类型的数据啊

我的代码如下

Private Sub Command1_Click()
Dim mysqlstr As String
Set conn = New adodb.Connection
Set rs = New adodb.Recordset

conn.ConnectionString = "Provider=MSDAORA.1;User ID=system;Password=852;Data Source=orcl;Persist Security Info=False;"
'conn.ConnectionTimeout = 30
conn.Open

mysqlstr = "select * from ok_mydate " 'sql语句


Set rs = conn.Execute(mysqlstr) '建立记录集
Do While Not rs.EOF

For i = 0 To rs.Fields.Count - 1
T_rs.Text = T_rs.Text & rs.Fields(i) '输出表中各字段
T_rs.Text = T_rs.Text & vbCrLf '换行
Next i

T_rs.Text = T_rs.Text & vbCrLf & "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*" & vbCrLf & vbCrLf '换行

rs.MoveNext

Loop
End Sub



...全文
96 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
yesBright 2008-05-05
  • 打赏
  • 举报
回复
你的机器的内存太小了,或者在循环中加入DoEvents,在不同程序间切换时就不会死了。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧