Delphi+Access: ADOTable

[BanzoO]

Использую ADOConnection, DataSource, ADOTable,DBGrid.
Устанавливаю связь ADOConnection (jet 4) с акцесс файлом жму проверить, всё норм. Дальше DataSource с ADOTable. ADOTable в поле TableName нечего нету. Что я не так делаю? может я не правильно создаю таблицу в акцессе?
я и через конструктор и через мастера создавал.

[Stilet]

Дальше DataSource с ADOTable.

А ADOTable с ADOConnection связал?

[BanzoO]

Спасибо за подсказку.

Терь вопрос у меня есть таблица <info> и поля. как сделать запрос?
делаю так, крашится.

ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from info';
ADOQuery1.Open;
Form1.Label17.Caption:=ADOQuery1.FieldByName('Группа').AsString;

[AlexanderKs]

ADOQuery1.Active:=false;
ADOQuery1.SQL.Text:='select * from info';
ADOQuery1.Active:=true;
ADOQuery1.First;
Form1.Label17.Caption:=ADOQuery1.FieldByName('Группа').AsString;

Читать дальше в цикле от 1 до ADOQuery1.RecordCount перемещаясь
по строке: ADOQuery1.Next;

[Serge_Bliznykov]

AlexanderKs, мимо!
Совет абсолютно неправильный!

1) ADOQuery1.Active:=true;
Это ТОЧНО тоже же самое, что и ADOQuery1.Open;

2) После открытия датасета он и так устанавливается на первую запись!


BanzoO
Ошибка какая?

а записи в таблице info вообще есть?
после открытия сделайте так

ADOQuery1.Open;
if ADOQuery1.RecordCount = 0 then ShowMessage('Нет записей!')
else
  Label17.Caption:=ADOQuery1.FieldByName('Группа').AsString;

В таблице есть поле с именем Группа ?

Ещё характерная ошибка.
Двойным щелчком в DesignTime по AdoQuery1 и проверьте,
может быть вы какое-то поле вытащили в список полей..
Тогда выделите все поля и удалите!

И последнее. Зачем Вы указываете для Label7 форму (Form1) ?
Набор данных и его открытие происходит на другой форме? Может быть, у Вас Form1 отсутствует?!

[AlexanderKs]

Бывает, ошибаюсь, как же без этого
Но код всегда проверяю.
Не пользуюсь Open потому что на практике метод часто выдавал ошибку. С Active всегда работало.
Если в результате нет записей, цикл от 1 до 0 (for) не запустится
При получении набора записей в результате запроса указатель находится на последней строке
Проверка, есть ли атрибут "Группа" - спрятать Active:=true в блок try и обрабатывать исключения

[Stilet]

до ADOQuery1.RecordCount перемещаясь

Не рекомендуется, потому как не всеми провайдерами поддерживается.
Лучше всего на eof проверять.

[BanzoO]

Сообщение от Serge_Bliznykov

AlexanderKs, мимо!
Совет абсолютно неправильный!

1) ADOQuery1.Active:=true;
Это ТОЧНО тоже же самое, что и ADOQuery1.Open;

2) После открытия датасета он и так устанавливается на первую запись!


BanzoO
Ошибка какая?

а записи в таблице info вообще есть?
после открытия сделайте так

ADOQuery1.Open;
if ADOQuery1.RecordCount = 0 then ShowMessage('Нет записей!')
else
  Label17.Caption:=ADOQuery1.FieldByName('Группа').AsString;

В таблице есть поле с именем Группа ?

Ещё характерная ошибка.
Двойным щелчком в DesignTime по AdoQuery1 и проверьте,
может быть вы какое-то поле вытащили в список полей..
Тогда выделите все поля и удалите!

И последнее. Зачем Вы указываете для Label7 форму (Form1) ?
Набор данных и его открытие происходит на другой форме? Может быть, у Вас Form1 отсутствует?!

Спасибо разобрался RAD XE у меня галит, перезапустил работает всё.

ADOTable1.Edit;
ADOTable1.FieldByName('Группа').Value := Edit3.Text;

как сделать, чтоб изменения сохранялись?

[Stilet]

ADOTable1.Post

И бегом учить мануалы по этим компонентам и технологиям!

[BanzoO]

спасибо, я не прогаю на делфи. Это летняя практика