VB 连接Oracle数据库
来源:互联网 发布:淘宝童装店铺怎么推广 编辑:程序博客网 时间:2024/05/22 20:04
Option ExplicitPublic cn_base As New ADODB.Connection Function conn_base() ' 公共的函数 用来获取数据库的连接Err.ClearOn Error Resume Next If cn_base.State <> 0 Then cn_base.Close End If cn_base.ConnectionString = "file name=" + App.Path + "\oracle.udl" cn_base.Open If Err.Number <> 0 Then MsgBox "连接基地数据库失败 " End IfEnd Function '保存按钮单击事件 即点击了保存按钮以后执行的事件函数Private Sub Add_Click() Dim qxxh As String '声明变量 qxxh 用来存放Text1控件输入的字符串 Dim qxjdlx As String '声明变量 qxjdlx 用来存放Text2控件输入的字符串 qxxh = Text1.Text '以下这两行是把Text控件中输入的内容赋给 这两个变量。 qxjdlx = Text2.Text Dim ss ss = conn_base() '获得连接数据库的对象。 Dim sql As String '声明变量sql 用来下面存放sql语句。 Dim Rs As ADODB.Recordset '声明操作数据看用的 rs 对象 Set Rs = New ADODB.Recordset 得到记录set Rs.CursorType = adOpenKeyset Rs.LockType = adLockOptimistic Rs.CursorLocation = adUseClient sql = "Insert Into ywxz_fcgj_js_zjqx(id,qxxh,qxjdlx) values ('56','" + qxxh + "','" + qxjdlx + "') '插入数据需要用到的sql语句,56为id 在这里写死了。 qxxh qxjdlx 这两个字段即为上面声明的两个变量值即我们输入文本框的值。 Rs.Open sql, cn_base '执行上面的sql语句。执行插入数据的操作。 End Sub'窗体的加载事件,每当窗体(软件打开的时候 ,首先执行此方法,此方法一般用来做初始化来用。)Private Sub Form_Load() '下面这一段 是连接数据库时的操作 。得到连接数据库时候用到的一些对象。 Dim ss ss = conn_base() Dim sql As String Dim ii As Integer Dim Rs As ADODB.Recordset Set Rs = New ADODB.Recordset Rs.CursorType = adOpenKeyset Rs.LockType = adLockOptimistic Rs.CursorLocation = adUseClient sql = " select * from ywxz_fcgj_js_zjqx " Rs.Open sql, cn_base Label1.Caption = Rs.Fields(1) '这是当窗体加载的时候 查询数据库中的表 返回结果集 中取第一个字段的第一个记录End Sub
第二种方法:
Public strConn As StringPublic strSQL As StringPublic curConnection As ADODB.ConnectionPublic rs As ADODB.RecordsetSub Main() Dim strds As String strds = Chr(34) & "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.12.184)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=oracle)))" & Chr(34) strConn = "Provider=MSDAORA.1;Password=oracle;User ID=system;Data Source=" & strds & ";Persist Security Info=True" Set curConnection = New ADODB.Connection Set rs = New ADODB.Recordset curConnection.CursorLocation = adUseClient curConnection.Open strConn strSQL = "select * from T_PW_USER" rs.Open strSQL, curConnection, adOpenStatic, adLockReadOnly Set DataGrid1.DataSource = rs DataGrid1.Refresh If Not rs.EOF() Then rs.MoveFirst Combo1.Clear Combo1.Text = "用户列表" Do While Not rs.EOF And Not rs.BOF() Combo1.AddItem (rs.Fields(0)) rs.MoveNext Loop End If rs.CloseEnd SubPrivate Sub Command1_Click()MainEnd Sub
工程 - 引用 Microsoft ActiceX Data Objects.x中的一个library.
- VB连接ORACLE数据库
- VB 连接Oracle数据库
- vb.net 连接Oracle数据库
- vb.net连接oracle数据库
- VB.NET 连接ORACLE数据库
- 使用vb连接oracle数据库,执行多个命令
- VB连接Sql Server,Oracle,SyBase,Access数据库操作实例
- vb无客户端连接oracle数据库的解决办法
- vb无客户端连接oracle数据库的解决办法
- VB ADO 连接数据库
- VB连接数据库
- VB.NET 连接数据库
- VB连接oracle9I数据库
- VB连接ACCESS数据库
- VB 连接mysql数据库
- VB连接Mysql数据库
- VB连接数据库
- vb连接数据库
- IOS5基础教程之一-----如何创建XCode项目
- Silverlight/Windows8/WPF/WP7/HTML5周学习导读(9月10日-9月16日)
- 内存
- TextWatcher基本用法
- Oracle学习笔记(1)
- VB 连接Oracle数据库
- linux编程-守护进程编写
- 预处理指令C++整理
- 19、判断一个单链表是否有环?找到环的入口点。判断两个单链表是否相交,找到相交点。
- Android中的内存管理
- 数据结构之线性表
- linux下查看动态增长的log文件
- 404页面,SEO中一个扮演重要角色的配角
- regsvr32 注册.dll的用法