VB通用记录集问题

来源：百度知道 编辑：UC知道 时间：2024/06/25 21:43:10
请问如何在VB中定义一个通用的记录集和SQL数据库连接字串。。最好是能够有实列说明一下。。
通用的意思就是要在各个窗体中的各个控件都可以调用的。。要不每一个窗体都要写一次连接串很麻烦。。

public cn As ADODB.Connection
public rs As ADODB.Recordset

'上面两句放在模块的声明里
'下面几句放在启动窗体的Form_Load()事件里
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OLEDB:Database Password = 111;Data Source=" & App.Path & "\1.mdb"
cn.Open

'然后在程序的任何地方你都可以用随便用 cn 和 rs 了，不过rs一定要记住用完以后要关闭(rs.close)

楼主，你在工程里添加一个 模块 文件，是 .bas结尾的文件，那里面可以添加 苍郁 兄弟说的这些代码，这样你在其它窗体就可以用了，呵呵。我也是最近要用到这功能才知道的。我也是VB新手。现在这个问题已经解决了。就是搞个.BAS模块出来就行了。

当然是通用啦。你没有理解我的意思吗？
你加一个BAS文件，就行了，那里面的就是通用的，就像C里的.h文件一样。