Создание динамических запросов

← →
Chainik © (2002-05-22 14:10) [0]

Доброе время суток! У меня такая проблема: пытаюсь создать динамический запрос, но ничего не выходит:((. При открытии таблицы(пример-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;

← →
Lord Warlock © (2002-05-22 14:12) [1]

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

← →
sizmrebi © (2002-05-22 14:33) [2]

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

← →
VAleksey © (2002-05-22 14:37) [3]

> sizmrebi © (22.05.02 14:33)

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

← →
Chainik © (2002-05-22 15:00) [4]

> sizmrebi © (22.05.02 14:33)

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

← →
USAtyj © (2002-05-22 15:08) [5]

> 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:29) [6]

> All

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

← →
Chainik © (2002-05-22 15:30) [7]

> USAtyj © (22.05.02 15:08)

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

← →
Black Cat © (2002-05-22 15:31) [8]

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

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

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

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

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

Создание динамических запросов Найти похожие ветки