请问,如何将连接数据库的那段程序放到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
...全文
93 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
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

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