#完成學生管理系統，經過師傅的驗收，發現對最初的概念了解相當不深刻！又反過頭對5實例簡單看了一下，老師常說，學習最重要的是反复，透過這次觀看，重新對基本概念有所了解。
首先看幾個專業名詞：ADO---activex data object動態資料物件透過OLE DB(object linking and embed中文：物件連接與嵌入，是底端程式介面）實作對不同資料的存取。
當時師傅問我關於ADO的對象時，一下子懵了，原來我們在建立資料庫定義的connection，recordset等都是ado 的對象，它共有7個對象，在這次的學生資訊管理系統中最常見的就是上面那倆，3個獨立對象：recordset，connection，command！還有4個附屬物件：field，parameter，property，error
#OLE DB由3個部分組成：資料提供者，數據消費者，服務組件。資料提供者是類似SQL Serser，ODBC提供資料的程序，VB創建的程序就是一種典型的資料消費者，它是利用資料提供者提供的資料創建的資料應用程式。服務組件負責連接資料提供者與資料消費者。
五實例當中應用了vb外界程式的視覺化管理器所建立的micrsoft access資料庫（其檔案後綴名為.mdb），而學生資訊管理系統的資料庫是利用SQL Sever創建的（後綴名為.sql），資料庫類別的應用程式第一步是建立資料庫！第二步，建立ADO引用，在vb程式裡直接點選工程下的引用選擇microsoft activex data objects 2.6 library即可！第三步，用程式碼建立連線。下面讓我們來看看資料庫的不同連接方式比較：
1.直接連接access資料庫
dim Objcn as new connection,objRs as new recordset
objcn.connectionstring="Prvider=Microsoft.jet.OLEDB.3.5.1;" & _
"data sourse=数据远文件路径" '连接数据提供者与数据源
objcn.open
strSQL=“select ……from …… where……”
set objrs.activeconnection=objcn '将数据库记录集与数据源相匹配
objrs.open(strSQL) '记录集打开
. ‘进行数据库的增删改查操作
objcn.close ‘关闭数据库
set objrs=Nothing
set objcn=Nothing2. 利用ODBC連接access資料庫，ODBC有3種資料來源連接方式，分別為使用者DNS，系統DNS，檔案DNS，學生訊息管理系統利用的正是文件DNS的新增。
set objcn=new connection
objcn.open="dsn=数据库文件名"
set objrs=new recordset
.
objcn.close
set objrs=nothing
set objcn=nothing#3.利用ado data控制項建立資料庫連接，這種方法相對簡單，只要從控制項屬性裡面進行連線即可。
看完了5實例的連線方法，解析一下對學生管理系統連接登陸時的程式碼：
1.登陸窗體中，為走向專業化，往往資料庫的登入名稱設定為系統用戶名，所以在登陸窗體的用戶名部分自動取得系統用戶，在開頭部分呼叫API函數：
Private Declare Function GetUsername Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
窗體載入部分獲得系統使用者名稱：
Private Sub Form_Load()
Dim sbuffer As String
Dim lsize As Long
sbuffer = Space$(255) '因无法确定系统用户名的长度，先开辟一个255（最大值）空格字符控件
lsize = Len(sbuffer) 'lsize盛放sbuffer字符串的真是长度
Call GetUsername(sbuffer, lsize)
'api中字符串作函数，需要提前确定大小
If lsize > 0 Then
txtusername.Text = Left$(sbuffer, lsize)
Else
txtusername.Text = vbNullString
'没有字符串
End If
ok = False
micount = 0 ’用于登陆次数的标记
End Sub#2.在確認按鈕中建立連線：
Private Sub cmdOK_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset '用于保存数据源记录集
Dim MsgText As String
UserName = "" '先将登录名滞空
If Trim(txtusername.Text = "") Then '确认用户名输入框不为空
MsgBox "没有这个用户，请重新输入用户", vbOKOnly + vbExclamation, "警告"
txtusername.SetFocus
Else
txtSQL = "select * from user_info where user_id ='" & txtusername.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText) '
调用模块当中的executesql函数
建立数据库连接
If mrc.EOF Then
MsgBox "没有这个用
户，请重新输入用户", vbOKOnly + vbExclamation, "警告"
txtusername.SetFocus
Else '确认密码
If Trim(mrc.Fields(1)) = Trim(txtpassword.Text) Then
ok = True
mrc.Close
Me.Hide
UserName = Trim(txtusername.Text)
frmmain.Show
Else
MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtpassword.SetFocus
txtpassword.Text = ""
End If
End If
End If
micount = micount + 1 '值允许3次输入
If micount = 3 Then
Me.Hide
End If
Exit Sub
End Sub3.請理解執行函數excutesql函數的連接方式。
Public Function ConnectString() As String
ConnectString = "FileDSN=student.dsn;UID=sa;PWD=123" '文件源，登录名，验证密码
End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
'On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL) '该函数定义将sql语句中的词以空格为分解符分解开放进一个数组里
Set cnn = New ADODB.Connection '实体化，连接数据源
cnn.Open ConnectString '打开数据源
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then '比较确定sql数据开始单词是否为增，删，改
cnn.Execute SQL '执行SQL语句
MsgString = sTokens(0) & " query successful"
'虽然MsgString不是返回值，但传递方式是ByRef，实参地址和这个地址相同
Else
Set rst = New ADODB.Recordset '实例化记录集
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic '打开要执行的内容sql，连接数据源，游标类型：键集游标,窗口值固定大小
'得到临时表，游标指向第一条记录
'get RecordCount，
Set ExecuteSQL = rst
MsgString = "查询到" & rst.RecordCount & _
" 条记录 "
End If
ExecuteSQL_Exit: ‘关闭连接
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
MsgString = "查询错误: " & _
Err.Description
Resume ExecuteSQL_Exit
End Function總結來說，建立連線分三步驟策略：開啟--執行（增刪改查）- -關閉
以上就是資料庫的建立與連結問題的內容，更多相關內容請關注PHP中文網（www.php.cn）！
