如何判断程序是否已经连接到数据库啊

[victor5945]

现在我在作一个数据管道，涉及到连接数据库和关闭数据库，
在程序开始的时候我已经建立了连接数据库，但是我在调用数据管道过程中，想在建立连接数据库之前，判断一下程序已经连接到数据库，改如何实现啊

[ropriest]

If sqlca.sqlcode <> 0 Then
MessageBox('','数据库未连接')
Else
MessageBox('','数据库已连接')
End If

[TGWall]

程序开始时已经连接，如果之后你没有断开的话，那么它就应当处于连接状态。
那么在开始连接时，用一个全局变量来接保存连接返回值应当可以了，如：

gi_rcode=Connect using sqlca;

在后面的程序中只要判断一下gi_rcode的值就行了

[TGWall]

错了，上面的应当是：
Connect using sqlca;
gi_rcode=sqlca.sqlcode

[njjianguogu]

Connect using sqlca;
If sqlca.sqlcode <> 0 Then
MessageBox('','数据库未连接')
Else
MessageBox('','数据库已连接')
End If

[victor5945]

谢谢大家了