Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты! Сушествует база данных, локальная, при вводе данных часто бывает что не известна одна дата, соответственно я ее не записываю в запись. Когда же дата становиться известна не могу изменить запись, запрос просто не выполняется, хотя Дельфи не ругается. Когда дата записана, запись меняется.

Вопрос задал: Балашов В.Ю. (статус: Посетитель) Вопрос отправлен: 5 июня 2007, 13:19 Состояние вопроса: открыт, ответов: 0.

Мини-форум вопроса

Venom (статус: 1-ый класс), 5 июня 2007, 14:03 [#1]: по-точнее запрос и структуру базы

Балашов В.Ю. (статус: Посетитель), 5 июня 2007, 18:49 [#2]: Таблица со справочниками, а запрос update main set nom = :n, name_dog = :nd, vid = :v, dat_pod = :d, gar = :g , dat_ok = :d1, stor1 = :s1, stor2 =:s2, stor3 =:s3, stoim =:st, val1 =:v1, avans =:av, val2=:v2, typ_d=:t, prim =:pr where nom = :n4 and name_dog = :nd4 and vid = :v4 and dat_pod = :d4 and gar = :g1 and dat_ok = :d14 and stor1 = :s14 and stor2 =:s24 and stor3 =:s34 and stoim =:st4 and val1 =:v14 and avans =:av4 and val2=:v24 and typ_d=:t4 Сам код. Form1.edit.Prepare; Form1.edit.Params[0].AsString := Edit1.Text; Form1.edit.Params[1].AsInteger := n; Form1.edit.Params[2].AsString := Edit2.Text; Form1.edit.Params[3].AsDate := DateTimePicker1.Date; Form1.edit.Params[4].AsBoolean := CheckBox1.Checked; Form1.edit.Params[5].AsDate := DateTimePicker2.Date; Form1.edit.Params[6].AsInteger := s1; Form1.edit.Params[7].AsInteger := s2; Form1.edit.Params[8].AsInteger := s3; Form1.edit.Params[9].AsInteger := StrToInt(Edit3.Text); Form1.edit.Params[10].AsInteger := v1; Form1.edit.Params[11].AsInteger := StrToInt(Edit4.Text); Form1.edit.Params[12].AsInteger := v2; Form1.edit.Params[13].AsInteger := t1; Form1.edit.Params[14].AsMemo := Memo1.Text; Form1.edit.Params[15].AsString := Form1.Gridf1.FieldByName('nom').AsString;; Form1.edit.Params[16].AsInteger := Form1.Gridf1.FieldByName('name_dog_1').AsInteger; Form1.edit.Params[17].AsString := Form1.Gridf1.FieldByName('vid').AsString;; Form1.edit.Params[18].AsDate := Form1.Gridf1.FieldByName('dat_pod').AsDateTime; Form1.edit.Params[19].AsBoolean := Form1.Gridf1.FieldByName('gar').AsBoolean; Form1.edit.Params[20].AsDate := Form1.Gridf1.FieldByName('dat_ok').AsDateTime; // пустая дата в таблице. Form1.edit.Params[21].AsInteger := Form1.Gridf1.FieldByName('stor1').AsInteger; Form1.edit.Params[22].AsInteger := Form1.Gridf1.FieldByName('stor2').AsInteger; Form1.edit.Params[23].AsInteger := Form1.Gridf1.FieldByName('stor3').AsInteger; Form1.edit.Params[24].AsInteger := Form1.Gridf1.FieldByName('stoim').AsInteger; Form1.edit.Params[25].AsInteger := Form1.Gridf1.FieldByName('val1').AsInteger; Form1.edit.Params[26].AsInteger := Form1.Gridf1.FieldByName('avans').AsInteger; Form1.edit.Params[27].AsInteger := Form1.Gridf1.FieldByName('val2').AsInteger; Form1.edit.Params[28].AsInteger := Form1.Gridf1.FieldByName('typ_d').AsInteger; Form1.edit.ExecSQL;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.