通過【data】控件訪問數(shù)據(jù)庫

    （1）啟動vb。
    （2）出現(xiàn)如圖10.12所示的新建工程的【新建】選項卡。

    （3）出現(xiàn)如圖10.13所示的vb主界面。

    （4）如圖10.14所示。

    （5）出現(xiàn)如圖10.15所示的【屬性窗口】界面。

    ―――――――――――――――――――――――――――――――――――――
    odbc;dsn=graduatedb;uid=scott;pwd=tiger;
    ―――――――――――――――――――――――――――――――――――――
    （6）如圖10.16所示。

    （7）選擇【form1】窗體上出現(xiàn)名為text1的【textbox】控件。
    （8）出現(xiàn)如圖10.17所示的【textbox】控件的屬性窗口。
    （9）按照和text1同樣的步驟添加名為text2的【textbox】控件，其主要的設(shè)置為。
    （10）按照和text2同樣的步驟添加名為text3的【textbox】控件，其主要的設(shè)置為。
    （11）設(shè)計好的窗體form1如圖10.18所示。

    （12）在vb主界面的【快捷按鈕區(qū)】單擊運(yùn)行快捷按鈕，如圖10.19所示。

    （13）運(yùn)行結(jié)果如圖10.20所示。


    （14）讀者可以從本書的配套光盤上找到實例的配套程序。
    【參見光盤文件】：第10章/使用data控件訪問數(shù)據(jù)庫.vbp，窗體為form1.frm。
    （15）利用表格來表示上述過程中窗體的設(shè)置，如表10.1所示。


通過【adodc】控件訪問數(shù)據(jù)庫

    （1）啟動vb，建立新的工程。
    （2）如圖10.21所示的vb主界面的【菜單欄】選擇【工程】/【部件】選項。

    （3）出現(xiàn)如圖10.22所示的部件的【控件】選項卡。
    （4）如圖10.23所示。

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

    （7）切換到如圖10.26所示的屬性頁的【身份驗證】選項卡。
    （8）切換到如圖10.27所示的屬性頁的【記錄源】選項卡。

    （9）主要的屬性設(shè)置如圖10.28所示。

    （10）向form1窗體中添加一個名為text2的【textbox】控件。
    （11）向form1窗體中添加一個名為text3的【textbox】控件。
    （12）讀者可以從本書的配套光盤上找到實例的配套程序。
    【參見光盤文件】：第10章/使用adodc控件訪問數(shù)據(jù)庫.vbp，窗體為form2.frm。
    （13）利用表格來表示上述過程中窗體的設(shè)置，如表10.2所示。


    （14）程序運(yùn)行結(jié)果如圖10.29所示。


通過【adodb】編程對象訪問數(shù)據(jù)庫

    1. 引用【adodb】對象
    要使用【adodb】對象，必須首先進(jìn)行引用。
    （1）啟動vb，新建工程。
    （2）如圖10.30所示。
    （3）出現(xiàn)如圖10.31所示的【引用】界面。

    2. 使用【adodb】對象編程
    （1）設(shè)計如圖10.32所示的窗體form3。

    利用表格來表示上述過程中窗體的設(shè)置，如表10.3所示。


    （2）讀者可以從本書的配套光盤上找到實例的配套程序。
    【參見光盤文件】：第10章/使用adodb對象編程訪問數(shù)據(jù)庫.vbp，窗體為form3.frm。
    （3）窗體form3內(nèi)所有的vb代碼如下。
     ―――――――――――――――――――――――――――――――――――――
    ‘強(qiáng)制性聲明變量后才能使用
    option explicit
    ‘定義rs為adodb對象的記錄集
    dim rs as new adodb.recordset
    ‘定義conn為adodb對象的連接
    private conn as adodb.connection
    ‘窗體運(yùn)行時初始化過程
    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的內(nèi)容連接數(shù)據(jù)庫
    conn.open
    ‘查詢數(shù)據(jù)表dept的內(nèi)容
    with cmd
    .activeconnection = conn
    .commandtype = adcmdtable
    .commandtext = "dept"
    end with
    ‘將數(shù)據(jù)表dept的內(nèi)容送記錄集rs
    with rs
    .cursorlocation = aduseclient
    .cursortype = adopenstatic
    .locktype = adlockpessimistic
    .open cmd
    end with
    ‘定義3個文本框的數(shù)據(jù)源為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
    ‘單擊【首記錄】按鈕的執(zhí)行過程
    private sub cmdfirst_click()
        rs.movefirst
        rs.update
    end sub
    ‘單擊【上記錄】按鈕的執(zhí)行過程
    private sub cmdprevious_click()
      rs.moveprevious
      if rs.bof then
         rs.movefirst
         rs.update
      end if
    end sub
    ‘單擊【下記錄】按鈕的執(zhí)行過程
    private sub cmdnext_click()
      rs.movenext
      if rs.eof then
        rs.movelast
        rs.update
     end if
    end sub
    ‘單擊【末記錄】按鈕的執(zhí)行過程
    private sub cmdlast_click()
      rs.movelast
      rs.update
    end sub
    ‘單擊【退出】按鈕的執(zhí)行過程
    private sub cmdexit_click()
       conn.close
       set conn = nothing
       unload me
       end sub
    ―――――――――――――――――――――――――――――――――――――
    （4）窗體form3的運(yùn)行結(jié)果如圖10.33所示。