VB程式如何訪問資料庫

來源:互聯網
上載者:User


 
通過【Data】控制項訪問資料庫

    (1)啟動VB。
    (2)出現如圖10.12所示的建立工程的【建立】選項卡。

    (3)出現如圖10.13所示的VB主介面。

    (4)如圖10.14所示。

    (5)出現如圖10.15所示的【屬性視窗】介面。

    ―――――――――――――――――――――――――――――――――――――
    odbc;dsn=graduateDB;uid=scott;pwd=tiger;
    ―――――――――――――――――――――――――――――――――――――
    (6)如圖10.16所示。

    (7)選擇【Form1】表單上出現名為Text1的【TextBox】控制項。
    (8)出現如圖10.17所示的【TextBox】控制項的屬性視窗。
    (9)按照和Text1同樣的步驟添加名為Text2的【TextBox】控制項,其主要的設定為。
    (10)按照和Text2同樣的步驟添加名為Text3的【TextBox】控制項,其主要的設定為。
    (11)設計好的表單Form1如圖10.18所示。

    (12)在VB主介面的【快捷按鈕區】單擊運行快捷按鈕,如圖10.19所示。

    (13)運行結果如圖10.20所示。


    (14)讀者可以從本書的配套光碟片上找到執行個體的配套程式。
    【參見光碟片檔案】:第10章\使用Data控制項訪問資料庫.vbp,表單為Form1.frm。
    (15)利用表格來表示上述過程中表單的設定,如表10.1所示。


通過【ADODC】控制項訪問資料庫

    (1)啟動VB,建立新的工程。
    (2)如圖10.21所示的VB主介面的【功能表列】選擇【工程】/【組件】選項。

    (3)出現如圖10.22所示的組件的【控制項】選項卡。
    (4)如圖10.23所示。

    (5)如圖10.24所示。
    (6)出現如圖10.25所示的屬性頁面的【通用】選項卡。

    (7)切換到如圖10.26所示的屬性頁面的【身分識別驗證】選項卡。
    (8)切換到如圖10.27所示的屬性頁面的【記錄源】選項卡。

    (9)主要的屬性設定如圖10.28所示。

    (10)向Form1表單中添加一個名為Text2的【TextBox】控制項。
    (11)向Form1表單中添加一個名為Text3的【TextBox】控制項。
    (12)讀者可以從本書的配套光碟片上找到執行個體的配套程式。
    【參見光碟片檔案】:第10章\使用ADODC控制項訪問資料庫.vbp,表單為Form2.frm。
    (13)利用表格來表示上述過程中表單的設定,如表10.2所示。


    (14)程式運行結果如圖10.29所示。


通過【ADODB】編程對象訪問資料庫

    1. 引用【ADODB】對象
    要使用【ADODB】對象,必須首先進行引用。
    (1)啟動VB,建立工程。
    (2)如圖10.30所示。
    (3)出現如圖10.31所示的【引用】介面。

    2. 使用【ADODB】對象編程
    (1)設計如圖10.32所示的表單Form3。

    利用表格來表示上述過程中表單的設定,如表10.3所示。


    (2)讀者可以從本書的配套光碟片上找到執行個體的配套程式。
    【參見光碟片檔案】:第10章\使用ADODB對象編程訪問資料庫.vbp,表單為Form3.frm。
    (3)表單Form3內所有的VB代碼如下。
     ―――――――――――――――――――――――――――――――――――――
    ‘強制性聲明變數後才能使用
    Option Explicit
    ‘定義RS為ADODB對象的記錄集
    Dim Rs As New ADODB.Recordset
    ‘定義conn為ADODB對象的串連
    Private conn As ADODB.Connection
    ‘表單運行時初始化過程
    Private Sub Form_Load()
    ‘定義ConnStr為連接字串
    Dim ConnStr As String
    ‘定義Cmd為ADODB的命令字串
    Dim Cmd As New ADODB.Command
    Set conn = New ADODB.Connection
    ConnStr = "DSN=graduateDB;uid=scott;pwd=tiger;"
    conn.ConnectionString = ConnStr
    ‘按照ConnStr的內容串連資料庫
    conn.Open
    ‘查詢資料表dept的內容
    With Cmd
    .ActiveConnection = conn
    .CommandType = adCmdTable
    .CommandText = "dept"
    End With
    ‘將資料表dept的內容送記錄集RS
    With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockPessimistic
    .Open Cmd
    End With
    ‘定義3個文字框的資料來源為RS
    Set Text1.DataSource = Rs
    Set Text2.DataSource = Rs
    Set Text3.DataSource = Rs
    ‘定義3個文字框顯示的欄位
    Text1.DataField = "DEPTNO"
    Text2.DataField = "DNAME"
    Text3.DataField = "LOC"
    End Sub
    ‘單擊【首記錄】按鈕的執行過程
    Private Sub CmdFirst_Click()
        Rs.MoveFirst
        Rs.Update
    End Sub
    ‘單擊【上記錄】按鈕的執行過程
    Private Sub CmdPrevious_Click()
      Rs.MovePrevious
      If Rs.BOF Then
         Rs.MoveFirst
         Rs.Update
      End If
    End Sub
    ‘單擊【下記錄】按鈕的執行過程
    Private Sub CmdNext_Click()
      Rs.MoveNext
      If Rs.EOF Then
        Rs.MoveLast
        Rs.Update
     End If
    End Sub
    ‘單擊【末記錄】按鈕的執行過程
    Private Sub CmdLast_Click()
      Rs.MoveLast
      Rs.Update
    End Sub
    ‘單擊【退出】按鈕的執行過程
    Private Sub CmdExit_Click()
       conn.Close
       Set conn = Nothing
       Unload Me
       End Sub
    ―――――――――――――――――――――――――――――――――――――
    (4)表單Form3的運行結果如圖10.33所示。



相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

Starter Package

SSD Cloud server and data transfer for only $2.50 a month

Get Started >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。