Работа с 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;
местами поменяй

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

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