首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2012-01-06 
数据库连接菜鸟问题大家好,我在定义了一个类模块,用于数据库连接的如下:OptionExplicitPubliccnAsADODB.Co

数据库连接菜鸟问题
大家好,我在定义了一个类模块,用于数据库连接的如下:
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

热点排行