SQL

[Аватар]

Если tab_num символьного типа, то строку:

DataModule13.ADOQ_Sotrudnik.SQL.Add('FROM sotrudniki where tab_num=' +DBGrid1.DataSource.DataSet.fieldbyname('tab_num').asString);

нужно заменить на что-то типа (взять в кавычки):

DataModule13.ADOQ_Sotrudnik.SQL.Add('FROM sotrudniki where tab_num=''' +DBGrid1.DataSource.DataSet.fieldbyname('tab_num').asString+'''');

перед строкой

DataModule13.ADOQ_Sotrudnik.SQL.Add('SELECT * FROM sotrudniki');

не мешало бы вставить:

DataModule13.ADOQ_Sotrudnik.SQL.Clear;

Что касается моего первого собщения, то Insert в комбинации с Select не имеет перечня полей, просто в Select должно быть такое-же количество полей, как в таблице в которую идет вставка и типы которых позиционно соответствуют этой таблице (исключение - наличие аутоинкрементного поля в таблице, в которую идет вставка)
PS На какой строчке ошибку дает?

[vovk]

Да запрос нормально составлен, таблицы криво, ну это другой вопрос,
я просто думаю что
DBGrid1.DataSource.DataSet = DataModule13.ADOQ_Sotrudnik
что и пытался выше сказать

[sasha198407]

Как и прежде не работает
Ошибку даёт на строчке
DataModule13.ADOQ_Sotrudnik.SQL.Add ('FROM sotrudniki where tab_num=''' +DBGrid1.DataSource.DataSet.fieldby name('tab_num').asString+'''');
Я попробовал с другими полями fio и id
ничего не помогло

[vovk]

a

DBGrid1.DataSource.DataSet

вообще открыт? и это точно не

DataModule13.ADOQ_Sotrudnik

?

[sasha198407]

Сообщение от vovk

a

DBGrid1.DataSource.DataSet

вообще открыт? и это точно не

DataModule13.ADOQ_Sotrudnik

?

Не совсем понял что означает открыть, но в свойствах компонента DBGrid1 стоит DataSource.DataSet=ADOQ_Sotrudnik. Я так понимаю, что открыт. Ну собственно я пробовал и DBGrid1.DataSource.DataSet и DataModule13.ADOQ_Sotrudnik результат одинаковый

[vovk]

О боже

в общем попробуйте так

procedure TSotrudnik.OtpuskClick(Sender: TObject);
var
s_:string;
begin

s_:=DBGrid1.DataSource.DataSet.fieldbyname('tab_num').asString ;  
 DataModule13.ADOQ_Sotrudnik.Close;

    DataModule13.ADOQ_Sotrudnik.SQL.Clear;

    DataModule13.ADOQ_Sotrudnik.SQL.Add('INSERT INTO otpusk (tab_num, fio, dolgnost, id_otd)');

    DataModule13.ADOQ_Sotrudnik.SQL.Add('SELECT tab_num, fio, dolg, id_otd');

    DataModule13.ADOQ_Sotrudnik.SQL.Add('FROM sotrudniki where tab_num=' +s_);

    DataModule13.ADOQ_Sotrudnik.ExecSQL;

    DataModule13.ADOQ_Sotrudnik.SQL.Add('SELECT * FROM sotrudniki');

    DataModule13.ADOQ_Sotrudnik.Active := true;

    DataModule13.ADOQ_Otpusk.SQL.Add('SELECT * FROM otpusk');

    DataModule13.ADOQ_Otpusk.Active := true;

end;

по поводу открыт, какие данные по вашему содержит

 DataModule13.ADOQ_Sotrudnik

после этого

DataModule13.ADOQ_Sotrudnik.Close;

действия?

[sasha198407]

Уай-уай!!! дорогой заработало. Только единственное добавил quotedstr в строчку
DataModule13.ADOQ_Sotrudnik.SQL.Add ('FROM sotrudniki where tab_num=' +quotedstr(s_)); И ещё он почему-то выделенную строку два раза копирует

[vovk]

Сообщение от sasha198407

Уай-уай!!! дорогой заработало. Только единственное добавил quotedstr в строчку
DataModule13.ADOQ_Sotrudnik.SQL.Add ('FROM sotrudniki where tab_num=' +quotedstr(s_));

я просто предпологал что tab_num числовое поле.

Сообщение от sasha198407

У И ещё он почему-то выделенную строку два раза копирует

сколько записей условию соответствует столько и добавляет.

[sasha198407]

Ну, всё всем спасибо. Тему можно закрывать.

[evg_m]

И ещё он почему-то выделенную строку два раза копирует

DataModule13.ADOQ_Sotrudnik.SQL.Add ('FROM sotrudniki where tab_num=' +s_);
поробуй вывести здесь Showmessage( DataModule13.ADOQ_Sotrudnik.SQL.Tex t);
DataModule13.ADOQ_Sotrudnik.ExecSQL ;
DataModule13.ADOQ_Sotrudnik.SQL.Add ('SELECT * FROM sotrudniki');
поробуй вывести и вот здесь Showmessage( DataModule13.ADOQ_Sotrudnik.SQL.Tex t);
и потом сравни их.

Мы все добавляем (Add) но не чистим. Для простых (коротких) запросов надежнее писать так.
DataModule13.ADOQ_Sotrudnik.SQL.Text:='SELECT * FROM sotrudniki';