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



...全文
54 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yesBright 2008-05-05
你的机器的内存太小了,或者在循环中加入DoEvents,在不同程序间切换时就不会死了。
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7522

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-27 06:24
社区公告
暂无公告