Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Помогите добавить запись

Автор: chup007 25.4.2006, 13:32

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

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

Автор: ТоляМБА 25.4.2006, 13:42

Ну идэшник-то наверное автоматом формируется?
Тогда:
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

Автор: ТоляМБА 26.4.2006, 05:14

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

Автор: chup007 26.4.2006, 08:35

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

Автор: ТоляМБА 26.4.2006, 09:09

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

)

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

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

Автор: chup007 26.4.2006, 10:41

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

Автор: Vit 26.4.2006, 17:03

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

)

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

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