salam man to delphi mikham ba sp kar konam , vaghti connection bargharar mishe asami Sp ha shenakhte mishe ama parametr ha ro nemishnase , chera??????
سلام من تو دلفی میخوام با اس پی کار کنم وقتی کانکشن برقرار میشه اسم sp ها شناخته میشه اما پارمتر ها رو نمیشناسه چرا ؟
لطفا فارسی تایپ کنید (ویرایش شد)
درود
سورس کد رو بزار تا بگم
واضح هم توضیح بدید فارسی هم تایپ کنید
کد:
procedure TForm1.Button2Click(Sender: TObject);
var text: String;
CmdStr,Thread_CMD : String;
x: integer;
Adostoredproc1 : TADOStoredProc ;
Param : TParameter;
begin
Adostoredproc1:=TADOStoredProc.Create(Self);
CmdStr:='-DISPLAY THREAD(*) LOCATION(*)' ;
with ADOStoredProc1 do
Begin
Connection := DataModule1.ADOConnection1;
ProcedureName := 'SYSPROC.ADMIN_COMMAND_DB2';
Param:= Parameters.AddParameter;
Param.Name :='DB2_CMD';
Param.DataType := ftString;
Param.Direction := pdInput;
Param.Size := 32700;
Param:= Parameters.AddParameter;
Param.Name :='LEN_CMD';
Param.DataType := ftInteger;
Param.Direction := pdInput;
Param:= Parameters.AddParameter;
Param.Name :='PARSE_TYPE';
Param.DataType := ftString;
Param.Direction := pdInput;
Param.Size := 3;
Param:= Parameters.AddParameter;
Param.Name :='DB2_MEMBER';
Param.DataType := ftString;
Param.Direction := pdInput;
Param.Size := 8;
Parameters.ParamByName('DB2_CMD').Value:=CmdStr;
Parameters.ParamByName('LEN_CMD').Value:=length(CmdStr);
Parameters.ParamByName('DB2_CMD').Value:='THD';
Parameters.ParamByName('DB2_CMD').Value:='';
Active:=True;
ExecProc ;
end;
if ADOStoredProc1.Parameters.ParamByName('RETURN_CODE').Value = 0 Then
begin
For x:=0 to ADOStoredProc1.RecordCount do
begin
Text := ADOStoredProc1.FieldByName('NAME').AsString;
ShowMessage(text);
end;
end;
end;
این سورس برنامه هستش ، از لینکی هم که داده بودیده نگاه کردم همین کارهای من رو انجام داده بود.
sql server روی سیستمت نصبه ؟
بله نصب ، ولی دیتابیس من دی بی توی
ولی من که با این مشکلی نداشتم ، من با فراخوانی استور پروسیجر مشکل دارم . من می خوام بدونم که استورپروسیجر با ریزالت ست کار می کنه یا نه ، من خروجی استور پروسیجرم به شکل زیر است :
ROWNUM TEXT
ROWNUM TYPE NAME STATUS ACTIVE REQ ID AUTHID PLAN ASID
1 1 SERVER SP * 2403 DBArt812.exe NASRIN DISTSERV 006E
2 1 DISCONN DA * 16428 NONE NONE DISTSERV 006E
CMD_EXEC IFCA_RET IFCA_RES XS_BYTES IFCA_GRES GXS_BYTES RETURN_CODE MSG
1 0 0 0 0 0 0 [NULL]
من می تونم فقط بخش آخر رو بخونم اما در واقع چیزی که من نیاز دارم بخش دوم هستش جایی که فیلدهای نام و وضعیت و .... داره .
به نظر من داره با temp table
کار می کنه ولی من نمی دونم چطوری در زمان فراخوانی استورپروسیجر از این جدول موقت استفاده کنم یا از ریزالت ست