VB程序如何访问数据库

 
通过【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所示。