04-03-2012، 03:05 PM
سلام من تو برنامه از
ADO COMMAND و RECORDSET
استفاده کردم در مرحله اول درست جواب میگیرم ، اما در مرحله دوم که
NEXTRECORSET
می زنم دچار مشکل می شوم ، و خطای زیر رو ی دهد
Access violation at address 005109A8 in module POJECT.exe'. Read of address 00000000
کد هم به شکل زیر هست البته بخشی که مربوط به رکورد ست هست :
پیغام مدیر سایت : لطفا کدهاتون رو داخل تگ کد بزارید.
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 ;پیغام مدیر سایت : لطفا کدهاتون رو داخل تگ کد بزارید.