Скачать: CL | DM;

Числовой тип поля в Access   Найти похожие ветки 

← →
Smalik   (2004-05-13 17:30) [0]

Доброе время суток всем!
Использую DCOM, ADO+Access на сервере, на тонком клиенте не работает следующий код по сохранению данных в базу:

DBGrid1.DataSource.DataSet.Insert;
DBGrid1.Fields[0].AsInteger := StrToInt(Forma2.Edit1.Text);
DBGrid1.Fields[1].Text := Forma2.Edit2.Text;
DBGrid1.Fields[2].AsInteger := Forma2.ComboBox2.ItemIndex;
DBGrid1.Fields[3].AsInteger := Forma2.ComboBox1.ItemIndex;
DBGrid1.Fields[4].AsInteger := StrToInt(Forma2.Edit3.Text);
DBGrid1.DataSource.DataSet.Post;
ClientDataSet1.ApplyUpdates(-1);

Тип поля в Таблице Access числовой кроме DBGrid1.Fields[1].Text

Спасибо.

---

← →
MU   (2004-05-13 17:38) [1]

Не работает?! Пишите внятно, что значит "не работает"

---

← →
Smalik   (2004-05-13 17:39) [2]

Не сохраняет новую строку, которую я пытаюсь добавить в таблицу

---

← →
MU   (2004-05-13 17:59) [3]

А что при этом в Forma2.Edit1.Text и Forma2.Edit3.Text
StrToInt не возбуждает исключения? В отладке проходили?

---

← →
Smalik   (2004-05-13 18:02) [4]

Не возбуждают, для этого и пытался указать .AsInteger
Может есть какие-нибудь примеры по работе с числовыми типами полей и счетчиками в Ассеsse

---

← →
MU   (2004-05-13 18:04) [5]

А что, одно из этих полей счетчик? Тогда его заполнять НЕ надо -он сам получит значение

---

← →
Smalik   (2004-05-13 18:04) [6]

счетчика нет

---

← →
MU   (2004-05-13 18:09) [7]

Уникальный ключ есть у записи? Может, происходит дублирование?

---

← →
MU   (2004-05-13 18:13) [8]

Напишите обработчик OnreconcileError у ClientDataSet1

procedure TForm2.ClientDataSet1ReconcileError(
 DataSet: TCustomClientDataSet; E: EReconcileError;
 UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
 ShowMessage(E.Message);
end;
И читайте

---

← →
Smalik   (2004-05-14 07:56) [9]

Если кому интересно, то заработал следующий код:
Form1.ClientDataSet1.Close;
Form1.ClientDataSet1.CommandText:="INSERT INTO TblNomenkl VALUES (" + Forma2.Edit1.Text + ","""+ Forma2.Edit2.Text + """," + IntToStr(Forma2.ComboBox2.ItemIndex) +","+ IntToStr(Forma2.ComboBox1.ItemIndex)+ "," + Forma2.Edit3.Text + ")";
Form1.ClientDataSet1.Execute;

в ClientDataSet нужно указать BathOptimistic

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c