ADOQuery не срабатывает для связанных таблиц

[VladimirAleks]

пробывал этот запрос в Access там возвращает значения, а вот через компонент ADOQuery ничего не возвращает, ADOQueryMain.RecordCount выдаёт ошибку.

ADOQueryMain.Active := False;
ADOQueryMain.SQL.Clear;
ADOQueryMain.SQL.Add('SELECT fev.Number AS PhoneNumber, fev.Expense, Phone.Limit AS PhoneLimit, [fev]![Expense]-[Phone]![Limit] AS MoreExpense ');
ADOQueryMain.SQL.Add(' FROM Phone INNER JOIN fev ON Phone.[Number] = fev.[Number]; ');
ADOQueryMain.Active := True;
ADOQueryMain.First;

For i := 1 to Count do
Begin
StringGridExpense.Cells[0,i] := ADOQueryMain.FieldByName('PhoneNumb er').AsString;
StringGridExpense.Cells[1,i] := ADOQueryMain.FieldByName('PhoneLimi t').AsString;
StringGridExpense.Cells[2,i] := ADOQueryMain.FieldByName('Expense') .AsString;
If ADOQueryMain.FieldByName('MoreExpen se').AsInteger < 0
Then StringGridExpense.Cells[3,i] := '0'
Else StringGridExpense.Cells[3,i] := ADOQueryMain.FieldByName('MoreExpen se').AsString;
ADOQueryMain.Next;
End;

[vovk]

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

ADOQueryMain.SQL.Add('SELECT fev.Number AS PhoneNumber, fev.Expense, Phone.Limit AS PhoneLimit, [fev]![Expense]-[Phone]![Limit] AS MoreExpense ');

это на вскидку, в акцесс может и прокатит, но больше нигде. замени ! на .

упс ИЗВИНЯЮСЬ прокатывает..

а где ADOQueryMain.RecordCount? в цикле просто count..

[VladimirAleks]

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

это на вскидку, в акцесс может и прокатит, но больше нигде. замени ! на .

Это не то, изменение на точку не помагает.

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

упс прокатывает..

что за упс?

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

а где ADOQueryMain.RecordCount? в цикле просто count..

ADOQueryMain.RecordCount - не считывается из запроса, поэтому ранее посчитанный count.

[Dark_Spirit]

ADOQueryMain.RecordCount выдаёт ошибку.

текст ошибки?

[VladimirAleks]

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

текст ошибки?

Вот:
рисунок_3.jpg

[vovk]

сделай лучше цикл както так, просто непонятно вообще от куда этот count берётся

 i := 1 
while not ADOQueryMain.Eof do
Begin
StringGridExpense.Cells[0,i] := ADOQueryMain.FieldByName('PhoneNumb er').AsString;
StringGridExpense.Cells[1,i] := ADOQueryMain.FieldByName('PhoneLimi t').AsString;
StringGridExpense.Cells[2,i] := ADOQueryMain.FieldByName('Expense') .AsString;
If ADOQueryMain.FieldByName('MoreExpen se').AsInteger < 0
Then StringGridExpense.Cells[3,i] := '0'
Else StringGridExpense.Cells[3,i] := ADOQueryMain.FieldByName('MoreExpen se').AsString;
ADOQueryMain.Next;
inc(i);
End;

[VladimirAleks]

ADOQueryMain.FieldByName('PhoneNumb er').AsString; - возвращает пустое значение. Кто-нибудь знает как это исправить?