vb怎么调用oracle数据库连接,VB 连接Oracle数据库
Option Explicit
Public cn_base As New ADODB.Connection
Function conn_base() ' 公共的函数 用来获取数据库的连接
Err.Clear
On 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 If
End 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 String
Public strSQL As String
Public curConnection As ADODB.Connection
Public rs As ADODB.Recordset
Sub 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.Close
End Sub
Private Sub Command1_Click()
Main
End Sub
工程 - 引用 Microsoft ActiceX Data Objects.x中的一个library.
vb怎么调用oracle数据库连接,VB 连接Oracle数据库相关推荐
- oracle通过DBlink连接神通数据库方法教程
oracle通过DBlink连接神通数据库方法教程 (其他数据库也可以) **1.首先确认自己电脑版本 ** 找到Microsoft ODBC ,exe程序位置 :C:\Windows\System3 ...
- linux查询数据库服务名,如何快速查看Oracle服务名连接的数据库的信息
快速查看Oracle服务名连接的数据库的信息: 具体操作命令及结果信息如下: ------------------------------------------------------------- ...
- vb调用本地html,在VB中调用HTMLHELP文件VB -电脑资料
在 VB 中调用HTMLHELP文件 湖北省襄樊市劳动保险处 闫东 ---- HTML帮助文件是 WINDOWS 基本帮助系统的一种新标准,在WINDOWS 98中我们到处都可以看到它的身影, 在VB ...
- vb.net调用oracle存储过程,vbnet2008连接oracle增删改查学习笔记(经典crud_含存储过程).doc...
vbnet2008连接oracle增删改查学习笔记(经典crud_含存储过程).doc 我的VBNETORACLE增删改查学习笔记(本源码在VBNET2008下测试通过)学习VBNET有一段时间了,之 ...
- vb与oracle数据库连接,vb.net 如何与oracle数据库连接
vb.net 如何与oracle数据库连接 在web.config中配置: '连接Oracle Dim strConnect As String = System.Web.Configuration. ...
- vb 通过php连接mysql数据库连接_PHP连接MySQL数据库的几种方法
1.最简单的方式-mysql(面向过程) $con = mysql_connect("localhost","root","password" ...
- java中oracle.链接,java连接Oracle数据库的方法解析
本文主要对java连接Oracle数据库方法进行步骤解析,具有很好的参考价值,需要的朋友一起来看下吧 Oracle数据库先创建一个表和添加一些数据 1.先在Oracle数据库中创建一个student表 ...
- qt同时连接oracle和mysql_QT连接Oracle和Mysql的详细步骤,已成功~!
近几天一直在整QT的数据库连接这一块.因为QT是开源的,所以涉及的连接Oracle及Mysql的驱动都必须自己编译生成.通过不断的测试.调试,终于把QT连接Oracle和Mysql的驱动编译生成好了. ...
- asp连oracle测试,ASP连接Oracle
ASP连接Oracle的方式有几种, 这里介绍一下 OLE 连接方法 dim objConn,strConn,DBServer,DBName,DBUser,DBPassword dim RS,xSQL ...
- weka 连接oracle 命令,Weka连接Oracle数据库
Weka提供连接数据库的功能,本文仅就连接Oracle的情况举例说明如何进行设置. 1. 下载Oracle数据库驱动jar包,一般为ojdbc14.jar或者oracle-10.2.0.1-jdbc1 ...
最新文章
- 【转载】[Windows 8]Hello Windows 8 - Windows 8 Developer Preview搶先預覽
- axios nodejs 上传图片_Vue Axios跨域、文件上传
- 微信小程序websocket聊天室
- TensorFlow | TensorFlow实践(一)
- iOS Airplay Screen Mirroring 同屏技术详解
- spring-data-jpa Specification构建动态ql
- [转载]男生女生过家家呀
- 微博短视频千万级高可用、高并发架构如何设计?
- 大规模针对iOS设备的恶意广告活动劫持3亿次浏览器会话
- 解决局域网共享问题,提示:无法访问,你可能没有权限使用网络资源
- MySQL生产库开发规范
- 活动目录系列之十二:活动目录的修复(下)
- 一道不知道哪里来的贪心题
- request与在php安全,request导致的安全性问题分析
- 【面试】5道JAVA笔试算法题
- 使用PowerShell查看Windows 补丁记录并写入数据库
- 视频格式转换器如何将腾讯QLV格式转换成MP4视频文件
- 程序员接私活完整攻略
- 使用List和Map遇到得空指针异常
- MySQL中通过经纬度查询地址