主要側重與代碼方面,關於資料庫設計,只要你做過,基本沒有什麼問題!
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