Связь Delphi и Access

[Juliett]

Помогите пожалуйста!!!!!
Я не сильна в связях и с базами. Мне нужно через делфи заполнять таблицу и считывать информацию из нее для расчетов в программе. База состоит из одной таблицы. Программа состоит из 10 этапов, нужно чтобы в таблицу записивылись данные на каждом этапе и при выходе сохранялись, чтобы при запуске в следующий раз конкретный человек мог продолжить с места, где закончил или просмотреть свои итоговые результаты. Может у кого есть что то подобное, и я смогу этой основе додуматься как сделать.
Помогите пожалуйста!!!

[Valio]

Я для работы с БД использовал ADO компоненты. Мне хватило пару статей в интернете дабы разобраться.

[denisbrain]

я вот таким кодом пользуюсь

var load :boolean=true;


procedure TDataModule2.DataModuleCreate(Sender: TObject);
   var x:integer;
begin
if load then begin
 load:=false;
getdir(0,dir);
  try
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+dir+'\database\procedureBase.mdb;Persist Security Info=False;';
  ADOConnection1.Connected:=true;
  for X:=0 to ADOConnection1.DataSetCount-1 do begin
      ADOConnection1.DataSets[x].Active:=true;
  end;
  except
    Showmessage('Ошибка подключения к базе данных скриптов!');
  end;

  end;
end;

[Juliett]

Эти компоненты я изучила, базу связала с программой. Вопрос в том как считывать информацию из базы в делфи и дальше ее обрабатывать?

[Valio]

Для начало неплохобы увидеть структуру БД и знать что нужно редактировать.

У ADOTable есть Insert, Next и т.д. для перемещения и работы.

[Juliett]

ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=
'select [Код] from spisok where Имя=Edit1.Text and Фамилия=Edit2.Text';
kod:=ADOQuery1.SQL.Text;
if kod='' then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=
'insert into spisok values (Edit1.Text, Edit2.Text)';
Button1.Tag:=1;
end
else
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=
'select [Темперамент] from spisok where Код=kod';
lich[1]:=ADOQuery1.SQL.Text;
end;



Вот мой код
Мои мысли:
вводятся имя и фамилия
сравнивается есть ли запись с такими данными
создается нованя или должна считываться имеющаяся
когда я выбираю код (это ключ поле в таблице) по моим соображениям если нет записи, то он пустой, если есть то дальше должна сохраняться информация о человеке
при проверке работоспособности я вывожу kod
и он равен
kod=select [Код] from spisok where Имя=Edit1.Text and Фамилия=Edit2.Text
тоесть не данные созраняются, а текст команды
я не знаю как это сделать и как и что

[Juliett]

база из одной таблицы:
ключ поле, имя, фамилия, темперамент, характер и т.д., в конце результаты

[Valio]

Хм... а почемуб не заюзать ADOTable?
И не надо булет SQL привлекать...

[Juliett]

немного не поняла, как заюзать
мне не нужно отображение базы в программе
а как через него сохранять данные в ОП?, допустим прочитать их и присвоить значение какой-либо переменной?

[denisbrain]

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

немного не поняла, как заюзать
мне не нужно отображение базы в программе
а как через него сохранять данные в ОП?, допустим прочитать их и присвоить значение какой-либо переменной?

Поставь тим вивер http://www.teamviewer.com/ru/index.aspx
покажу как делать - пиши в аську или вконтакт
http://vk.com/den_naumov