VPF::ошибка получения данных - Форум программистов

Данкинг

Дата 21.8.2008, 14:22 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

В общем, попробовал, у меня вообще программа зависает при таком коде. smile

А совет KiSH333 такой: используй ADO, не надо придумывать ничего нового! smile

Там отлично всё работает, по крайней мере в части получения данных из DBF запросом.

--------------------

There's nothing left but silent epitaphs.

KiSH333

Дата 22.8.2008, 07:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 14.8.2008

Репутация: 0
Всего: 0

Код


qrCena.SQL.Text:='select * from '''+od.FileName+'''';

ошибка вот в этом потому и не находит полей, т.к. запрос вообще не выполняется!! что тут можно поменять???? я весь мозг сломал((( хотя иго и нет))

Это сообщение отредактировал(а) Rodman - 22.8.2008, 09:00

pseud

Дата 22.8.2008, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40

Цитата(KiSH333 @ 22.8.2008, 07:47

)

ошибка вот в этом потому и не находит полей, т.к. запрос вообще не выполняется!! что тут можно поменять???? я весь мозг сломал((( хотя иго и нет))

ну вот, а мы гадаем "где же поле". не хорошо smile

KiSH333, делай раз:
1) в Database Desktop создал файл DBase IV c именем "test.dbf" и сохранил в D:\Новая папка\Новая папка\
2) завел там 3 записи
3) создал новый проект
4) кинул на форму OpenDialog1
5) OpenDialog1.Filter = '*.dbf|*.dbf; OpenDialog1.FileName = test.dbf
6) кинул кнопку Button1 на ее OnClick написал:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    with TQuery.Create(nil) do
    try
      SQL.Add('SELECT count(*) FROM "' + OpenDialog1.FileName + '"');
      Active := True;
      ShowMessage(Fields[0].AsString);
    finally
      Free;
    end;
end;

7) сообщение без проблем выдает цифирь "3".

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

KiSH333

Дата 22.8.2008, 10:13 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 14.8.2008

Репутация: 0
Всего: 0

Спс кто помогал!! вот я тормоз, када табличу копировал в Базе написал IND а в табличке INDEX!!! сам того не заметил!!! спасиба всем бальшое кто откликнулся!! все работает теперь норм!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »