您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

数据库连接菜鸟问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

数据库连接菜鸟问题[已结贴,结贴人:li_net]

发表于：2007-01-13 08:28:27 楼主

大家好，我在定义了一个类模块，用于数据库连接的如下：
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

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

发表于：2007-01-13 11:17:181楼得分:25

dim cls as new 你的类名！

cls.公共成员函数

═══════════════════
　免费的源码、工具网站，欢迎大家访问！
　http://www.egooglet.com/
　http://www.j2soft.cn/
═══════════════════

发表于：2007-01-13 20:10:422楼得分:0

谢谢楼上，不过我在新的窗体发生错误：
实时错误‘91'
对象变量或with 块变量未设置
----------------------------新的窗体如下
dim cls1 as new class1

private sub form_load（)

cls1.rs.open "select * from userinfor ", cls1.cn, 3, 1

end sub

==================
请再指导，谢谢！

发表于：2007-01-13 23:20:123楼得分:25

谢谢楼上，不过我在新的窗体发生错误：
实时错误‘91'
对象变量或with 块变量未设置
re:
加上 set rs =new adodb.recordset
另 public rs as recordset 应该为 public rs as adodb.recordset

发表于：2007-01-15 11:30:504楼得分:0

还是不行，没有其它办法了？

下一篇：一个查询进度表的问题?
上一篇：vb中用ado连接数据库出现的问题

其他资讯