VPF::добавление записей через AdoQuery

neweraser

Дата 1.12.2009, 01:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

Всем привет

Код


  DataModule1.ADOQuery.Close;
  DataModule1.ADOQuery.SQL.Clear;
  for i:= 0 to ObjGuardList2.Count - 1 do
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (EmplName) Values("' + ObjGuardList2.Items[i] + '")');
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (GenDir) Values("' + Datamodule1.RequisTable.FieldByName('GenDir').AsString + '")');
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (FullName) Values("' + Datamodule1.RequisTable.FieldByName('FullName').AsString + '")');
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (ObjName) Values("' + ObjChoose.DataField + '")');
  DataModule1.ADOQuery.ExecSQL;

добавляю много строк и выдается такая ошибка

Цитата

пропущен символ (;) в конце инструкции SQL

пробовал так

Код


DataModule1.ADOQuery.Close;
  DataModule1.ADOQuery.SQL.Clear;
  for i:= 0 to ObjGuardList2.Count - 1 do
  begin
    DataModule1.ADOQuery.SQL.Clear;
    DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (EmplName) Values("' + ObjGuardList2.Items[i] + '")');
    DataModule1.ADOQuery.ExecSQL;
  end;
  DataModule1.ADOQuery.SQL.Clear;
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (GenDir) Values("' + Datamodule1.RequisTable.FieldByName('GenDir').AsString + '")');
  DataModule1.ADOQuery.ExecSQL;
  DataModule1.ADOQuery.SQL.Clear;
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (FullName) Values("' + Datamodule1.RequisTable.FieldByName('FullName').AsString + '")');
  DataModule1.ADOQuery.ExecSQL;
  DataModule1.ADOQuery.SQL.Clear;
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (ObjName) Values("' + ObjChoose.DataField + '")');
  DataModule1.ADOQuery.ExecSQL;

добавляет но криво и в середине вываливается ошибка
и даже после каждой
DataModule1.ADOQuery.SQL.Clear; (после цикла) добавлял
DataModule1.ADOQuery.First; smile

в сети ничего кроме

Цитата

Access не поддерживает конструкцию оператора INSERT для множественной вставки.
Для множественной вставки используйте цикл, где на каждой итерации производите вставку 1 строки
Но, используя Delphi можно обойтись гораздо проще, не использовать оператор INSERT SQL..
а просто InsertRecord
например..

Код:
var i:integer;
begin
for i := 0 to Memo1.Lines.Count-1 do
ADOTable1.InsertRecord([Memo1.Lines[i]]);
end;

больше ничего не нашел, может есть какой-то еще вариант решения проблемы? не хочется ADOTable использовать, и так на форме куча компонентов

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 1.12.2009, 01:42 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 1.12.2009, 01:22

)

добавляет но криво и в середине вываливается ошибка

Почему криво, какая ошибка? Вообще перед каждым .Clear делай .Close

Код


DataModule1.ADOQuery.Close;
DataModule1.ADOQuery.SQL.Clear;

Добавлено через 41 секунду

Цитата(neweraser @ 1.12.2009, 01:22

)

DataModule1.ADOQuery.First;

Это явно ни при чём. smile

--------------------

There's nothing left but silent epitaphs.

Teleport

Дата 1.12.2009, 03:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

Цитата

пропущен символ (;) в конце инструкции SQL

В тексте SQL-запроса в конце перед самой ' нужно ставить ;

Код


ADOQ1.Active:= false;
ADOQ1.SQL.Clear;
ADOQ1.SQL.Add('INSERT INTO my_table1 VALUES("' +my_str_value1+'","' + my_str_value2+'", "' + my_str_value3 + '","' + my_str_value4 + '");');
ADOQ1.ExecSQL;

Видишь - у меня ; перед ' smile

Немного не по теме - ты всегда пишешь на каждой строке DataModule1.ADOQuery?
with - вообще не пользуешься? Это я на всякий случай. 3-4 строчки еще без него, а более - уже с ним, как-то удобнее.

Это сообщение отредактировал(а) Teleport - 1.12.2009, 03:17

--------------------

neweraser

Дата 1.12.2009, 10:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

Цитата(Данкинг @ 1.12.2009, 01:42

)

какая ошибка?

