开发学院数据库Oracle VB程序如何访问数据库 阅读

VB程序如何访问数据库

 2006-08-04 11:57:18 来源:WEB开发网   
核心提示: 【参见光盘文件】:第10章\使用ADODB对象编程访问数据库.vbp,窗体为Form3.frm,VB程序如何访问数据库(4),(3)窗体Form3内所有的VB代码如下, ――――――――――――――――――――――――――――――――――――― ‘强制性声明变量后

【参见光盘文件】:第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所示。

上一页  1 2 3 4 

Tags:VB 程序 如何

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接