str := ADOS.Parameters.ParamByName('@Outstr').Value
解决方案 »
- dbexpress+mssql在midas三层更新资料有问题
- 关于MySQL的问题?
- 如何在Calendar控件的单元格中写入数据?
- 如何区分键盘输入与键盘口式条码扫描器输入?
- shellexecute和winexec那个好,调用外部exe的时候不希望出现命令窗口
- 谁有ExpressBars 4.1的原版?
- 关于ADOconnection问题!
- 高人:帮帮忙!!
- (抢分题)用SetLocalInfo修改日期格式,怎么不会立即生效?
- 送分,大家看看TForm1=class(TForm)这个
- 救火!救火!局域网内,一台主机启动其他机子(主板具有网络唤醒功能)????
- delphi中的可执行文件如何带参数启动?
http://www.csdn.net/expert/topic/158/158092.shtm
道理一样的
//delphi 5测试通过CREATE PROCEDURE sp_tmp @a int,
@b varchar(20) output
as select @b = 'hello';var
str :string;
begin
//关键################################################
SetLength(str,20); //初石化,字符串内存空间,为DataSetProvider1...... clientdataset1.Params.Clear;
clientdataset1.Params.CreateParam(ftInteger,'@a', ptInput);
clientdataset1.Params.ParamByName('@a').AsInteger := 123;
clientdataset1.Params.CreateParam(ftString,'@b', ptOutput);
clientdataset1.Params.ParamByName('@b').asstring := str; clientdataset1.Execute; showmessage(clientdataset1.Params.FindParam('@b').AsString);
str:string;
beginsetlength(str,10); //你要给str分配内存空间.ADOS.Parameters.CreateParamete('@TempMan',ftString,pdinput,20,'XIAOYUAN');
ADOS.Parameters.CreateParameter('@Outstr',ftString,pdOutput,10,str);////////
ADOS.ExecProc ;
showmessage(str);
end;