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数据库相关推荐
- ftp无法与服务器建立连接_建立与Oracle数据库服务器连接的两种连接模式
建立与Oracle数据库服务器连接的两种连接模式(专用服务器与共享服务器) 在建立Oracle数据库的时候,应该会在数据库建立助手向导上面看到这么一个选项,就是数据库的连接模式采用什么方式.在Orac ...
- 只安装和配置instantclient,用plsql developer,navicat for oracle,sqlplus连接oracle数据库 ....
环境配置: 1.到oracle官网下载instantclient basic包,解压缩到E:\oracle\instantclient_11_2: 2.设置环境变量 NLS_lANG=SIMPLIFI ...
- aix oracle监听配置_Oracle数据库03用户权限与数据库的连接
Oracle数据库03-用户权限与数据库的连接 一.oracle用户与权限管理 1.用户管理 只有合法的用户账号才能访问Oracle数据库,Oracle有几个默认的数据库用户. 创建用户核对清单: · ...
- DOTNET零碎要点---1.vb.net利用Oracle.DataAccess.dll链接Oracle数据库
1.vb.net利用Oracle.DataAccess.dll链接Oracle数据库 DOTNET学习笔记---1.vb.net利用Oracle.DataAccess.dll链接Oracle数据库 2 ...
- python oracle连接池_python - DBUtils 连接池减少oracle数据库的连接数
问题: 接到需求,告知项目的oracle连接次数过多,对系统造成太过大的负担,要求减少oracle数据库的连接次数 分析: 仔细分析代码以后,发现产生问题的原因,在于之前要求提升oracle监控的监控 ...
- Mac 系统下 Rstudio连接虚拟机(远程)oracle数据库
Mac 系统下 Rstudio连接虚拟机(远程)oracle数据库 因为之前做的一个项目需要在mac系统上用Rstudio远程访问Oracle数据库,以对获得的数据进行进一步的分析~但是在网上找了很多 ...
- oracle通过DBlink连接神通数据库方法教程
oracle通过DBlink连接神通数据库方法教程 (其他数据库也可以) **1.首先确认自己电脑版本 ** 找到Microsoft ODBC ,exe程序位置 :C:\Windows\System3 ...
- plsql 连接 虚拟机Linux下的Oracle数据库 失败
plsql 连接 虚拟机Linux下的Oracle数据库 失败 plsql 连接 虚拟机Linux下的Oracle数据库 失败 2017年09月09日 09:10:23 守望dfdfdf 阅读数:18 ...
- 【Docker】安装Presto连接Hive、mysql、oracle、postgresql、SQL server等7种类型数据库
目录 1.简介 2.下载安装 1)下载镜像 2)下载presto客户端jar文件 3)将hadoop配置拷贝到容器 4)新增hive.properties配置文件 5)重启容器(在linux命令行下) ...
- 连接Oracle成功但只显示数据库无法查看表
不管是 DataGrip 还是 IntelliJ IDEA,都适用此方法 刷不出表,参考下图 IntelliJ IDEA 明明已经连接成功且可以看到Oracle里面的数据库,但是就是不显示table, ...
最新文章
- IBM之alphablox 数据源定义问题解决
- php 获取汉字,php 获取汉字长度
- HDU 6321 Problem C. Dynamic Graph Matching (状压dp)
- 小程序,一个简单的图像处理
- Bootstrap 折叠插件Collapse 选项
- mysql bat备份_Windows下简单的Mysql备份BAT脚本分享
- MySQL字符集的转换
- steam密码查看_如何查看和清除Steam中的先前别名
- 2015全国硕士研究生计算机考研真题(附答案)
- Stata:各类盈余管理指标估算方法
- 跟极限编程创始人Kent Beck学编程
- 如果这篇文章说不清epoll的本质,那就过来掐死我吧! (2)
- Python3 网络爬虫. 4
- 2019最新14个国外知名开发者社区
- XP系统无法设置用户权限,如加everyone等的
- USACO-Healthy Holsteins
- javaee第一天作业
- vs编译 error C2001: 常量中有换行符
- 关于有盘产品市场调查
- DIY时钟类--广州百田笔试之一