读书人

数据库连接初学者有关问题

发布时间: 2012-01-06 22:55:18 作者: rapoo

数据库连接菜鸟问题
大家好,我在定义了一个类模块,用于数据库连接的如下:
Option Explicit
Public cn As ADODB.Connection
Public rs As Recordset
Public Sub DbLoad()
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "driver={sql server};server=192.168.1.254;uid=sa;pwd=admin.com;database=vbst "
End Sub
Private Sub Main()
If App.PrevInstance = True Then MsgBox "程序已经在运行! ", 64: Exit Sub
Call DbLoad
Form1.Show
End Sub

-------------
我想另建一个窗体,但不知如何调用这个类,
请大家给出详细代码和最好能讲解一个类是如何调用的,谢谢!


[解决办法]
谢谢楼上,不过我在新的窗体发生错误:
实时错误‘91’
对象变量或with 块变量未设置
re:
加上 set rs =new adodb.Recordset
另 Public rs As Recordset 应该为 Public rs As adodb.Recordset

读书人网 >VB

热点推荐