VPF::Помогите добавить запись - Форум программистов

chup007

Дата 25.4.2006, 13:32 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 12.3.2006
Где: РФ ЖИГУЛЕВСК 63 Р ЕГИОН

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

Помогите пожалуйта добавить в таблицу запись
Таблица Poseshenie(id, Time_poseshenia, Kod_klienta, Kod_personala, Kod_uslugi)
Дайте пример пожалуйста. smile

Заранее благодарен!!

ТоляМБА

Дата 25.4.2006, 13:42 (ссылка)

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

Загрузка ...

Котэ

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

Репутация: 3
Всего: 252

Ну идэшник-то наверное автоматом формируется?
Тогда:
1.

Код


ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('Insert into Poseshenie (Time_poseshenia, Kod_klienta, Kod_personala, Kod_uslugi)
values (10:12:00, 1,2,3)');
ADOQuery1.ExecSQL;

Код


ADOTable1.Append;
ADOTable1.FieldValues('Time_poseshenia').AsDatetime:='10:12:00';
ADOTable1.FieldValues('Kod_klienta').AsInteger:=1;
ADOTable1.FieldValues('Kod_personala').AsInteger:=2;
ADOTable1.FieldValues('Kod_uslugi').AsInteger:=3;
ADOTable1.Post;

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

chup007

Дата 25.4.2006, 14:04 (ссылка)

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

Загрузка ...

ТоляМБА, спасибо
в чем здесь может быть ошибка

Код

db_add_poseshenie.ADOQuery1.SQL.Clear;
db_add_poseshenie.ADOQuery1.SQL.ADD('Insert into Poseshenie (Time_poseshenia, Kod_klienta, Kod_personala, Kod_uslugi) values (:pdt, :pkl, :pkp, :pku)');
db_add_poseshenie.ADOQuery1.Parameters.ParamByName('pdt').Value:=datetostr(DateTimePicker1.date)+' '+inttostr(SpinEdit1.value)+':'+inttostr(SpinEdit2.value);
db_add_poseshenie.ADOQuery1.Parameters.ParamByName('pkl').Value:=strtoint(dblookupcombobox1.keyfield);
db_add_poseshenie.ADOQuery1.Parameters.ParamByName('pkp').Value:=strtoint(dblookupcombobox2.keyfield);
db_add_poseshenie.ADOQuery1.Parameters.ParamByName('pku').Value:=strtoint(dblookupcombobox3.keyfield);
db_add_poseshenie.ADOQuery1.ExecSQL;

ругаеться типа id не integer

Это сообщение отредактировал(а) chup007 - 25.4.2006, 14:05

ТоляМБА

Дата 26.4.2006, 05:14 (ссылка)

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

Загрузка ...

Котэ

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

Репутация: 3
Всего: 252

Полный текст ошибки в студию! И значения боксов тоже

chup007

Дата 26.4.2006, 08:35 (ссылка)

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

Загрузка ...

пишет ""id" is not valid integer value", а dblookupcomboboxn.keyfield равны ключам других таблиц

ТоляМБА

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

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

Загрузка ...

Котэ

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

Репутация: 3
Всего: 252

Цитата(ТоляМБА @ 25.4.2006, 13:42

)

Ну идэшник-то наверное автоматом формируется?

Ты этот текст видел? Напиши как формируется идешник!

chup007

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

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

Загрузка ...

ТоляМБА, спасибо за помощь, сделал по другому через dbnavigamor

Vit

Дата 26.4.2006, 17:03 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Цитата(chup007 @ 26.4.2006, 01:41

)

, сделал по другому через dbnavigamor

Мдя... тяжёлый случай... Скажу по секрету - использовать DBNavigator для этого - это даже хуже чем удалять гланды автогеном через задний проход... Если надо сделать хоть как-нибудь то тогда могу за вас порадоваться, а если задача состоит написать программу правильно или хотябы понять как делать правильно, то желательно было бы прислушаться к тому что вам говорят и советуют...

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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