1)首先需要用Office軟件中的Access軟件建立壹個學生基本信息數據庫。表中新建幾個表,可以是學生名冊表,學生各專業課程分數登錄表等等。
2)VB新建數據工程,此時VB6集成調試環境左邊工具箱內已加載了有關數據庫編程必須的控件。
3)然後在FORM1窗體中添加ADO數據控件,右鍵-ADODC1控件屬性頁-使用連接字符串,選生成,在提供者選項中選MICROSOFT jet 4.0 OLE DB Provider,然後按要求連接數據庫等。在ADODC1控件屬性頁使用連接字符串空白文本窗口中就有壹長串字符串,註意該字符串可復制到程序代碼用於編程。
ADODC1控件屬性頁的數據源內有命令文本(SQL)編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復制到程序代碼用於編程。
4)可以將SQL查詢語句賦值給ADO數據控件的RecordSource屬性來達到添加、刪除、修改或查詢。
5)數據的輸入、修改等可靈活應用文本框或數據表格控件與ADO數據控件通過代碼綁定。
6)想使用ADO數據對象,也可將ADO數據控件所寫的代碼較方便的移植給ADO數據對象。
典型的ADO數據控件的數據連接和查詢代碼:
Private?Sub?Command4_Click()Adodc1.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=D:\Program?Files\Microsoft?Visual?Studio\VB98\BIBLIO.MDB;Persist?Security?Info=False"
Adodc1.RecordSource?=?"select?*?from?Authors?where?Author='Jacobs_Russell'"
Adodc1.Refresh
Set?DataGrid1.DataSource?=?Adodc1
End?Sub
典型的數據對象代碼:
Private?Sub?Command11_Click()Dim?cn?As?New?ADODB.Connection?'定義數據庫的連接
Dim?rs?As?New?ADODB.Recordset
Dim?sql?As?String
sql?=?"select?*?from?guzhang_sj"?'?where?madanhao='1'"
cn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="?&?App.Path?&?"\wd.mdb;Persist?Security?Info=False"
cn.Open
rs.CursorLocation?=?adUseClient
rs.Open?sql,?cn,?adOpenDynamic,?adLockOptimistic
Set?MSHFlexGrid1.DataSource?=?rs
rs.AddNew
rs.Fields(0).Value?=?"14"
rs.Update
End?Sub