stivens
User
Fresh Boarder
| Posts: 8 |   |
Karma: 1
|
|
ПРИМЕР ВЫЗОВА ПРОЦЕДУРЫ И ЗАПРОСА (объектно орие)
|
|
Posted: 2007/10/11 04:50 |
|
|
|
|
Для ленивых и у кого нет времени рулить в манах и примерах, даю код который надеюсь поможет кому нибудь........
//////***********************
procedure TfrmNextRecordset.Button1Click(Sender: TObject);
var
ADQuery1: TADQuery;
ADStoredProc1: TADStoredProc;
ADConnection1: TADConnection;
begin
inherited;
ADConnection1:=TADConnection.Create(nil);
ADConnection1.ConnectionDefName:='Oracle_Demo';
ADConnection1.Connected:=true;
ADStoredProc1:= TADStoredProc.Create(nil);
ADStoredProc1.Connection:=ADConnection1;
ADStoredProc1.PackageName:= 'PEB_TESTOUT_PKG';
ADStoredProc1.StoredProcName:= 'PEB_TESTOUT';
ADStoredProc1.Prepare;
ADStoredProc1.Params[0].AsString := 'LVA';
ADStoredProc1.ExecProc;
ShowMessage(ADStoredProc1.Params[1].AsString);
ADQuery1:= TADQuery.Create(nil);
ADQuery1.Connection:= ADConnection1;
ADQuery1.Close;
ADQuery1.SQL.Clear;
ADQuery1.SQL.Add('select * from creator.document where ID= aram');
ADQuery1.Params[0].DataType:= ftInteger;
ADQuery1.Params[0].ParamType:=ptInput;
ADQuery1.Prepare;
ADQuery1.Params[0].AsInteger:=5061471;
ADQuery1.Open;
ADQuery1.First;
ShowMessage(ADQuery1.FieldByName('ID').AsString);
end;
//////**********************
 
|
|