он с ObjguardList2 добавляет как нужно, потом добавляет запись в 3-4 строку (в зависимости от ObjguardList2.Count), хотя мне надо в 1-ю строку в поле 'GenDir', а потом ошибка (какая не помню (я не дома) smile

Код


 DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (GenDir) Values("' + Datamodule1.RequisTable.FieldByName('GenDir').AsString + '")');

Цитата(Teleport @ 1.12.2009, 03:07

)

with - вообще не пользуешься?

пользовался, но потом посчитал это некрасивым smile

, т.к. у меня сначала with, потом if условия, goto и др... а потом опять добавление smile

могу код скинуть smile

только вечером

Цитата(Teleport @ 1.12.2009, 03:07

)

В тексте SQL-запроса в конце перед самой ' нужно ставить ;

я пробовал, все равно та же ошибка :((

--------------------

Кто ищет, тот всегда найдет.

Frees

Дата 1.12.2009, 10:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

может
поле Datamodule1.RequisTable.FieldByName('FullName').AsString или другие поля имеют значение null? asstring тогда вернет пустоту и запрос у тебя криво соберется

--------------------

Кольцов Виктор Владимирович

Данкинг

Дата 1.12.2009, 12:01 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 1.12.2009, 10:10

)

потом добавляет запись в 3-4 строку (в зависимости от ObjguardList2.Count), хотя мне надо в 1-ю строку в поле 'GenDir',

Если надо вставлять в конкретную строку, то используется не Insert, а Update с условием Where. smile

И вообще, что значит "третья" строка? Конечно, в трёх записях не запутаешься, но когда добавишь 1000-ю запись, далеко не факт, что в таблице она и физически будет именно 1000-й. smile

Это сообщение отредактировал(а) Данкинг - 1.12.2009, 12:19

--------------------

There's nothing left but silent epitaphs.

neweraser

Дата 1.12.2009, 18:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

Цитата(Frees @ 1.12.2009, 10:19

)

поле Datamodule1.RequisTable.FieldByName('FullName').AsString или другие поля имеют значение null?

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

Цитата(Данкинг @ 1.12.2009, 12:01

)

Update с условием Where

как это?

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 1.12.2009, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 1.12.2009, 18:56

)

как это?

При наличии ключевого (к примеру) поля:

Код


update TABLE set pole1='3' where id=3

В данном случае в pole1 будет занесено значение "3" для тех записей, у которых поле id имеет значение 3.

--------------------

There's nothing left but silent epitaphs.

Teleport

Дата 1.12.2009, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 5.7.2008
Где: Прибалтика

Репутация: 1
Всего: 6

2 neweraser - главное определиться - тебе нужно ИЗМЕНИТЬ (ОБНОВИТЬ) значения в существующей записи (строке) или же ДОБАВИТЬ НОВУЮ запись (строку) в таблицу.

--------------------

neweraser

Дата 1.12.2009, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

все равно не доходит до меня :(
ipicture не грузится, поэтому так присоеденил на всякий случай.
в поле EmplName у меня добавляется несколько записей
в остальные по одной записи из лругой таблицы
изначально код выглядел вот так

Код


DataModule1.ADOQuery.Close;
  DataModule1.ADOQuery.SQL.Clear;
  for i:= 0 to ObjGuardList2.Count - 1 do
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (EmplName) Values("' + ObjGuardList2.Items[i] + '")');
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (GenDir) Values("' + Datamodule1.RequisTable.FieldByName('GenDir').AsString + '")');
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (FullName) Values("' + Datamodule1.RequisTable.FieldByName('FullName').AsString + '")');
  DataModule1.ADOQuery.SQL.Add('Insert into ' + TableName + ' (ObjName) Values("' + ObjChoose.DataField + '");');
  DataModule1.ADOQuery.ExecSQL;

Присоединённый файл ( Кол-во скачиваний: 12 )

123.jpg 15,44 Kb

--------------------

Кто ищет, тот всегда найдет.

neweraser

Дата 1.12.2009, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

Teleport, я добавляю новые записи в только что созданную таблицу

Присоединённый файл ( Кол-во скачиваний: 16 )

123.jpg 15,44 Kb

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 1.12.2009, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

neweraser, хочешь сказать, этот код заполняет первую строку таблицы? smile

--------------------

There's nothing left but silent epitaphs.

neweraser

Дата 1.12.2009, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

нееет, он должен заполнять только ЕмплНаме, допустим 4 поля сверху, остальные 3 поля только на первой строке, а остальные поля потом будут заполняться

Добавлено через 1 минуту и 25 секунд
smile

фигня какая-то, вирус? английские буквы в русские переключаются, делпхи smile

(было написано на англ. раскладке)

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 1.12.2009, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 1.12.2009, 19:44

)

остальные 3 поля только на первой строке, а остальные поля потом будут заполняться

Вот для этого каждая строка и должна иметь уникальный номер (например, ID). Вначале заполняем 4 строки ЕмплНаме с помощью insert, а потом уже - 3 столбца первой строки с помощью update... where ID=1... smile

Цитата(neweraser @ 1.12.2009, 19:44

)

фигня какая-то, вирус? английские буквы в русские переключаются, делпхи

Это не вирус, это ПунтоСвитчер. smile

--------------------

There's nothing left but silent epitaphs.

neweraser

Дата 1.12.2009, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

а можно без ид? например where ('поле GenDir - первая строка') smile

пс это не пунто свичер, а что-то с форумом или моей оперой smile

Добавлено через 1 минуту и 40 секунд
т.к. в блокноте нормально все )) скопировал - вставил в окошко сообщения - вроде нормально

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 1.12.2009, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 1.12.2009, 20:29

)

