小弟想在form2中使用form1中定义的cnn1连接与rst1记录集，该怎样用，这样可以吗？

gflily 2003-08-19 07:58:49

两个窗体以上的窗体都想用同一个数据库。只定义一次可以吗？
其中一个窗体form1里定义了cnn1与rst1,其余窗体是按了form1上的按钮而后显示出来的窗体。依次有form2,form3,...,form2,form3等都想用cnn1与rst1,难道要重新定义？
怎样才能在form2,form3里使用form1里已定义好的cnn1与rst1?

...全文

63 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

hzybc 2003-08-20

打赏
举报

回复

在模块中将cnn1与rst1定义成全局变量

RedShoes 2003-08-20

打赏
举报

回复

添加模块

coresky 2003-08-20

打赏
举报

回复

如果 Form1的RSt1没有清空或关闭，也就是set rst1=nothking 或rst1.close,则rst1就一直存放在内存中，当然form1窗体不能关闭。这时在另一个窗体的代码中就可以调用。

wumy_ld 2003-08-19

打赏
举报

回复

单击“工程”->“添加模块”，添加一个模块，像楼上说的那样，把cnn1与rst1定义成Public型的变量
public cnn1 as new adodb.connection
public rst1 as new adodb.recordset

这样这些变量在所有窗体里面都可以引用、赋值

Wang_xiaoni 2003-08-19

打赏
举报

回复

你可以定义一个模块，把CNN,cnnstr等都放进去，设为PUBLIC，其它窗体使用就可以了，这样也可以解决代码重用，做一个FUNCTION　返回值为一个RECORDSET，其它的直接使用就可以了，不过你要注意，如果模块中使用DAO那么其它地方也就要用DAO，反之ADO一样

Set rst.ActiveConnection = cnn '设置记录集的数据库连接 rst.Open "SELECT [bus] FROM [bus]" '打开记录集，得到线路名数据 lstbus.Clear '清除列表框中原有内容 Do While Not rst.EOF '循环处理记录集中的...

Private Sub Command1_Click() Dim cnn As New ADODB.Connection Dim strcnn As String Dim rst As New ADODB.Recordset Dim sql As String strcnn = "provider=sqloledb.1;integrated security=sspi;database=...

Private Sub Form_Load() Timer1.Interval = 300 End Sub Private Sub Timer1_Timer() Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rst As New ADODB.Recordset Dim Sqlser_time cnn....

The spatial pyramid pooling module takes advantage of the capacity of global context information by aggregating context in different scales and locations to form a cost volume. The 3D CNN learns to ...

To tackle this problem, we propose PSMNet, a pyramid stereo matching network consisting of two main modules: spatial pyramid pooling and 3D CNN. The spatial pyramid pooling module takes advantage of ...

数据库(包含打印，安装，报表)

1,216

社区成员

55,954

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章