Извлечь данные из access через AdoQuery

[kmvteam]

Как извлечь каждую ячеику строчки в баз данных access. \В отдельный edit,combox и т. п.
То есть как вытащить данные через AdoQuery?

Необходимо отредактировать данные в MS Access, как с помощью AdoQuery это можно сделать? То есть необходимо извлечь данные в edit и т.п.

[SERG1980]

А чем вам DBEdit не нравится, возни будет меньше. а лучше DBGrid. Но в любом случае делайте подключение через ADOConnection далее SQL запрос ( типа SELECT * FROM Название таблицы), а уж потом извращайтесь. Только неудобно вам будет загонять все поля в эдиты и редактировать их

[kmvteam]

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

А чем вам DBEdit не нравится, возни будет меньше. а лучше DBGrid. Но в любом случае делайте подключение через ADOConnection далее SQL запрос ( типа SELECT * FROM Название таблицы), а уж потом извращайтесь. Только неудобно вам будет загонять все поля в эдиты и редактировать их

Задача, такая.
DbGRID имеется, есть отдел. форма добавления
Надо форму редактирования.

Данные извлек, но возникла проблема как извлечь нужную строку, у меня сечас извлекаются данные из первой в не зависемости где стоит курсор.

[SERG1980]

Дык я вам и говорю используйте лучше DBEdit а не эдит. Перевели вашу БД в состояние редакитрования и всё. А так покажите как вы извлекаете данные в эдит, потому как если делать всё правильно то где курсор такие данные и будут браться

[kmvteam]

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

Дык я вам и говорю используйте лучше DBEdit а не эдит. Перевели вашу БД в состояние редакитрования и всё. А так покажите как вы извлекаете данные в эдит, потому как если делать всё правильно то где курсор такие данные и будут браться

Код как делаю:

ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from Картотека';
ADOQuery1.Open;
edit1.Text:=ADOQuery1.FieldByName(' Имя').AsString;
Edit2.Text:=ADOQuery1.FieldByName(' Фамилия').AsString;
Edit3.Text:=ADOQuery1.FieldByName(' Отчество').AsString;
ComboBox1.Text:=ADOQuery1.FieldByNa me('Пол').AsString;
DBCOmboBOx2.Text:= ADOQuery1.FieldByName('Подразделени е').AsString;
DBCOmboBOx1.Text:= ADOQuery1.FieldByName('Должность'). AsString;
Edit5.Text:=IntToStr(ADOQuery1.Fiel dByName('Код_сотрудника').AsInteger );
ComboBox2.Text:=ADOQuery1.FieldByNa me('Семеиное_положение').AsString;

лучше DBEdit а не эдит. Перевели вашу БД в состояние редакитрования и всё.

Можно поподробнее как реализовать?

[artemavd]

Можно поподробнее как реализовать?

Че там подробнее-то. Кидаете на форму DBEdit1 на форму, настраиваете его свойство DataSource на нужный Вам DataSource, и, в поле FieldName (или DataField, точно не помню как называется) указываете нужное Вам поле. И фсе.

[kmvteam]

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

Че там подробнее-то. Кидаете на форму DBEdit1 на форму, настраиваете его свойство DataSource на нужный Вам DataSource, и, в поле FieldName (или DataField, точно не помню как называется) указываете нужное Вам поле. И фсе.

Спасибо, но также отображается только первая строка.

[kmvteam]

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

Спасибо, но также отображается только первая строка.

Я просто не как не передаю значение этой строки, поидее.
На форме два есть DBGrid:

Есть кнопка form9.Show
На этой форме код:

var
i,k:String;
begin
ADOQuery1.Active:=False;
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from Картотека';
ADOQuery1.Open;
edit1.Text:=ADOQuery1.FieldByName(' Имя').AsString;
Edit2.Text:=ADOQuery1.FieldByName(' Фамилия').AsString;
Edit3.Text:=ADOQuery1.FieldByName(' Отчество').AsString;
ComboBox1.Text:=ADOQuery1.FieldByNa me('Пол').AsString;
DBCOmboBOx2.Text:= ADOQuery1.FieldByName('Подразделени е').AsString;
DBCOmboBOx1.Text:= ADOQuery1.FieldByName('Должность'). AsString;
Edit5.Text:=IntToStr(ADOQuery1.Fiel dByName('Код_сотрудника').AsInteger );
ComboBox2.Text:=ADOQuery1.FieldByNa me('Семеиное_положение').AsString;
DateTimePicker1.Date:= ADOQuery1.FieldByName('Дата_рождени я').AsDateTime;
Edit4.Text:=ADOQuery1.FieldByName(' Мед_осмотр').AsString;
Edit6.Text:=ADOQuery1.FieldByName(' Инструктаж').AsString;
if Edit4.Text='да' then
Begin
CheckBox1.Checked:=true;
DateTimePicker2.Date:= ADOQuery1.FieldByName('Дата_медосмо тра').AsDateTime;
end
Else
Begin
end;

if Edit6.Text='да' then
Begin
CheckBox2.Checked:=true;
DateTimePicker3.Date:= ADOQuery1.FieldByName('Дата_инструк тожа').AsDateTime;
end
Else
Begin
end;

[Serge_Bliznykov]

а какая строка Вам нужна?! Откуда программа может это знать?!
Значит, или бросайте на форму DBGrid, через компонент DataSource связывайте с его с ADOQuery1 и будете видеть все записи.
на нужной записи становитесь, нажимаете кнопочку редактировать, там ваш код (только БЕЗ ОТКРЫТИЯ ЗАПРОСА!!):

procedure Form1.btEditClick(
begin
  ADOQuery1.Edit;
  edit1.Text:=ADOQuery1.FieldByName('Имя').AsString;
  Edit2.Text:=ADOQuery1.FieldByName('Фамилия').AsString;
Edit3.Text:=ADOQuery1.FieldByName('Отчество').AsString;

после окончания на кнопочке Save:

begin
  ADOQuery1.FieldByName('Имя').AsString := edit1.Text;
  ADOQuery1.FieldByName('Фамилия').AsString := Edit2.Text;
  ....
  ADOQuery1.Post;
end;

либо, можно на форме сделать кнопки первая запись/ вперёд / назад / последняя запись и ходить по датасету:
первая запись: ADOQuery1.First;
вперёд ADOQuery1.Next;
назад ADOQuery1.Prev;
последняя - ADOQuery1.Last;
(кстати, есть такой стандартный элемент - DBNavigator)


p.s. пишу всё прямо на форуме, поэтому возможны опечатки...

[artemavd]

Уважаемый автор темы, Вы уж определитесь, что именно Вам нужно. То вы спрашиваете

Как извлечь каждую ячеику строчки в баз данных access

Я Вам дал ответ на этот вопрос. То Вы пишите, что

также отображается только первая строка.

Если Вам нужно чтобы отображались в DBEdit-ax значения в ячейках из разных строчек, то просто настройте DBNavigator на тот же DataSource, на который настроены DBEdit-ы