请问,如何将连接数据库的那段程序放到model中。

regin_me 2004-09-07 09:07:55
将连接数据库的程序放在哪儿才可以不需要每次都加载它?

dim conn as adodb.connection
dim connstr as string
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
...全文
65 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
starsoulxp 2004-09-07
'放模块中,然后把启动对象调为Sub Main

'定义ADO的相关对象变量
dim conn as adodb.connection
dim connstr as string

Private Sub Main()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr
End Sub
回复
regin_me 2004-09-07
是的话我就结帖了。
回复
regin_me 2004-09-07
是不是在工程中新建一个模块,模块中放入程序:
————————————
'CONNECT THE SQL SERVER
Private Sub Main()

public conn as adodb.connection
dim connstr as string

connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr

End Sub

————————————————————————
是不是这样就可以了?
回复
tztz520 2004-09-07
'放到模块中
public conn as adodb.connection
dim connstr as string

connstr = "Provider=SQLOLEDB.1;Persist Security Info=True; Initial Catalog=[数据库名];Data Source=[服务器名]; User ID=sa;Password=;"
set conn = new adodb.connection
If conn.State = adStateOpen Then conn.Close
conn.open connstr

'在模块中用PUBLIC定义的CONN就可以在全局中用了
回复
itxxx 2004-09-07
'放模块中,然后把启动对象调为Sub Main

'定义ADO的相关对象变量
Private Sub Main()
'连接数据库的程序
End Sub
回复
jackclh 2004-09-07
'放模块中,然后把启动对象调为Sub Main

'定义ADO的相关对象变量
Public Sub Main()
'连接数据库的程序
End Sub
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-09-07 09:07
社区公告
暂无公告