[nasrinPoornejaty]

سلام من تو برنامه از
ADO COMMAND و RECORDSET
استفاده کردم در مرحله اول درست جواب میگیرم ، اما در مرحله دوم که
NEXTRECORSET
می زنم دچار مشکل می شوم ، و خطای زیر رو ی دهد
Access violation at address 005109A8 in module POJECT.exe'. Read of address 00000000

کد هم به شکل زیر هست البته بخشی که مربوط به رکورد ست هست :

کد:

Try
       DataModule1.ADOConnection1.LoginPrompt:=false;
       DataModule1.ADOConnection1.Connected := true;
       Recordset1:= Command.Execute;
       I:=0;

       if Command.Parameters.ParamByName('RETURN_CODE').Value = 0  Then
       begin
            recordset2 := recordset1.NextRecordset(EmptyParam);
            Y := recordset2.RecordCount;
            while not Recordset2.EOF do
            begin
                 Test :=Trim(Recordset2.Fields[2].Value);
                 IF  Test='SERVER' THEN
                 BEGIN
                      I:=I+1;
                      Counter_Record[I,1]:= Trim(Recordset2.Fields[3].Value);
                      Counter_Record[I,2]:= Trim(Recordset2.Fields[7].Value);
                      Counter_Record[I,3]:= Trim(Recordset2.Fields[10].Value);
                      Counter_Record[I,4]:= Trim(Recordset2.Fields[15].Value);
                 END;
                Recordset2.MoveNext;
            end;
       end ;

پیغام مدیر سایت : لطفا کدهاتون رو داخل تگ کد بزارید.

[Pxt]

دوست عزیز زمانی که خروجی شما در یک سطر فرستاده میشه

نیازی نیست که از NEXTRECORSET استفاده کنید
در ضمن کدهای شما ناقص هستش

چون نه ماهیت sp مشخص هستش و نه ماهیت query ارسال میشه

[nasrinPoornejaty]

خروجی من در یک سطر نوشته نمی شه بلکه زمانی که من اس پی کال می کنم دو تا ریزالت ست بر می گردونه و برای اینکه به ریزالت ست مورد نظر برسم این کار را انجام می دم.

[Pxt]

خب شما sp رو بذارین ندیده که نمیشه نظر داد

الان هم ماهیت کوئری هم ماهیت sp و هم جداول مبهم هستش با این شکل جواب دادن یعنی معجزه :P

[nasrinPoornejaty]

اگر منظور سورس اس پی که نمی تونم بزارم چون اس پی سیستمی و سورس آن قابل دیدن نیست، من اس پی را با
ado command
اجرا کردم و ورودی خروجی به آن دادم و بقیه هم همانطوری هستش که براتون فرستادم .

[Amin_Mansouri]

خوب پروژتون بصورت زیپ شده بزارید !