• VB程序如何访问数据库_oracle

    VB程序如何访问数据库_oracle

    ? 通过【Data】控件访问数据库 ????(1)启动VB。 ????(2)出现如图10.12所示的新建工程的【新建】选项卡。 ????(3)出现如图10.13所示的VB主界面。 ????(4)如图10.14所示。 ????(5)出现如图10.15所示的【属性窗口】界面。 ????DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ????odbc;dsn=graduateDB;uid=scott;pwd=tiger; ????DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ????(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)读者可以从本书的配套光盘上找到官方网站yabo88.com的配套程序。 ????【参见光盘文件】:第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)读者可以从本书的配套光盘上找到官方网站yabo88.com的配套程序。 ????【参见光盘文件】:第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)读者可以从本书的配套光盘上找到官方网站yabo88.com的配套程序。 ????【参见光盘文件】:第10章/使用ADODB对象编程访问数据库.vbp,窗体为Form3.frm。 ????(3)窗体Form3内所有的VB代码如下。 ?????DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ????‘强制性声明变量后才能使用 ????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 ????DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD ????(4)窗体Form3的运行结果如图10.33所示。

  • 确保Oracle 9i网络的正常运行_oracle

    确保Oracle 9i网络的正常运行_oracle

    ????一个完整的Oracle 9i的运行网络,包括以下4个部分。 ????数据库服务器 ????【管理服务器】 ????Oracle HTTP服务器 ????管理客户机 6.1.1 确保数据库服务器的正常运行 ????要确保数据库服务器正常运行,就是要确保数据库服务器的后台服务正常启动。计算机上所有的服务列表,如图6.1所示。 ????其中与数据库服务器有关的服务包括。 ????OracleOraHome90Agent:【智能代理】的后台服务。 ????OracleOraHome90TNSListener:监听程序对应的后台服务。 ????OracleServiceMYORACLE:【全局数据库名】为myoracle.mynet的数据库的服务。 ????OracleServiceOEMREP:【全局数据库名】为oemrep的数据库的服务。 6.1.2 确保【管理服务器】的正常运行 ????要确保【管理服务器】正常运行,就是要确保【管理服务器】对应的后台服务正常启动。在图6.1中与【管理服务器】有关的后台服务包括。 ????OracleOraHome90ManagementServer:【管理服务器】的后台服务。 ????OracleServiceOEMREP :【管理服务器】需要使用的后台数据库。 6.1.3 确保Oracle HTTP服务器的正常运行 ????要确保Oracle HTTP服务器的正常运行,就是要确保Oracle HTTP服务器对应的后台服务正常启动。在图6.1中与【管理服务器】有关的后台服务为OracleOraHome90HTTPServer。 6.1.4 确保管理客户机的正常运行 ????要确保管理客户机的的正常运行,主要有两点。 ????确保通信网络连接通畅,请参见本书2.1.5节。 ????确保【网络服务名】配置无误,请参见本书2.3.2节。

更多...

加载中...