SELECT при работе с MS ACCESS из Delphi 7

Григорий16 лет в сервисе

Данные заказчика будут вам доступны после подачи заявки

08.12.2008

Бюджет - 2 WMZ.

Нужно понять, откуда и как брать результаты запроса SELECT в приведенном ниже форагменте кода:

var MSAccess: Variant;

NameCardsTable, strSQL: string;

begin

MSAccess:= CreateOleObject('Access.Application'); //ioe?uou aeenann

MSAccess.OpenCurrentDatabase(NameMDB,false,' ');

NameCardsTable:='base.mdb';

strSQL:= 'SELECT * FROM '+NameCardsTable+' VALUES (';

strSQL:=strSQL+' "'+ChangeSym(card_Reference)+'"';

strSQL:=strSQL+', "'+ChangeSym(card_NoReference)+'"';

strSQL:=strSQL+', "'+ChangeSym(card_RegNumber)+'"';

strSQL:=strSQL+', "'+ChangeSym(card_RegDate)+'"';

strSQL:=strSQL+', "'+ChangeSym(card_PostDate)+')';

MSAccess.DoCmd.RunSQL(strSQL,false);

MSAccess.CloseCurrentDatabase;

MSAccess.Quit;

end.

Отчёт - работающий фраагмент на почту или в приват. Оплачу после проверки решения.

Заявки фрилансеров