[akimov_aleks]

добрый день всем. есть бд в Access вней таблица contact с полями Имя, Фамилия, Отчество, Адрес, Телефонраб, Телефонсот, Почта, Организация
как сделать чтоб по порядку присваивались пременным a,b,c,d,e,f,k
[i]---> номер строки соотвественно

Код:

Фамилия=a[i]
Отчество=b[i]
Адрес=c[i] 
Телефонраб=d[i]
Телефонсот=f[i] 
Почта=k[i]

попорядку сначало из первой строки и так далия...

[lmikle]

Ну так и делать.

Код:

ADOQuery.Insert;
ADOQuery.FieldByName('Фамилия').AsString := a[i];
...
ADOQuery.Post;

Или можно вставлять сразу строку по порядку следования полей:

Код:

ADOQuery.AppendRecord([a[i],b[i],c[i],d[i],f[i],k[i]]);

[akimov_aleks]

Код:

procedure TForm2.Button3Click(Sender: TObject);
var
i : integer;
a,b,c,d,f,k:string;
begin
i:=1;
ADOQuery2.Insert;
ADOQuery2.AppendRecord([a[i],b[i],c[i],d[i],f[i],k[i]]);
ADOQuery2.Post;
label19.Caption:=a;
label20.Caption:=b;
label21.Caption:=c;
label22.Caption:=d;
label23.Caption:=f;
label24.Caption:=k;
end;

Ругаеться не хочет работать

[HTTH]

какая именно ошибка?
попробуй через
DataSource1.DataSet.Insert;
...
DataSource1.DataSet.Post;

[akimov_aleks]

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

какая именно ошибка?
попробуй через
DataSource1.DataSet.Insert;
...
DataSource1.DataSet.Post;

я не знаю SQL поэтомы мне и трудно...
есть бд в Access вней таблица contact с полями Имя, Фамилия, Отчество, Адрес, Телефонраб, Телефонсот, Почта, Организация
как сделать не могу догнать..... помогите плиз...

[HTTH]

обрисуй подробнее задачу. зачем присваиваешь строкам переменные?

[akimov_aleks]

в базе хроняться контакты клиента. фио тел e-mail
переменные нужны для последующей работы отправки писем смс
diplom.rar
будут переменны дальше все есть

[HTTH]

Код:

ADOQuery2.Insert;
ADOQuery2.AppendRecord([a[i],b[i],c[i],d[i],f[i],k[i]]);
ADOQuery2.Post;
label19.Caption:=a;
label20.Caption:=b;
label21.Caption:=c;
label22.Caption:=d;
label23.Caption:=f;
label24.Caption:=k;
end;

имел в виду заменить "ADOQuery2." на "DataSource1.DataSet."

[akimov_aleks]

не идет

[akimov_aleks]

решения нашел но теперь как узнать количество строк, если задать цикл чтоб чтоб окончить.

Код:

procedure TForm2.Button3Click(Sender: TObject);
var
i : integer;
a,b,c,d,f,k:string;
begin
DataSource1.DataSet.Next;
a:=adoQuery1.fields[0].asstring;
b:=adoQuery1.fields[1].asstring;
c:=adoQuery1.fields[2].asstring;
d:=adoQuery1.fields[3].asstring;
f:=adoQuery1.fields[4].asstring;
k:=adoQuery1.fields[5].asstring;
label19.Caption:=a;
label20.Caption:=b;
label21.Caption:=c;
label22.Caption:=d;
label23.Caption:=f;
label24.Caption:=k;
end;