| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с ADOQery [D7, Pervasive]
Fedpavel © (2005-11-09 08:36:00)Помогите разобраться. Фрагмент текста
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:57:00) [1]хотя чегото я не помню, в семерке еще когда довно работал, чтобы там явно понятие "ключевое поле" упоминалось... вроде бы его заменял простой индекс на автоинкрементном поле со всеми модификаторами (дублям нет/модификация нет/null нет/...)
sniknik (2005-11-09 08:48:00) [2]ключевое поле в таблице есть? добавь.
> data_1.q_Tabel.SQL.Clear;
> data_1.q_Tabel.Close;
местами поменяй
| |
