Скачать: CL | DM;

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

← →
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;
Если файл не в текущей директории то имя - в двойных кавычках

---

← →
Lord Warlock ©   (2002-05-22 15:34) [9]

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


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

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

---

← →
Chainik ©   (2002-05-22 15:38) [10]

>Lord Warlock © (22.05.02 15:34)

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

---

← →
Chainik ©   (2002-05-22 16:11) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c