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所示。

原文转自：http://www.ltesting.net