Проверить существование поля в таблице

@gordan11 · Регистрация: 16.05.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте. Как можно проверить существование поля в таблице, и если такого поля нет - добавить его. СУБД Access.
И еще один вопрос, есть код

Delphi
1
2
 DM.DataModule3.ADOQuery1.SQL.Add('Select * From ' + GrPr);
 DM.DataModule3.ADOQuery1.SQL.Add('ALTER TABLE '+ GrPr +' ADD '+ SData +' TEXT');

при запуске программы вылетает ошибка "Ошибка синтаксиса в предложении FROM".

@droider · 02.01.2015, 23:05

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

Как можно проверить существование поля в таблице

Delphi
1
2
3
4
 if DM.DataModule3.ADOQuery1.FindField('имя_поля')=nil then
Application.MessageBox('Поле не найдено!', 'Ошибка', mb_iconerror)
else
//добавляем его через ALTER TABLE...ADD...

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

вылетает ошибка "Ошибка синтаксиса в предложении FROM".

что такое GrPr? Попробуйте так

Delphi
1
DM.DataModule3.ADOQuery1.SQL.Add('Select * From ' + QuotedStr(GrPr));

@gordan11 · 03.01.2015, 00:11 **[ТС]**

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

что такое GrPr? Попробуйте так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
begin
 GrBox := Grupbox.Text;    //Получаем данные из комбобоксов
 PrBox := PredBox.Text;
 If (GrBox = '') then showmessage('Âûáåðèòå ãðóïïó')   //Проверка на наличие данных в комбобоксах
 Else
 Begin
 if
  (PrBox = '') then showmessage('Âûáåðèòå ïðåäìåò')
  Else
  Begin
 s := GrBox;
 GrBox := Translit(s);                                  //Транслит
 s := Prbox;
 PrBox := Translit(s);
 GrPr := GrBox + '_' + PrBox;                          //Получение запрашиваемой клиентом таблицы
 list := tstringlist.Create;
   DM.DataModule3.ADOConnection1.GetTableNames(list);
   if list.indexOf(GrPr) = -1 then                     //Проверка наличия таблицы
     showmessage('òàáëèöà îòñòóòñòâóåò')
     else
     Begin
      SData := DateToStr(Date);
      DM.DataModule3.ADOQuery1.Close;
      DM.DataModule3.ADOQuery1.SQL.Clear;
      DM.DataModule3.ADOQuery1.SQL.Add('Select * From ' + GrPr);
      DM.DataModule3.ADOQuery1.SQL.Add('ALTER TABLE '+ GrPr +' ADD '+ SData +' TEXT');
      DM.DataModule3.ADOQuery1.Open;
     end;
end;
end;
end;

А не может такая ошибка выскакивать из за того, что он 2 запроса читает как один

Delphi
1
2
DM.DataModule3.ADOQuery1.SQL.Add('Select * From ' + GrPr);
      DM.DataModule3.ADOQuery1.SQL.Add('ALTER TABLE '+ GrPr +' ADD '+ SData +' TEXT');

Наверное нужно было сразу весь код кинуть

@droider · 03.01.2015, 00:25

Да, может. Лучше запросы формировать отдельно.

Еще подкорректируйте этот блок кода. Так будет правильнее

Delphi
1
2
3
4
5
 GrBox := GrupBox.Items[GrupBox.ItemIndex];    //Получаем данные из комбобоксов
 PrBox :=PredBox.Items[PredBox.ItemIndex];
 If GrupBox.ItemIndex=-1  then showmessage('Выберите группу');  //Проверка на наличие данных в комбобоксах
 if PredBox.ItemIndex=-1 then showmessage('Выберите предмет');
...

@gordan11 · 03.01.2015, 15:20 **[ТС]**

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

//добавляем его через ALTER TABLE...ADD...

Поле не добавляется
Может я не так делаю?

Delphi
1
2
3
4
   DM.DataModule3.ADOQuery1.Close;
      DM.DataModule3.ADOQuery1.SQL.Clear;
      DM.DataModule3.ADOQuery1.SQL.Add('ALTER TABLE '+ GrPr +' ADD '+ SData);
      Dm.DataModule3.ADOQuery1.Open;

@droider · 03.01.2015, 15:28

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

Dm.DataModule3.ADOQuery1.Open;

должно быть

Delphi
1
Dm.DataModule3.ADOQuery1.ExecSQL;

@gordan11 · 03.01.2015, 15:34 **[ТС]**

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

должно быть
Код Delphi
1
Dm.DataModule3.ADOQuery1.ExecSQL;

Все равно не создает

@droider · 03.01.2015, 15:41

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

Все равно не создает

Конечно. Запрос на создание поля неправильный.

SData := DateToStr(Date);

это вы дату преобразовываете в строку? SData - это поле с датой? У него тип в Access какой указан?
Шаблон запроса
ALTER TABLE Таблица ADD COLUMN новое поле [тип]

@gordan11 · 03.01.2015, 15:46 **[ТС]**

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

это вы дату преобразовываете в строку? SData - это поле с датой? У него тип в Access какой указан?

Да, дата это строка. Sdata это переменная с датой, и мне нужно создать поле с именем SData

@pivogol · 01.08.2015, 18:00

У меня команда

Delphi
1
if DM.DataModule3.ADOQuery1.FindField('имя_поля')=nil then

всегда показывает, что поле 'имя_поля' не существует, даже если оно есть в базе.
Почему?
У ADOQuery1 прописано свойство connection, что ещё надо? открыть что-ли этот ADOQuery1?

Добавлено через 3 часа 33 минуты
Разобрался, нужно сначала сделать выборку и открыть набор.

@MotoArhangel · 25.01.2016, 07:14

Я так добавляю, если не верно исправьте:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TDB.SQLPost(DS:TDataSource; posts:string);
begin
  with Query do
    begin
      if Active then Close;
      Datasource:=DS;
      SQL.Clear;
      SQL.Add(posts);
      ExecSQL;
    end;
end;
 
procedure TDB.TableAddField(DS:TDataSource;NameTable,NameField:string);
begin
  if DS.DataSet.FindField(Namefield)=nil
    then ShowMessage('Нет') //DB.SQLPost(DS,'ALTER TABLE '+NameTable+' ADD '+Namefield+' INT');
      else ShowMessage('Есть');
end;

Сорри дату спутал=)

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.