а можно без ид? например where ('поле GenDir - первая строка')

Можно, если ты уверен, что Иван Иванович Иванов у тебя во всей базе один-единственный. smile

Цитата(neweraser @ 1.12.2009, 20:29

)

пс это не пунто свичер, а что-то с форумом или моей оперой

Ну, не знаю, обычно такое с ПунтоСвитчером бывает как раз бывает. А так - видимо, глюк очередной. smile

--------------------

There's nothing left but silent epitaphs.

neweraser

Дата 1.12.2009, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

чуть не так сформулировал, это пустое поле, можно просто как-то явно указать на него?

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 1.12.2009, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 1.12.2009, 21:23

)

пустое поле

...where pole1 is null (вроде в Access так) - обновляются записи с пустыми полями pole1. smile

--------------------

There's nothing left but silent epitaphs.

neweraser

Дата 1.12.2009, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

ну так они все обновляются smile

а мне одно надо, а хотя в принципе и все можно, уже просто времени нет думать..
Спасибо smile

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 1.12.2009, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

neweraser, не знаю-не знаю, должны только по условию WHERE..., разбирайся, где накосячилзаблуждаешься. smile

--------------------

There's nothing left but silent epitaphs.

neweraser

Дата 2.12.2009, 00:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

AdoQuery же вроде работает почти как и AdoTable, можно его соединить с какой-нибудь таблицей?
например как-то так
DataSource1.DataSet:= table1
(до этого в AdoQuery в свойствах выбрал DataSource1)
а потом работать как и с AdoTable, т.е.
ADOQuery.FieldByName('pole'):= 'значение';
или я опять туплю и этого делать не стоит?

Цитата(Данкинг @ 1.12.2009, 23:25

)

разбирайся, где накосячилзаблуждаешься

в пятницу курсовик сдавать, времени нет, а у меня не то что программа не готова, так еще теории нет

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 2.12.2009, 00:58 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 2.12.2009, 00:30

)

можно его соединить с какой-нибудь таблицей?

Если просто в нём выбираешь все записи (select * from TABLE), то... Вроде как можно, только не помню, делал ли я так когда-то. В общем, попробуй, должно получиться:

Код


AdoQuery.Close;
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add('select * from table');
AdoQuery.Open;
AdoQuery.Append;
AdoQuery.FieldByName('pole1').AsString:='bugaga';
AdoQuery.Post;

Добавлено @ 01:00

Цитата(neweraser @ 2.12.2009, 00:30

)

(до этого в AdoQuery в свойствах выбрал DataSource1)

А это зачем? Указываешь для AdoQuery соответствующее AdoConnection - и всё, безо всяких датасоурсов.

Это сообщение отредактировал(а) Данкинг - 2.12.2009, 01:01

--------------------

There's nothing left but silent epitaphs.

neweraser

Дата 2.12.2009, 01:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 598
Регистрация: 17.2.2008

Репутация: нет
Всего: 6

только вместо AdoQuery.Append мне нужно было AdoQuery.Edit
спасибо еще раз! выручил!!

--------------------

Кто ищет, тот всегда найдет.

Данкинг

Дата 2.12.2009, 01:39 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(neweraser @ 2.12.2009, 01:23

)

только вместо AdoQuery.Append мне нужно было AdoQuery.Edit

В таком случае (т.е. для редактирования) не забудь сначала встать на нужную строку, к примеру:

Код


AdoQuery.First;
...
AdoQuery.Recno:=101;

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »