Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 где я допустил ошибку. Продолжение.  [new]
rusRR
Guest
У меня есть база данных. Я хотел проверить ее на наличие имеющихся записей например по одному реквизиту.
На форме есть DBGrid1 где показанно вся база.
в Query1 в SQL - select r4 from main group by r4
в Query2 в SQL - select * from main where r4
может я где то допустил ошибку

procedure TForm10.SpeedButton1Click(Sender: TObject);
Var Kol:Integer;
Text:String;
begin
Query1.Close;
Query1.Open;
Query1.First;
For Kol:=1 to Query1.RecordCount do
Begin
Query2.Close;
Query2.Sql.Clear;
Query2.Sql.add('select * from main where r4=:Par1');
Query2.ParamByName('Par1').AsString:=Query1.FieldByName('r4').AsString;
Query2.open;
If (Query2.RecordCount>1) and (Kol<Query1.RecordCount) Then
Begin
Text:=Text+Query1.FieldByName('r4').AsString+',';
End;
If (Query2.RecordCount>=1) and (Kol=Query1.RecordCount) Then
Begin
Text:=Text+')';
End;
Query1.Next;
End;
If Text<>'' Then
Begin
kOL:=Pos(')',Text);
Delete(Text,Kol-1,2);
Memo1.Text:=Text;
Query2.Close;
Query2.Sql.Clear;
Query2.Sql.add('c');
Query2.open;
End;
Query1.Close;

end;

end.
28 окт 02, 12:16    [69468]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить