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

1、V i s u a l B A S I C 程序設(shè)計(jì)程序設(shè)計(jì)第第8 8章章數(shù)數(shù) 據(jù)據(jù) 庫庫本章要點(diǎn)本章要點(diǎn): : 可視化數(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ù)訪問對(duì)象模型數(shù)據(jù)訪問對(duì)象模型 在在VB中，要對(duì)數(shù)據(jù)庫進(jìn)行訪問，需要通過數(shù)據(jù)中，要對(duì)數(shù)據(jù)庫進(jìn)行訪問，需要通過數(shù)據(jù)訪問對(duì)象進(jìn)行，數(shù)據(jù)訪問對(duì)象包括訪問對(duì)象進(jìn)行，數(shù)據(jù)訪問對(duì)象包括:1. DAO: Data Access Object 數(shù)據(jù)訪問對(duì)象數(shù)據(jù)訪問對(duì)象2. RDO: Remote Data Object 遠(yuǎn)程數(shù)據(jù)對(duì)象遠(yuǎn)程數(shù)據(jù)對(duì)象

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

3、 庫庫8.2.1 數(shù)據(jù)的增加、刪除、修正數(shù)據(jù)的增加、刪除、修正表類型表類型動(dòng)態(tài)集類型動(dòng)態(tài)集類型快照類型快照類型使用使用Data控件控件不使用不使用Data控件控件使用使用DBGrid控件控件開始事務(wù)開始事務(wù)回滾當(dāng)前事務(wù)回滾當(dāng)前事務(wù) 提交當(dāng)前事務(wù)提交當(dāng)前事務(wù) 第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.2 8.2 數(shù)據(jù)控件和數(shù)據(jù)綁定控件數(shù)據(jù)控件和數(shù)據(jù)綁定控件數(shù)據(jù)控件數(shù)據(jù)控件: 可以對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行操作，卻不可以對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行操作，卻不能顯示數(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è)計(jì)時(shí)或在運(yùn)行時(shí)設(shè)置這些的數(shù)據(jù)，必須首先在設(shè)計(jì)時(shí)或在運(yùn)行時(shí)設(shè)置這些控件的兩個(gè)屬性控件的兩個(gè)屬性:DataSource屬性屬性: 返回或設(shè)置一個(gè)數(shù)據(jù)源，通過該返回或設(shè)置一個(gè)數(shù)據(jù)源，通過該數(shù)據(jù)源，數(shù)據(jù)綁定控件被綁定到一個(gè)數(shù)據(jù)庫。數(shù)據(jù)源，數(shù)據(jù)綁定控件被綁定到一個(gè)數(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對(duì)象，采用了被稱為OLE DB的數(shù)據(jù)訪問模式。它是數(shù)據(jù)訪問對(duì)象DAO、遠(yuǎn)程數(shù)據(jù)對(duì)象RDO和開放數(shù)據(jù)庫互連ODBC三種方式的擴(kuò)展。ADO對(duì)象模型更為簡(jiǎn)化，不論是存取本地的還是遠(yuǎn)程的數(shù)據(jù)，都提供了統(tǒng)一的接口。8.4.2 使用使用ADO數(shù)據(jù)控件數(shù)據(jù)控件8.4.1 ADO對(duì)象模型對(duì)象模型 在使用ADO數(shù)據(jù)控件前，必須先通過“工程/部件菜單命令選擇“Microsoft ADO Data Control 6.0(OLE DB)”選項(xiàng)，將

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控件圖標(biāo)形狀 畫在窗體上的外觀能夠利用三種記錄集對(duì)象訪問數(shù)據(jù)庫中的數(shù)據(jù)，連接方法：ADO控件連接設(shè)置連接屬性ADO控件屬性說明ConnectionString包含了用于與數(shù)據(jù)源建立連接的相關(guān)信息（ADO控件沒有DatabaseName屬性） 。RecordSource確定具體可訪問的數(shù)據(jù)，這些數(shù)據(jù)構(gòu)成記錄集對(duì)象Recordset。第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫連接操作-鼠標(biāo)右擊ADO控件，選擇快捷菜單

7、“ADODC屬性命令，打開ADO控件屬性頁窗：?jiǎn)螕舻诎苏碌诎苏?數(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=學(xué)生信息管理;Data Source=LCHRecordSource屬性為：Select * From 學(xué)生表ADO控件的的其他操作與Dat

8、a控件相同。第八章第八章 數(shù)數(shù) 據(jù)據(jù) 庫庫8.4.3 ADO控件上綁定控件的使用網(wǎng)格控件比較網(wǎng)格控件分 類功能說明MSFlexGrid標(biāo)準(zhǔn)不能進(jìn)行編輯，有圖形功能。MSHFlexGridOLEDB不能進(jìn)行編輯，可分層處理網(wǎng)格，有圖形功能。DataGridOLEDB可以進(jìn)行編輯操作，顯示文本。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(學(xué)號(hào)) = 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(入學(xué)年份) = 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 學(xué)生表 Where 姓名= & Text5.Text

11、 & Adodc1.Refresh If Not Adodc1.Recordset.EOF Then Text1.Text = Adodc1.Recordset.Fields(學(xué)號(hào)) 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(入學(xué)年份) Else MsgBox 該學(xué)生不存在, 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 學(xué)生表 Where 姓名= & Text5.Text & Adodc1.Refresh If Not Adodc1.Recordset.EOF Then sel = MsgBox(確認(rèn)要?jiǎng)h除 & Text5.Text & 嗎?, vbQuestion + vbYesNo) If sel = vbYes Then Adodc1.Recordset.Delete End If Else MsgBox 該學(xué)生不存在, vbInformation End If End IfEnd Su