Question

VB6.0 多窗体共用一个数据库连接的问题

用VB6.0做个一个记录报表的软件，共3个窗体，一个是主窗体，显示报表的列表，一个是显示详细的窗体，显示某个报表的详细内容，一个是新建报表，现在连接数据库成功了，但是我想要这几个窗体只写一次连接数据库，就像ASP网站里面，把数据库连接写成一个CONN.asp文件，然后其他网页要读取数据库就直接调用那个网页一样，需要怎么做？

Answer 1

可以用模块，下面代码放入模块中，要开的地方用
开：call OpenConn

关：CloseConn

‘==========================
Public cn As New ADODB.Connection '连接
Public rs As New ADODB.Recordset '记录集

Public Sub OpenConn() '连接数据库
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Jet OLEDB:Database Password=cjw123456;Persist Security Info=False;"
End Sub

'关闭数据库连接
Public Sub CloseConn()
'rs.Close
'Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Answer 2

可以啊！
（1）你需要在VB工程中添加一个模块，然后在模块中添加两个公共变量。
Public cn As New ADODB.Connection '连接
Public rs As New ADODB.Recordset '记录集
（2）然后在你的主窗口那里连接数据库。
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Jet OLEDB:Database Password=123456;Persist Security Info=False;" ‘这条语句可以用VB自动生成
（3）之后你就可以其他的窗口做查询、添加、修改等工作了
如果还有什么不明白了，Hi我！

Answer 3

'调用连接
Set conn = OpenDB()

'模块级代码,打开数据库
Public Function OpenDB()
'dbfile="c:\db.mdb"
Set conn = server.CreateObject("adodb.connection")
strcon = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile & ";"
conn.open strcon
Set OpenDB = conn
End Function

'调用关闭数据库
CloseDB conn

Public Sub CloseDB(connobj)
'模块极代码，关闭数据库
connobj.Close
Set connobj = Nothing
End Sub

Answer 4

把连接数据库的代码写入模块中

Answer 5

把连接对象和数据集对象写成公共的啦。直接调用数据集就可以啦

有问题可以m我