• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

VB程序如何访问数据库

发布: 2007-7-02 11:08 | 作者: admin | 来源: | 查看: 12次 | 进入软件测试论坛讨论

领测软件测试网


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

延伸阅读

文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备2023014753号-2
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网