VB 连接Oracle数据库

前端之家收集整理的这篇文章主要介绍了VB 连接Oracle数据库前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
  1. Option Explicit
  2. Public cn_base As New ADODB.Connection
  3.  
  4.  
  5. Function conn_base() ' 公共的函数 用来获取数据库的连接
  6. Err.Clear
  7. On Error Resume Next
  8. If cn_base.State <> 0 Then
  9. cn_base.Close
  10. End If
  11. cn_base.ConnectionString = "file name=" + App.Path + "\oracle.udl"
  12. cn_base.Open
  13. If Err.Number <> 0 Then
  14. MsgBox "连接基地数据库失败 "
  15. End If
  16. End Function
  17.  
  18.  
  19. '保存按钮单击事件 即点击了保存按钮以后执行的事件函数
  20. Private Sub Add_Click()
  21.  
  22. Dim qxxh As String '声明变量 qxxh 用来存放Text1控件输入的字符串
  23. Dim qxjdlx As String '声明变量 qxjdlx 用来存放Text2控件输入的字符串
  24.  
  25. qxxh = Text1.Text '以下这两行是把Text控件中输入的内容赋给 这两个变量。
  26. qxjdlx = Text2.Text
  27.  
  28. Dim ss
  29. ss = conn_base() '获得连接数据库的对象。
  30. Dim sql As String '声明变量sql 用来下面存放sql语句。
  31. Dim Rs As ADODB.Recordset '声明操作数据看用的 rs 对象
  32. Set Rs = New ADODB.Recordset 得到记录set
  33. Rs.CursorType = adOpenKeyset
  34. Rs.LockType = adLockOptimistic
  35. Rs.CursorLocation = adUseClient
  36.  
  37. sql = "Insert Into ywxz_fcgj_js_zjqx(id,qxxh,qxjdlx) values ('56','" + qxxh + "','" + qxjdlx + "') '插入数据需要用到的sql语句,56为id 在这里写死了。 qxxh qxjdlx 这两个字段即为上面声明的两个变量值即我们输入文本框的值。
  38.  
  39. Rs.Open sql,cn_base '执行上面的sql语句。执行插入数据的操作。
  40. End Sub
  41.  
  42. '窗体的加载事件,每当窗体(软件打开的时候 ,首先执行此方法,此方法一般用来做初始化来用。)
  43. Private Sub Form_Load()
  44. '下面这一段 是连接数据库时的操作 。得到连接数据库时候用到的一些对象。
  45. Dim ss
  46. ss = conn_base()
  47. Dim sql As String
  48. Dim ii As Integer
  49. Dim Rs As ADODB.Recordset
  50. Set Rs = New ADODB.Recordset
  51. Rs.CursorType = adOpenKeyset
  52. Rs.LockType = adLockOptimistic
  53. Rs.CursorLocation = adUseClient
  54.  
  55. sql = " select * from ywxz_fcgj_js_zjqx "
  56. Rs.Open sql,cn_base
  57. Label1.Caption = Rs.Fields(1) '这是当窗体加载的时候 查询数据库中的表 返回结果集 中取第一个字段的第一个记录
  58.  
  59. End Sub
  60.  


第二种方法

  1. Public strConn As String
  2. Public strsql As String
  3. Public curConnection As ADODB.Connection
  4. Public rs As ADODB.Recordset
  5.  
  6. Sub Main()
  7. Dim strds As String
  8. strds = Chr(34) & "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.12.184)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=oracle)))" & Chr(34)
  9. strConn = "Provider=MSDAORA.1;Password=oracle;User ID=system;Data Source=" & strds & ";Persist Security Info=True"
  10. Set curConnection = New ADODB.Connection
  11. Set rs = New ADODB.Recordset
  12. curConnection.CursorLocation = adUseClient
  13. curConnection.Open strConn
  14.  
  15. strsql = "select * from T_PW_USER"
  16. rs.Open strsql,curConnection,adOpenStatic,adLockReadOnly
  17. Set DataGrid1.DataSource = rs
  18. DataGrid1.Refresh
  19. If Not rs.EOF() Then
  20. rs.MoveFirst
  21. Combo1.Clear
  22. Combo1.Text = "用户列表"
  23. Do While Not rs.EOF And Not rs.BOF()
  24. Combo1.AddItem (rs.Fields(0))
  25. rs.MoveNext
  26. Loop
  27. End If
  28. rs.Close
  29. End Sub
  30.  
  31. Private Sub Command1_Click()
  32. Main
  33. End Sub
  34.  
  35.  

工程 - 引用 Microsoft ActiceX Data Objects.x中的一个library.

猜你在找的VB相关文章