第四团队—Team 4

在今天"攻克了Vb外部调用ASP连接数据库的一段代码"同时,经过曾建孙和王莹的探讨与严格的测试,终于可以在VB里面通过一个类模块提供其它类模块连接数据库的代码,使管理数据库更加安全和简单.同时也使得整个系统代码优化. 过程如下"

1>建立一个类模块:News_Conn:

Public Function conn1()

'******************数据连接设置***********

Dim ConnStr, SqlUsername, SqlPassword, SqlDatabaseName, SqlHostIP, cntimeout, conn

SqlUsername = ""                   '连接用户名

SqlPassword = ""               '连接密码

SqlDatabaseName = ""                    '库名

SqlHostIP = ""                    '服务器名或IP地址

cntimeout = 10                          '数据库连接超时设置

ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";" & "CONNect Timeout=" & cntimeout

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open ConnStr

conn1 = conn

End Function

2>再建立一个类模块:News_List:

找到里面的:

Public Sub AspClassInit()

On Error Resume Next

修改为:

Public Sub AspClassInit()

On Error Resume Next

    Dim connclass As New News_Conn  'News_Conn 为上面建立的连接数据库的类模块

    conn = connclass.conn1

    Set connclass = Nothing

到这里结束.

希望有更加好的连接调用方式和朋友一起探讨.