поставщик данных или другая служба вернули состояние e_fail

[VladimirAleks]

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;

    Count := ADOQueryMain.RecordCount;

    For i := 1 to Count do
      Begin
        StringGridExpense.Cells[0,i] := ADOQueryMain.FieldByName('PhoneNumber').AsString;
        StringGridExpense.Cells[1,i] := ADOQueryMain.FieldByName('PhoneLimit').AsString;
        StringGridExpense.Cells[2,i] := ADOQueryMain.FieldByName('Expense').AsString;
        If ADOQueryMain.FieldByName('MoreExpense').AsInteger < 0
          Then StringGridExpense.Cells[3,i] := '0'
          Else StringGridExpense.Cells[3,i] := ADOQueryMain.FieldByName('MoreExpense').AsString;
        ADOQueryMain.Next;
      End;

ADOQueryMain.RecordCount - выдаёт ошибку "поставщик данных или другая служба вернули состояние e_fail"
Если закоментировать эту строку, и взять заведомо известное чило записей, то ничего на добавляется в таблицу, возвращаются пустые поля. Хотя в Access этот запрос работает.

[Stilet]

А этот запрос в СУБД собственно выполняется нормательно?

[VladimirAleks]

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

А этот запрос в СУБД собственно выполняется нормательно?

В Access этот запрос работает.

[VladimirAleks]

У кого-нибудь есть варианты?

[Serge_Bliznykov]

VladimirAleks
пошарился вчера поиском..
результаты неутешительные...
ибо.
1) эта проблема не уникальная, а достаточно распространена.
2) в каждом конкретном случае она решается по разному... по всей видимости, она зависит от кокретно получаемых в результате данных...

в качестве попытки найти, где собака порылась, предлагаю:
1) проверить, что в Вашем ADOQueryMain в дизайнтайм поля не вытащены! (двойной щелчок мышкой по компоненте - если поля есть - выделить и удалить всё).

2) если не поможет, добавить в запрос условие отбора (Where ... что-то = чему-то)

3) если не поможет, выкидывать из запроса по очереди поля, пока recordcount не заработает. (цикл и обращения к полям можно временно закомментировать)

4) если совсем ничего не поможет - проект + БД в архив, архив сюда, будем всем "обчеством" смотреть, повторяемость ошибки и способы обхода/решения...
для соблюдения конфиденциальности БД лучше заполнить тестовыми данными!

[other2013]

если не трудно посмотрите почему вылетает e_fail http://rghost.ru/48834348

[Аватар]

Number зарезервированное слово в ACCESS. В квадратные скобки его, везде

ADD

Извиняюсь, не заметил некропостинга

[Slym]

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;

    i:=0
    while not ADOQueryMain.Eof do
      Begin
        StringGridExpense.Cells[0,i] := ADOQueryMain.FieldByName('PhoneNumber').AsString;
        StringGridExpense.Cells[1,i] := ADOQueryMain.FieldByName('PhoneLimit').AsString;
        StringGridExpense.Cells[2,i] := ADOQueryMain.FieldByName('Expense').AsString;
        If ADOQueryMain.FieldByName('MoreExpense').AsInteger < 0
          Then StringGridExpense.Cells[3,i] := '0'
          Else StringGridExpense.Cells[3,i] := ADOQueryMain.FieldByName('MoreExpense').AsString;
        ADOQueryMain.Next;
        inc(i);
      End;

[Аватар]

Это навряд-ли, скорее всего или сразу Eof или на нем ошибка вывалится

Э-э. Вопрос был задан 26.04.2010, 15:46