由于对VB 的变成不是很了解,公司由于业务的需求,要求从sql server数据库改为Oracle,并进行了简单的学习,以下是对VB连接 oracle 调用存储过程的实例:拷贝出来公大家参考一下:
Private Sub Form_Load()
Dim conn As Object '生命变量
Set conn = CreateObject("ADODB.Connection") '创建连接对象
conn.ConnectionTimeout = 180
conn.CommandTimeout = 180
conn.Open "Provider=OraOLEDB.Oracle.1;Data Source=EQP_DEV;User Id=eqp_maint;Password=eqp_maint_ps"
'打开数据库连接,说明:Provider:指定使用什么数据库,Data Source: database User Id:连接数据库的用户 Password: 密码
Dim str As String
Dim outPut As String
'str = "123"
Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandTimeout = 180
cmd.CommandText = "EQP_CT_EVENT_OUT_CURSOR.EQP_CT_CREATE_UUID" '要执行存储过程的名称
cmd.CommandType = 4 '说明调用的是存储过程
cmd.Parameters.Append cmd.CreateParameter("@P_FLAG", 200, 1, 30, "M")
'设置参数 其中 第一个参数 代表 要进行传的参数,对应sp 中的参数:第二个参数 代表使用什么类型 如下:
'adBigInt: 20 ;
'adBinary : 128 ;
'adBoolean: 11 ;
'adChar: 129 ;
'adDBTimeStamp: 135 ;
'adEmpty: 0 ;
'adInteger: 3 ;
'adSmallInt: 2 ;
'adTinyInt: 16 ;
'adVarChar: 200 ;
'第三个参数代表的是输入输出:
' 0 : 类型无法确定; 1: 输入参数;2: 输入参数;3:输入或输出参数;4: 返回值
'第四个参数是 值参数长度
'第五个参数 是 参数的值
cmd.Parameters.Append cmd.CreateParameter("@P_UUID", 200, 3, 30)
cmd.Execute '执行
outPut = cmd.Parameters(1) '取得输出值
'Set rs = CreateObject("ADODB.Recordset")
'rs.Open "select * from EQP_STATUS_SUPP", conn, adOpenStatic, adLockBatchOptimistic
'rs.Open cmd, , 0, 1
Text1.Text = outPut
End Sub
分享到:
相关推荐
vb中调用oracle存储过程,及有一个存储过程实例
VB 调用oracle 带返回值的存储过程 DEMO
使用VB调用oracle数据库存储过程的研究.pdf
VB调用ORACLE存储过程
vb.net操作Oracle数据库增删改查以及存储过程调用1
使用VB 与oracle 进行连接是软件开发人员经常使用的组合,充分利用oracle 中的存储过程来处理应用 程序频繁使用的逻辑,不仅可以提高效率和安全性,而且也可以最大限度地利用资源,减少编程人员的重复劳 动。对存储过程...
使用VB调用Oracle程序包内的存储过程返回结果集 使用VB调用Oracle程序包内的存储过程返回结果集
通过调用数据库连接对话框建立数据库连接 (目前测试支持 MSSQL, Oracle, Access, MySql) 根据自定义模板通过数据库表、视图和存储过程批量生成代码, 模板编辑和代码查看支持语法高亮 (Java, VB, T-SQL) 可以...
完全支持存储过程和参数调用 javascriptClassLibrary 包括一些JavaScript 类封装 StringValid:字符串校验类 说明: 代码全部都是用 C# 语言(除JavaScript部分) 基于.net 2.0平台, 纯IL语言 Asp.net 和Winform ...
21.5.3 删除数据的实现 21.6 触发器与存储过程的应用 21.6.1在VB 6.0中应用触发器 21.6.2在VB 6.0中应用存储过程 21.7 小结第22章 VC++6.0与SQL Server的开发与应用 22.1 VC++6.0开发环境 22.1.1 VC++6.0介绍 22.1.2...
如清除系统日志,数据同步,数据备份,整理数据库空间,调用存储过程等。已测试支持Oracle、SqlServer、MySql等数据库、及Access、Excel等OleDb数据库。 文件操作任务:同步服务器上的文件,或删除服务器上的日志...
手工刷新快照,(调用DBMS_SNAPSHOT包中的refresh过程)DBMS_SNAPSHOT.refresh(snapshot_name,refresh_type); begin DBMS_SNAPSHOT.REFRESH(\'snap_to_html\',\'c\'); end; 对所有快照进行刷新 begin DBMS_...
发布Oracle存储过程包c#代码生成工具(CodeRobot) New Folder XCodeFactory3.0完全攻略--序 XCodeFactory3.0完全攻略--基本思想 XCodeFactory3.0完全攻略--简单示例 XCodeFactory3.0完全攻略--IDBAccesser ...
在对象创建的过程中将被容器调用,onMessage函数方法接收消息参数,将其强制转型为合适的消息类型,同时打印出消息的内容。同时一个mail note将被发送给消息发送者,发送一个e-mail通知给由recipient参数确定的e-...
在对象创建的过程中将被容器调用,onMessage函数方法接收消息参数,将其强制转型为合适的消息类型,同时打印出消息的内容。同时一个mail note将被发送给消息发送者,发送一个e-mail通知给由recipient参数确定的e-...
实现数据导入/导出的存储过程 根据不同的参数,可以实现导入/导出整个数据库/单个表 调用示例: --导出调用示例 ----导出单个表 exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',1 ----导出整个数据库 ...
4 新增压缩存储和传输功能 V2.5.1版本新增的压缩存储和传输功能,使的20K左右的Word文档压缩后只有2K左右。极大节约了数据库或磁盘空间,提高了网络利用率和传输效率。 5 新增全文批注功能和远程印章管理控件。 V2.5...