| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание динамических запросов [D5, dBase, FoxPro]

Chainik ©   (2002-05-22 14:10:00) 

Доброе время суток! У меня такая проблема: пытаюсь создать динамический запрос, но ничего не выходит:((. При открытии таблицы(пример-Temp.dbf), я присваиваю имя табл. в переменную. При открытии запроса в качестве имени табл. указываю переменную, а дельфя ругается!(пишет - "File "Table.dbf" does not exists").Может я что нитак делаю? Подскажите пожайлуста, в чем дело?
Использую такой код:

procedure TForm1.OkBitBtnClick(Sender: TObject);
var Table: string;
begin
Query1.SQL.Clear;
Query1.SQL.Add("select * from Table");
Table:=OpenDialog1.FileName;
Query1.Open;
end;


---

Chainik   (2002-05-22 16:11:00) [1]

ЗЫ. Полазил в настройках BDE>ODBC, теперь все работает нормально! Большое спасибо ВСЕМ!

---

Chainik   (2002-05-22 15:38:00) [2]

>Lord Warlock © (22.05.02 15:34)

Пень3(800). Но тем не менее!

---

Lord Warlock   (2002-05-22 15:34:00) [3]

> таблица(.dbf) содержит ~6500 тыс.строк. Запрос выполняется
> ~8 минут


у тебя что, 486??

для сравнения - таблица на 400 тыс строк на П3 ~ 30 сек.

---

Black Cat   (2002-05-22 15:31:00) [4]

table:=""c:\Program Files\Common Files\Borland Shared\Data\animals"";
Query1.SQL.Add("select * from "+table);
Query1.Open;
Если файл не в текущей директории то имя - в двойных кавычках

---

Chainik   (2002-05-22 15:30:00) [5]

> USAtyj © (22.05.02 15:08)

Вроде работает, но запрос выполняется ~8 минут.Зависит ли это от настроек BDE>ODBC?(таблица(.dbf) содержит ~6500 тыс.строк.)

---

Chainik   (2002-05-22 15:29:00) [6]

> All

Еще один вопрос:таблица(.dbf) содержит ~6500 тыс.строк. Запрос выполняется ~8 минут.Зависит ли это от настроек BDE>ODBC?

---

USAtyj   (2002-05-22 15:08:00) [7]

> sizmrebi: порядок слов перепутал ты малость:


procedure TForm1.OkBitBtnClick(Sender: TObject);
var Table: string;
begin
Query1.SQL.Clear;
Table:=OpenDialog1.FileName;
if Trim(Table)="" then Exit;
Query1.SQL.Add("select * from "+Table);
Query1.Open;
end;



---

Chainik   (2002-05-22 15:00:00) [8]

> sizmrebi © (22.05.02 14:33)

Использовал Ваш код, вылезает "Syntax error ."."

---

VAleksey   (2002-05-22 14:37:00) [9]

> sizmrebi © (22.05.02 14:33)

данный код работать не будет
ЗЫ
Имя вопрошающего говорит само за себя -)
см Lord Warlock © (22.05.02 14:12)

---

sizmrebi   (2002-05-22 14:33:00) [10]

procedure TForm1.OkBitBtnClick(Sender: TObject);
var Table: string;
begin
Query1.SQL.Clear;
Query1.SQL.Add("select * from"+Table);
Table:=OpenDialog1.FileName;
Query1.Open;
end;

budet rabotat

---

Lord Warlock   (2002-05-22 14:12:00) [11]

Query1.SQL.Add("select * from Table");
??? :^)))))
надо что-то типа
Query1.SQL.Add("select * from "+OpenDialog1.FileName);

---

Наверх