[求助]数据库连接
在模块中建立数据库连接，怎么编写他的公共变量呀？
2007-10-02 18:14
2007-10-02 18:26
2007-10-02 18:30
我以为是个多新颖的问题呢。搜索论坛。
2007-10-02 18:31
2007-10-02 18:32
泼辣
2007-10-02 18:33
2007-10-02 18:34
2007-10-02 18:35
2007-10-02 18:37
Public cn As New Connection
Public rs As New Recordset
Public ConStr As String
Public Sub main()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\数据库\manage.mdb"
登陆界面.Show
End Sub
2007-10-02 18:42
