VB程序如何访问数据库

80酷酷网    80kuku.com

  

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



分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: