with StoredProc1 do begin StoredProcName := ProcName; Prepare; ShowMEssage(IntToStr(params.count)); end;
不会吧???受不了——“非delphi高手介入“
with StoredProc1 do begin StoredProcName := ProcName; Prepare; ShowMEssage(IntToStr(params.count)); end;这是不行的,Prepare时,会提示‘no parameter type for 参数名'
不要说我这个不能用,我测试过才拿上来的,数据库是SQL Server 2000,上面放了一个MEMO,一个StoredProc,一个Button,在设计期已经连上数据库。 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin memo1.Lines.Clear; with StoredProc1 do begin StoredProcName :='pro'; Prepare; caption:=inttostr(Params.Count); for i:=0 to Params.Count-1 do begin memo1.Lines.Add(params[i].name); end; end; end;
改成 with StoredProc1 do begin StoredProcName := ProcName; params.refresh; //关注 Prepare; ShowMEssage(IntToStr(params.count)); end;试试...........................
你先给它指定一个实际的然后把属性里的去掉,程序开始以后在给它动态加
呵呵,不过,俺是菜鸟
-------------------------------------
如果您觉的您对Delpih感兴趣或是很想学的更好些或者是对Delphi有更深的认识,我们可以一起交流;
呵呵
www.nxrs.net/bbs
谢谢,别抛砖,特别是版主:)
begin
StoredProcName := ProcName;
Prepare;
ShowMEssage(IntToStr(params.count));
end;
begin
StoredProcName := ProcName;
Prepare;
ShowMEssage(IntToStr(params.count));
end;这是不行的,Prepare时,会提示‘no parameter type for 参数名'
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
memo1.Lines.Clear;
with StoredProc1 do
begin
StoredProcName :='pro';
Prepare;
caption:=inttostr(Params.Count);
for i:=0 to Params.Count-1 do
begin
memo1.Lines.Add(params[i].name);
end;
end;
end;
with StoredProc1 do
begin
StoredProcName := ProcName;
params.refresh; //关注
Prepare;
ShowMEssage(IntToStr(params.count));
end;试试...........................