БД в делфи + SQL

[Рамик]

подскажите что неправильно написал пожалуйста:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into заказчик (Фамилия, имя, компания, телефон)');
ADOQuery1.SQL.Add(' Values (Edit2.text, Edit3.text, Edit4.text, Edit5.text)');
ADOQuery1.Active:=true;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into Картриджи (картридж, дата');
ADOQuery1.SQL.Add(' Values (Edit1.text, Edit6.text)');
ADOQuery1.Active:=true;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select картридж, фамилия, имя, компания, телефон, дата, готовность');
ADOQuery1.SQL.Add(' from Заказчик, Картриджи');
ADOQuery1.Active:=true;
end;

[Serge_Bliznykov]

когда выполняете операции с данными (Insert/Uodate/Delete)
нельзя делать ADOQuery1.Active := true; (или ADOQuery1.Open)
можно делать исключительно .

ADOQuery1.ExecSQL;

да. и значения в запрос так не передают!!!
надо так:

ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into заказчик (Фамилия, имя, компания, телефон)');
ADOQuery1.SQL.Add(' Values ('+QuotedStr(Edit2.text)+','+QuotedStr( Edit3.text)+','+QuotedStr(Edit4.text)+','+QuotedStr(Edit5.text)+')');
ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into Картриджи (картридж, дата');
ADOQuery1.SQL.Add(' Values ('+QuotedStr(Edit1.text)+','+QuotedStr( Edit6.text)+')');
ADOQuery1.ExecSQL;


ADOQuery1.SQL.Clear;
...

[Рамик]

спасибо!
только почему то выдает ошибку:
"Ошибка синтаксиса в инструкции INSERT INTO" =(

[pray_driver]

Сообщение от Рамик

спасибо!
только почему то выдает ошибку:
"Ошибка синтаксиса в инструкции INSERT INTO" =(

соответственно проверить синтаксис SQL.
я обычно вывожу текст SQL куда-нибудь в Memo, копирую SQL-запрос непосредственно в среду БД и там уже смотрю где в синтаксисе ошибка. Иногда запятая пропущена, иногда что-нибудь надо в апострофах, или тип данных специфический. А так на вид у Вас всё нормально.

[code]
ADOQuery1.SQL.Add('insert into Картриджи (картридж, дата)');
ADOQuery1.SQL.Add(' Values ('+QuotedStr(Edit1.text)+','+Quoted Str( Edit6.text)+')');