SQL

[sasha198407]

Доброго времени суток. Есть база на MSSQLserver под названием kadr и состоит она из таблиц sotrudniki и otpusk

Таблица sotrudniki
tab_num
fio
dolg
id_otd

Таблица otpusk
tab_num
fio
dolgnost
id_otd

В Делфи7 создаю клиентскую часть. В Delphi подключение к БД происходит с помощью компонента ADOConnection.
Создал две формы. Первая frmSotrudnik с элементами ADOQ_Sotrudnik(ADOQuery1), Source1, DBGrid1, Button1. Вторая frmOtpusk с элементами ADOQ_Otpusk(ADOQuery2), Source2, DBGrid2.
Суть в том что бы, выделив одну из записей поля tab_num элемента DBGrid1 и нажав на кнопку Button1 копировать соответствующую строку в таблицу otpusk
Ниже приводится код:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type
  TSotrudnik = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Otpusk: TButton;
    procedure FormCreate(Sender: TObject);
    procedure OtpuskClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sotrudnik: TSotrudnik;

implementation

uses Unit13;

{$R *.dfm}

procedure TSotrudnik.FormCreate(Sender: TObject);
begin
      Sotrudnik.Show;
end;
procedure TSotrudnik.OtpuskClick(Sender: TObject);
begin
    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=' +DBGrid1.DataSource.DataSet.fieldbyname('tab_num').asString);
    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;

procedure TSotrudnik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action := caFree;
end;

end.

Компиляцию код проходит. но при нажатие на кнопку Button1, то есть при выполнении программы выпадает ошибка: Project kadr.exe raised exception class EDatabaseError with message 'ADOQ_Sotrudnik: Field 'tab_num' not found', Process stoped. Use Step Run to continue.
Я так понимаю он говорит что поле tab_num не найдено, но как так если я его вижу(название: tab_num) и в делфи и в MSSQLserver.
Помогите пожалуйста уже неделю бьюсь и всё никак. Зарание спасибо.

[asmodey1]

А вам не приходило в голову сначала ознакомиться с синтаксисом команды INSERT INTO ? А жаль...

[sasha198407]

Да я как бы знаком, а что не так?

[vovk]

написано по моему понятно

Field 'tab_num' not found'

меня смущает

DBGrid1.DataSource.DataSet.fieldbyn ame('tab_num').asString

DBGrid1.DataSource.DataSet есть ли в этом наборе данных поле с именем tab_num в тот момент когда вы пытаетесь прочитать его значение, и правильно ли написано tab_num может буква a на руссской раскладке.

[OlegVE]

Здравствуйте

1.

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

...Компиляцию код проходит. но при нажатие на кнопку Button1, то есть при выполнении программы выпадает ошибка

На сколько я знаю, в Delphi не проверяется SQL. Инструкции SQL передаются СУБД в виде строки (в том числе с функциями поддерживаемыми только в самой СУБД) и только потом, в момент обращения к СУБД, Вы получаете ошибку.

2.

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

Да я как бы знаком, а что не так?

Я не знаю диалект SQL MSSQLserver. Там должны быть какие-то особенности, в том числе, возможно, и для INSERT INTO... . Может в этом дело?

3. Под Button1 Вы понимаете Otpusk: TButton; и Button1Click одно и то-же с OtpuskClick?

До свидания.

[sasha198407]

OlegVE

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

3. Под Button1 Вы понимаете Otpusk: TButton; и Button1Click одно и то-же с OtpuskClick?

Да именно так, просто когда писал текст вопроса название кнопки указал не Otpusk, а Button1

[Аватар]

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

заменить на:

DataModule13.ADOQ_Sotrudnik.SQL.Add('INSERT INTO otpusk');

[sasha198407]

Ни чего из вышепредложенного не помогло. Название tab_num я копировал из базы, поэтому возможность неправильного названия исключаю.

[Stilet]

sasha198407

Вот что я тебе скажу. Выкинь свой учебник и почитай про нормальные формы базы.
У тебя есть таблица сотрудников. Зачем ты повторяешь поля в таблице отпусков?
Оставь в отпусках просто код сотрудника, тогда

    
with DataModule13.ADOQ_Sotrudnik do begin
 Close;
 SQL.text:='INSERT INTO otpusk SELECT tab_num FROM sotrudniki where tab_num=' +DBGrid1.DataSource.DataSet.fieldbyname('tab_num').asString;
 ExecSQL;
 SQL.text:='SELECT * FROM sotrudniki';
 Оpen;
end;
with  DataModule13.ADOQ_Otpusk do begin
  SQL.text:='SELECT * FROM otpusk';
  open;
end;

Нечего полям fio dolgnost id_otd делать в таблице отпусков.

[sasha198407]

Аватар, пробовал та же хрень.