vb第8章：數(shù)據(jù)庫Newppt課件

1、V i s u a l B A S I C 程序設(shè)計程序設(shè)計第第8 8章章數(shù)數(shù) 據(jù)據(jù) 庫庫本章要點本章要點: : 可視化數(shù)據(jù)管理器可視化數(shù)據(jù)管理器 數(shù)據(jù)控件和數(shù)據(jù)綁定控件數(shù)據(jù)控件和數(shù)據(jù)綁定控件 使用使用ADOADO訪問數(shù)據(jù)訪問數(shù)據(jù)第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.1 數(shù)據(jù)訪問對象模型數(shù)據(jù)訪問對象模型 在在VB中，要對數(shù)據(jù)庫進行訪問，需要通過數(shù)據(jù)中，要對數(shù)據(jù)庫進行訪問，需要通過數(shù)據(jù)訪問對象進行，數(shù)據(jù)訪問對象包括訪問對象進行，數(shù)據(jù)訪問對象包括:1. DAO: Data Access Object 數(shù)據(jù)訪問對象數(shù)據(jù)訪問對象2. RDO: Remote Data Object 遠程數(shù)據(jù)對象遠程數(shù)據(jù)對象

2、3. ADO: ActiveX Data Object ActiveX數(shù)據(jù)對象數(shù)據(jù)對象 ADO是是DAO/RDO的后繼產(chǎn)物，它擴展了的后繼產(chǎn)物，它擴展了DAO和和RDO所使用的對象模型，包含較少的對象，更所使用的對象模型，包含較少的對象，更多的屬性、事件和方法。多的屬性、事件和方法。 通過通過ADO可以訪問各種各樣的數(shù)據(jù)源?？梢栽L問各種各樣的數(shù)據(jù)源。第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.2 8.2 可視化數(shù)據(jù)管理器可視化數(shù)據(jù)管理器 提供可視界面，用于建立數(shù)據(jù)庫；對數(shù)據(jù)庫進提供可視界面，用于建立數(shù)據(jù)庫；對數(shù)據(jù)庫進行修改、添加、刪除、查詢等操作。行修改、添加、刪除、查詢等操作。第八章第八章 數(shù)數(shù) 據(jù)據(jù)

3、 庫庫8.2.1 數(shù)據(jù)的增加、刪除、修正數(shù)據(jù)的增加、刪除、修正表類型表類型動態(tài)集類型動態(tài)集類型快照類型快照類型使用使用Data控件控件不使用不使用Data控件控件使用使用DBGrid控件控件開始事務(wù)開始事務(wù)回滾當前事務(wù)回滾當前事務(wù) 提交當前事務(wù)提交當前事務(wù) 第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.2 8.2 數(shù)據(jù)控件和數(shù)據(jù)綁定控件數(shù)據(jù)控件和數(shù)據(jù)綁定控件數(shù)據(jù)控件數(shù)據(jù)控件: 可以對數(shù)據(jù)庫中的數(shù)據(jù)進行操作，卻不可以對數(shù)據(jù)庫中的數(shù)據(jù)進行操作，卻不能顯示數(shù)據(jù)庫中的數(shù)據(jù)能顯示數(shù)據(jù)庫中的數(shù)據(jù)綁定控件綁定控件: 用于顯示由數(shù)據(jù)控件所確定的記錄集中用于顯示由數(shù)據(jù)控件所確定的記錄集中的數(shù)據(jù)。的數(shù)據(jù)。 綁定控件、數(shù)據(jù)控件

4、和數(shù)據(jù)庫之間的關(guān)系如下綁定控件、數(shù)據(jù)控件和數(shù)據(jù)庫之間的關(guān)系如下:綁定控件綁定控件數(shù)據(jù)控件數(shù)據(jù)控件數(shù)據(jù)庫數(shù)據(jù)庫第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.3 數(shù)據(jù)綁定控件數(shù)據(jù)綁定控件 要使數(shù)據(jù)綁定控件能夠顯示數(shù)據(jù)庫記錄集中要使數(shù)據(jù)綁定控件能夠顯示數(shù)據(jù)庫記錄集中的數(shù)據(jù)，必須首先在設(shè)計時或在運行時設(shè)置這些的數(shù)據(jù)，必須首先在設(shè)計時或在運行時設(shè)置這些控件的兩個屬性控件的兩個屬性:DataSource屬性屬性: 返回或設(shè)置一個數(shù)據(jù)源，通過該返回或設(shè)置一個數(shù)據(jù)源，通過該數(shù)據(jù)源，數(shù)據(jù)綁定控件被綁定到一個數(shù)據(jù)庫。數(shù)據(jù)源，數(shù)據(jù)綁定控件被綁定到一個數(shù)據(jù)庫。DataField屬性屬性: 返回或設(shè)置數(shù)據(jù)綁定控件將被綁定返回或設(shè)置

