数据库(包含打印，安装，报表)
第一次做前台,求救!拜托了!
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我的Oracle程序如下:
type p_cursor is ref cursor;'自定义光标
Create or Replace Pocedure test( target_ID in varchar2,target_date in date,
result_Cursor out p_cursor
)
as
begin
open result_Cursor for
/*查询结果集*/
end test;
VB程序如下
private function test() as ADODB.Recordset
dim cnn as ADODB.connection
dim com as ADODB.command
Dim rs as ADODB.recordset
if cnn.open=adstateopen then cnn.close
end if;'如果数据源打开则关闭
with cnn'建立连接
.connectionstrin="..."
.open
end with
with com '初始化参数
.refresh
.ActiveConnection=cnn
.CommandType=AdStorePro
.CommandText="test.test(?)"
.parameter(0)="s345fvfve345"'为第一个变量赋值
.parameter(1)=cdate("2001-7-7")
end with
set rs=com.execute'执行并返回数据集合
test = rs'为函数赋值
end function
各位大哥我想请问的是我的这个程序怎么就运行不起来呢
type p_cursor is ref cursor;'自定义光标
Create or Replace Pocedure test( target_ID in varchar2,target_date in date,
result_Cursor out p_cursor
)
as
begin
open result_Cursor for
/*查询结果集*/
end test;
VB程序如下
private function test() as ADODB.Recordset
dim cnn as ADODB.connection
dim com as ADODB.command
Dim rs as ADODB.recordset
if cnn.open=adstateopen then cnn.close
end if;'如果数据源打开则关闭
with cnn'建立连接
.connectionstrin="..."
.open
end with
with com '初始化参数
.refresh
.ActiveConnection=cnn
.CommandType=AdStorePro
.CommandText="test.test(?)"
.parameter(0)="s345fvfve345"'为第一个变量赋值
.parameter(1)=cdate("2001-7-7")
end with
set rs=com.execute'执行并返回数据集合
test = rs'为函数赋值
end function
各位大哥我想请问的是我的这个程序怎么就运行不起来呢
...全文
相关推荐
AE实例第一次自己做的
AE学习，其实我也不知道做什么，有积分就行吧，大家不要骂我就行了，第一次做！
老人跌倒检测与求救系统
老人跌倒检测与求救系统是一种利用现代信息技术，特别是运动传感器技术，为老年人提供安全监护的智能系统。
Android-一键求救app
**事件监听**：为求救按钮添加点击事件监听器，一旦用户按下按钮，就能触发求救流程。3.
电信设备-具有求救功能的无线通讯装置及其求救方法.zip
**紧急求救系统**：这种装置可能内置了紧急求救系统，一旦用户遭遇危险情况，可以通过预设的快捷方式（如一键报警、语音识别等）触发求救信号。
电信设备-具有紧急求救功能的移动终端及其紧急求救方法.zip
自动求救信息：在用户失去意识或无法手动触发求救时，设备可通过传感器检测异常情况（如剧烈碰撞、摔倒等），自动触发求救流程。三、紧急求救方法1.
