manzare
پنج شنبه 24 مرداد 1387, 12:33 عصر
چطور ميتوان به ركوردهاي خروجي يك adoqry به صورت random دسترسي داشت؟
من اين كد را براي گرفتن خروجي نوشتم
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text:= 'select qtext , ta,tb,tc,td from qtable inner join atable on (atable.qcode=qtable. qcode ) and (qtable.type=:t) and (qtable.degree=:d)';
Parameters.ParamByName('d').Value :=1;
Parameters.ParamByName('t').Value :=1;
Open;
SQL.Text ;
memo1.Text:=ADOQuery1.Fields.Fields[0].AsString;
RadioGroup3.Items.Clear ;RadioGroup3.Items.Insert(0,ADOQuery1.Fields.Field s[1].AsString
RadioGroup3.Items.Insert(1,ADOQuery1.Fields.Fields[2].AsString);RadioGroup3.Items.Insert(2,ADOQuery1.Fi elds.Fields[3].AsString);
RadioGroup3.Items.Insert(3,ADOQuery1.Fields.Fields[4].AsString);
end;
ميتوان با next به بعدي رفت اما چطور ميتوان به n(يك عدد تصادفي) بعدي پريد ؟
اگر بخوام اين كار را باكرسر انجام بدم چه كد نويسي داره؟
من اين كد را براي گرفتن خروجي نوشتم
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Text:= 'select qtext , ta,tb,tc,td from qtable inner join atable on (atable.qcode=qtable. qcode ) and (qtable.type=:t) and (qtable.degree=:d)';
Parameters.ParamByName('d').Value :=1;
Parameters.ParamByName('t').Value :=1;
Open;
SQL.Text ;
memo1.Text:=ADOQuery1.Fields.Fields[0].AsString;
RadioGroup3.Items.Clear ;RadioGroup3.Items.Insert(0,ADOQuery1.Fields.Field s[1].AsString
RadioGroup3.Items.Insert(1,ADOQuery1.Fields.Fields[2].AsString);RadioGroup3.Items.Insert(2,ADOQuery1.Fi elds.Fields[3].AsString);
RadioGroup3.Items.Insert(3,ADOQuery1.Fields.Fields[4].AsString);
end;
ميتوان با next به بعدي رفت اما چطور ميتوان به n(يك عدد تصادفي) بعدي پريد ؟
اگر بخوام اين كار را باكرسر انجام بدم چه كد نويسي داره؟