Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка в подключении к dbf, Помогите найти! 
V
    Опции темы
kulikoff
Дата 14.7.2006, 14:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1
Есть такая процедура:
Код

procedure TForm3.sBitBtn3Click(Sender: TObject);
begin
  Table1.Close;
  if sOpenDialog1.Execute then
    begin
      Table1.TableName:=sOpenDialog1.FileName;
      Table1.TableType:=ttDBase;
      Table1.Active:=true;
      sDateEdit1.Visible:=true;
      Label1.Visible:=true;
      sLabel1.Visible:=true;
      sLabel2.Visible:=true;
      sBitBtn2.Visible:=true;
      sBitBtn3.Visible:=false;
      Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Text:='select * from '+sOpenDialog1.FileName;
      Query1.Open;
    end;
end;


При выполнении выдает ошибку:
Код

Token not found. Token : D

Что это и как с ним бороться? 
PM MAIL WWW ICQ Skype   Вверх
Palladin
Дата 14.7.2006, 19:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 1
Всего: 17
Я точно не знаю, но помойму вначале должно идти Query1.Open; а уже потом Query1.close; smile 

Код

procedure TForm3.sBitBtn3Click(Sender: TObject);
begin
  Table1.Close;
  if sOpenDialog1.Execute then
    begin
      Table1.TableName:=sOpenDialog1.FileName;
      Table1.TableType:=ttDBase;
      Table1.Active:=true;
      sDateEdit1.Visible:=true;
      Label1.Visible:=true;
      sLabel1.Visible:=true;
      sLabel2.Visible:=true;
      sBitBtn2.Visible:=true;
      sBitBtn3.Visible:=false;
      Query1.Open;
      Query1.SQL.Clear;
      Query1.SQL.Text:='select * from '+sOpenDialog1.FileName;
      Query1.Close;
    end;
end;


P.S. Может и не работать smile   

Это сообщение отредактировал(а) RooR - 14.7.2006, 19:48


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Golden Hands
Дата 15.7.2006, 00:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: 2
Всего: 83
Для начала попробуй так:

Код

Query1.Active:=False;
Query1.SQL.Clear;
Query1.SQL.Add('...');
Query1.Active:=True;



А вообще
Цитата
Обязательно указание:

2. Способа доступа (ADO, BDE и т.д.)
 


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
kulikoff
Дата 17.7.2006, 09:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1
спасибо за помощь! Нашел ошибку, там с кавычками намутил smile . Правильно было так:
Код

      Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Text:='select * from"' + Table1.TableName +'"';
      Query1.Open;


А по поводу указания способа доступа, просто решил, что раз пишу просто Query - наверное понятно, что BDE. Ведь для ADO пишется ADOQuery, или это не всегда так? 
PM MAIL WWW ICQ Skype   Вверх
Ramin
Дата 17.7.2006, 09:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.7.2006
Где: Азербаиджан, Баку

Репутация: нет
Всего: нет
Цитата(RooR @ 14.7.2006,  19:37)
Я точно не знаю, но помойму вначале должно идти Query1.Open; а уже потом Query1.close; smile 

Код

procedure TForm3.sBitBtn3Click(Sender: TObject);
begin
  Table1.Close;
  if sOpenDialog1.Execute then
    begin
      Table1.TableName:=sOpenDialog1.FileName;
      Table1.TableType:=ttDBase;
      Table1.Active:=true;
      sDateEdit1.Visible:=true;
      Label1.Visible:=true;
      sLabel1.Visible:=true;
      sLabel2.Visible:=true;
      sBitBtn2.Visible:=true;
      sBitBtn3.Visible:=false;
      Query1.Open;
      Query1.SQL.Clear;
      Query1.SQL.Text:='select * from '+sOpenDialog1.FileName;
      Query1.Close;
    end;
end;


P.S. Может и не работать smile

 smile  smile  ну черт ты даёш! сперва клозе потом опен  smile  smile  
PM MAIL WWW ICQ   Вверх
kulikoff
Дата 17.7.2006, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1
не, так правильно, что сначала закрываю запрос. Просто до этого он может висеть открытым, я его закрываю, очищаю (не закрытый - фиг почистишь) и потом уже открываю с новым текстом.
Это я в книге умной какой-то читал smile  
PM MAIL WWW ICQ Skype   Вверх
Ramin
Дата 17.7.2006, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.7.2006
Где: Азербаиджан, Баку

Репутация: нет
Всего: нет
Цитата(kulikoff @ 17.7.2006,  10:02)
не, так правильно, что сначала закрываю запрос. Просто до этого он может висеть открытым, я его закрываю, очищаю (не закрытый - фиг почистишь) и потом уже открываю с новым текстом.
Это я в книге умной какой-то читал smile

пост был не для тебя а для RooR ... он сперва открывает потом закрывает  smile 

Цитата

  Query1.Open;
    Query1.SQL.Clear;
    Query1.SQL.Text:='select * from '+sOpenDialog1.FileName;
   Query1.Close;



2 kulikoff а ты вдруг не тот кто сидит на www.sql.ru ? 
PM MAIL WWW ICQ   Вверх
kulikoff
Дата 17.7.2006, 10:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1
не, точно не я smile  А что, кто-то под меня косит?  
PM MAIL WWW ICQ Skype   Вверх
Ramin
Дата 17.7.2006, 10:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 17.7.2006
Где: Азербаиджан, Баку

Репутация: нет
Всего: нет
а кто?

например я там бываю Ramin 
PM MAIL WWW ICQ   Вверх
kulikoff
Дата 17.7.2006, 11:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: 1
Всего: 1
Всё, разобрался, кто это и что. В общем, можно сказать, что и я, вернее, один чел тут от моего имени там выступает. Но теперь я буду. Спасибо, что указали, вобще, мир - тесен, но и Инет, оказывается тоже. Он сейчас очень удивлен, откуда я узнал smile  smile  
PM MAIL WWW ICQ Skype   Вверх
Frees
Дата 17.7.2006, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
вот ответ правельный код, вроде работает
Код

  Table1.Close;
  Query1.Close;
  if sOpenDialog1.Execute then
    begin
      Table1.TableName:=sOpenDialog1.FileName;
      Table1.TableType:=ttDBase;
      Table1.DatabaseName:=ExtractFilePath(sOpenDialog1.FileName) ;
      Table1.TableName:=ExtractFileName(sOpenDialog1.FileName);
      Table1.Open;
      Query1.SQL.Clear;
      Query1.DatabaseName:=ExtractFilePath(sOpenDialog1.FileName) ;
      Query1.SQL.Text:='select * from '+ExtractFileName(sOpenDialog1.FileName);
      Query1.Open;
    end;
 


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0824 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.