VB6 and ASP 制作管理系统1--VB6连接SQL2000

主要侧重与代码方面，关于数据库设计，只要你做过，基本没有什么问题！

1.VB6->新建程序

添加引用

工程—>引用

 Microsoft ActiveX Data Objects 2.8 Libray (或其它版本)

 Microsoft ActiveX Data Objects Recordset 2.8 Libray (或其它版本)

新建模块MyConn.bas（用于数据库连接）

调用打开数据库连接

Call OpenConn

 关闭数据库连接（用的时候用到rs，所以连同rs写到函数里了）

Call CloseConn

MyConn.bas代码如下：

 1  ' 定义数据连接
 2  Public conn  As  New ADODB.Connection
 3  ' 定义数据集
 4  Public rs  As  New ADODB.Recordset
 5  ' 数据库名称
 6  Public Dataname  As  String
 7  ' 数据库主机
 8  Public hostip  As  String
 9  ' 用户名
10  Public hostuser  As  String
11  ' 密码
12  Public hostpass  As  String
13  ' 数据库连接字符串
14  Public Cnstr  As  String
15 
16  ' 连接数据库函数
17  ' -------------------------------------------------
18  Public  Sub OpenConn()
19       ' Cnstr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & DbUser & ";pwd=" & DbPw & ";DRIVER=SQL Server;DATABASE=" & DbName & ";WSID=GQSOFT;SERVER=" & DbIP
20        ' conn.Open Cnstr 使用 Connection 集合的 Open 方法 与数据库建立连接
21 
22     hostip =  " 192.168.9.71 "
23     hostuser =  " sa "
24     hostpass =  " bmschool "
25     Dataname =  " Vehicle "
26     conn.ConnectionString =  " Driver={SQL Server};server= " & hostip &  " ;uid= " & hostuser &  " ;pwd= " & hostpass &  " ;database= " & Dataname &  ""
27     conn.Open
28  End Sub
29  ' 关闭数据
30  Public  Sub CloseConn()
31     rs.Close
32      Set rs =  Nothing
33     conn.Close
34      Set conn =  Nothing
35  End Sub