[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 ;

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