5、數(shù)據(jù)綁定控件將被綁定到的字段名。到的字段名。第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.4 ADO數(shù)據(jù)控件 ADO是Microsoft處理數(shù)據(jù)庫信息的最新技術(shù)，它是一種ActiveX對象，采用了被稱為OLE DB的數(shù)據(jù)訪問模式。它是數(shù)據(jù)訪問對象DAO、遠程數(shù)據(jù)對象RDO和開放數(shù)據(jù)庫互連ODBC三種方式的擴展。ADO對象模型更為簡化，不論是存取本地的還是遠程的數(shù)據(jù)，都提供了統(tǒng)一的接口。8.4.2 使用使用ADO數(shù)據(jù)控件數(shù)據(jù)控件8.4.1 ADO對象模型對象模型 在使用ADO數(shù)據(jù)控件前，必須先通過“工程/部件菜單命令選擇“Microsoft ADO Data Control 6.0(OLE DB)”選項，將

6、ADO數(shù)據(jù)控件添加到工具箱。ADO數(shù)據(jù)控件與Visual Basic的內(nèi)部數(shù)據(jù)控件很相似，它允許使用ADO數(shù)據(jù)控件的基本屬性快速地創(chuàng)建與數(shù)據(jù)庫的連接。第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫工具箱內(nèi)ADO控件圖標形狀 畫在窗體上的外觀能夠利用三種記錄集對象訪問數(shù)據(jù)庫中的數(shù)據(jù)，連接方法：ADO控件連接設(shè)置連接屬性ADO控件屬性說明ConnectionString包含了用于與數(shù)據(jù)源建立連接的相關(guān)信息（ADO控件沒有DatabaseName屬性） 。RecordSource確定具體可訪問的數(shù)據(jù)，這些數(shù)據(jù)構(gòu)成記錄集對象Recordset。第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫連接操作-鼠標右擊ADO控件，選擇快捷菜單

7、“ADODC屬性命令，打開ADO控件屬性頁窗：單擊第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫選定第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫選擇服務(wù)器選擇數(shù)據(jù)庫第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫選擇命令類型選擇數(shù)據(jù)源第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫設(shè)置完成后，ADO控件的ConnectionString屬性為： Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=學生信息管理;Data Source=LCHRecordSource屬性為：Select * From 學生表ADO控件的的其他操作與Dat

8、a控件相同。第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.4.3 ADO控件上綁定控件的使用網(wǎng)格控件比較網(wǎng)格控件分 類功能說明MSFlexGrid標準不能進行編輯，有圖形功能。MSHFlexGridOLEDB不能進行編輯，可分層處理網(wǎng)格，有圖形功能。DataGridOLEDB可以進行編輯操作，顯示文本。MSFlexGridMSHFlexGridDataGridMSChartDataComboDataList例例 使用使用ADO控件和控件和DataGrid網(wǎng)格控件瀏覽數(shù)據(jù)庫。網(wǎng)格控件瀏覽數(shù)據(jù)庫。 第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫一、如何往數(shù)據(jù)庫中添加數(shù)據(jù)第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫Private Sub C

9、ommand2_Click() Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(學號) = Text1.Text Adodc1.Recordset.Fields(姓名) = Text2.Text Adodc1.Recordset.Fields(性別) = IIf(Option1.Value, 男, 女) Adodc1.Recordset.Fields(所在院系) = Combo1.Text Adodc1.Recordset.Fields(年齡) = Val(Text3.Text) Adodc1.Recordset.F

10、ields(入學年份) = Text4.Text Adodc1.Recordset.Update Text1.Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = End Sub第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫二、如何查詢指定條件數(shù)據(jù)第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Adodc1.RecordSource = Select * From 學生表 Where 姓名= & Text5.Text

11、 & Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset.Fields(學號) Text2.Text = Adodc1.Recordset.Fields(姓名) Option1.Value = IIf(Adodc1.Recordset.Fields(性別) = 男, True, False) Option2.Value = IIf(Adodc1.Recordset.Fields(性別) = 女, True, False) Combo1.Text = Adodc1.Recordset.

12、Fields(所在院系) Text3.Text = Adodc1.Recordset.Fields(年齡) Text4.Text = Adodc1.Recordset.Fields(入學年份) Else MsgBox 該學生不存在, vbInformation End If End IfEnd Sub第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫三、用表格顯示滿足條件數(shù)據(jù)步驟：1、添加DataGrid控件 2、將DataGrid控件的DataSource屬性設(shè)置為Adodc1第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫四、如何刪除指定條件的記錄第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫Private Su

13、b Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Adodc1.RecordSource = Select * From 學生表 Where 姓名= & Text5.Text & Adodc1.Refresh If Not Adodc1.Recordset.EOF Then sel = MsgBox(確認要刪除 & Text5.Text & 嗎?, vbQuestion + vbYesNo) If sel = vbYes Then Adodc1.Recordset.Delete End If Else MsgBox 該學生不存在, vbInformation End If End IfEnd Su