这是我用ORACLE写的存储过程
create or replace procedure pro_tabstudent(c_xuehao varchar2,c_xingming varchar2,c_zhuangye varchar2) is
v_xuehao varchar2(10):=c_xuehao;
v_xingming varchar2(20):=c_xingming;
v_zhuangye varchar2(20):=c_zhuangye;
begin
insert into tabstudent values(v_xuehao,v_xingming,v_zhuangye);
end pro_tabstudent;在delphi中调用存储过程
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('{call pro_tabstudent(?,?,?)}');
adoquery1.Parameters.CreateParameter('c_xuehao',ftstring,pdinput,20,'031150019');
adoquery1.Parameters.CreateParameter('c_xingming',ftstring,pdinput,20,'小徐');
adoquery1.Parameters.CreateParameter('c_zhuangye',ftstring,pdinput,20,'计算机科学与技术');
adoquery1.ExecSQL;
end;
系统提示说列不存在,大伙帮我看看要怎么写才正确呢
create or replace procedure pro_tabstudent(c_xuehao varchar2,c_xingming varchar2,c_zhuangye varchar2) is
v_xuehao varchar2(10):=c_xuehao;
v_xingming varchar2(20):=c_xingming;
v_zhuangye varchar2(20):=c_zhuangye;
begin
insert into tabstudent values(v_xuehao,v_xingming,v_zhuangye);
end pro_tabstudent;在delphi中调用存储过程
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('{call pro_tabstudent(?,?,?)}');
adoquery1.Parameters.CreateParameter('c_xuehao',ftstring,pdinput,20,'031150019');
adoquery1.Parameters.CreateParameter('c_xingming',ftstring,pdinput,20,'小徐');
adoquery1.Parameters.CreateParameter('c_zhuangye',ftstring,pdinput,20,'计算机科学与技术');
adoquery1.ExecSQL;
end;
系统提示说列不存在,大伙帮我看看要怎么写才正确呢
解决方案 »
- 使用Servers组件ExcelApplication打开一个EXCEL文件出错
- Socket 收发数据问题 小弟新手 请大师帮忙啊
- 如何点击网页内 href=# 的文字链接?以及获取点击后弹出的对话框的值(内有图片和代码说明)
- 高手进 关于ListView
- 我出的一道面试题目,想考查领悟能力,分析能力,创新能力
- 关于拨号网络的几个问题
- 关于把access数据库作成安装盘的问题 (急急)
- 请问以下VC申明如何翻译成DELPHI,THANKS
- 用delphi编一个光驱弹出与进入的问题,各位高手给点指点!
- 高难度,好刺激.送分给你。
- Class TBevel not found. 提示,给出办法。
- fastReprot 预览Excel文件问题!
/create or replace procedure InsertTmp5( c_xuehao varchar2,c_xingming varchar2,c_zhuangye varchar2 ) is
begin
insert into tmp5 values( c_xuehao ,c_xingming ,c_zhuangye );
end InsertTmp5;
/begin
with self.ADOCommand1 do
begin
CommandType:=cmdStoredProc;
CommandText:='InsertTmp5';
Parameters.CreateParameter( 'c_xuehao',ftString,pdInput,100,'11');
Parameters.CreateParameter( 'c_xingming',ftString,pdInput,100,'22');
Parameters.CreateParameter( 'c_zhuangye',ftString,pdInput,100,'33');
Execute;
end;
end;