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

Работа с ADOQery   Найти похожие ветки 

← →
Fedpavel   (2005-11-09 08:36) [0]

Помогите разобраться. Фрагмент текста
data_1.q_Tabel.SQL.Clear;
  data_1.q_Tabel.Close;
  data_1.q_Tabel.Connection:=data_1.ADO_Con1;
  data_1.q_Tabel.SQL.Add("SELECT*");
  data_1.q_Tabel.SQL.Add("From tbl_Tabel");
  data_1.q_Tabel.SQL.Add("WHERE ForemanID="""+IntToStr(int_Foreman)+"""");
  data_1.q_Tabel.SQL.Add("AND ObjectID="""+IntToStr(int_Object)+"""");
  data_1.q_Tabel.SQL.Add("AND MonthID="""+IntToStr(int_Month)+"""");
  data_1.q_Tabel.SQL.Add("And YearID="""+IntToStr(int_Year)+"""");
  data_1.q_Tabel.SQL.Add("ORDER BY EmployeeName");
  data_1.q_Tabel.Open;
  if data_1.q_Tabel.IsEmpty then
     Application.MessageBox("нет данных","Черновой табель",MB_ICONSTOP)
  else
     begin
        data_1.q_Tabel.Active:=True;
        data_1.q_Tabel.Prepared:=True;
        data_1.DataSource1.DataSet:=data_1.q_Tabel;
        frm_Tabel.DBGrid1.DataSource:=data_1.DataSource1;
        if frm_Tabel.rb_View.Checked=True then
           frm_Tabel.DBGrid1.ReadOnly:=True
        else
           frm_Tabel.DBGrid1.ReadOnly:=False;
        frm_Tabel.DBGrid1.Columns[0].FieldName:="TabelID";

При редактировании полученного набора записей выскакивает ошибка:Недостаточно сведений из основной таблицы для обновления.
Заранее спасибо

---

← →
sniknik ©   (2005-11-09 08:48) [1]

ключевое поле в таблице есть? добавь.
> data_1.q_Tabel.SQL.Clear;
>   data_1.q_Tabel.Close;
местами поменяй

---

← →
sniknik ©   (2005-11-09 08:57) [2]

хотя чегото я не помню, в семерке еще когда довно работал, чтобы там явно понятие "ключевое поле" упоминалось... вроде бы его заменял простой индекс на автоинкрементном поле со всеми модификаторами (дублям нет/модификация нет/null нет/...)

---

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

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



Память: 0.45 MB
Время: 0.024 c