Как сделать запрос к MySQL не зная префикс таблиц?

[tim21701]

Во время соединения запрашиваю префикс таблиц и сохраняю их в ini файле.
Далее строю такой запрос: (таблица order)

SELECT CONCAT(LEFT(`firstname`,1),'.', `lastname`) 
AS `username`,
`total`,
DATE_FORMAT(`date_added`, '%d.%m.%Y') 
AS `date` 
FROM `order` 
ORDER BY `date_added` 
DESC LIMIT 10

Как подставить префикс таблицы?

[rdama]

Что такое

префикс таблиц и сохраняю их в ini файле

Что в вашем понимании префикс?

[_SERGEYX_]

1.

(таблица order)

Это кто придумал называть таблицу зарезервированным словом?
2. А в чем проблема?
Читаем префикс из ини-файла, что-то типа

PREFIX:=IniFile.ReadString('OPTIONS','PREFIX','');

и далее в запросе

select .... from ' + PREFIX + 'order ...' и т.д.

[tim21701]

Сообщение от rdama

Что такое
Что в вашем понимании префикс?

Это не в моём понимании префикс... ))))))))))



Во время установки php скрипт предлагается указать "префикс" таблиц...
Например, если прописать "12345_" то таблица order будет в базе как "12345_order". (как и все остальные)

[tim21701]

Сообщение от _SERGEYX_

Это кто придумал называть таблицу зарезервированным словом?

Так я поэтому в кавычки их и беру... ))))

Сообщение от _SERGEYX_

...Читаем префикс из ини-файла, что-то типа

PREFIX:=IniFile.ReadString('OPTIONS','PREFIX','');

и далее в запросе

select .... from ' + PREFIX + 'order ...' и т.д.

Ок, сейчас попробую....

С ini файлом разобрался, всё сохраняет и подгружает. Подключается к базе и выполняется запрос (стандартный) а вот как подставить "префикс таблицы" в запрос - что то не получается...
Помогите кто знает.

Неужели никто не поможет???

Делаю вот так:

var
  Form2: TForm2;
  iniFile: TiniFile;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm2.FormCreate(Sender: TObject);
begin
  inifile:=TiniFile.Create(GetCurrentDir + '\setting.ini');
  Edit1.Text:=inifile.ReadString('Connect','username','');
  Edit2.Text:=inifile.ReadString('Connect','password','');
  Edit3.Text:=inifile.ReadString('Connect','server','');
  Edit4.Text:=inifile.ReadString('Connect','port','');
  Edit5.Text:=inifile.ReadString('Connect','database','');
  Edit6.Text:=inifile.ReadString('Connect','prefix','');
  inifile.Free;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  inifile:=TiniFile.Create(GetCurrentDir + '\setting.ini');
  inifile.WriteString('Connect','username',Edit1.Text);
  inifile.WriteString('Connect','password',Edit2.Text);
  inifile.WriteString('Connect','server',Edit3.Text);
  inifile.WriteString('Connect','port',Edit4.Text);
  inifile.WriteString('Connect','database',Edit5.Text);
  inifile.WriteString('Connect','prefix',Edit6.Text);
  inifile.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
      MyConnection1.Username:=Edit1.Text;
      MyConnection1.Password:=Edit2.Text;
      MyConnection1.Server:=Edit3.Text;
      MyConnection1.Database:=Edit5.Text;
      MyConnection1.Connected:=True;

if MyConnection1.Connected = True then
  begin
      Edit6.Text:=inifile.ReadString('Connect','prefix',''); //вроде так???
      Form1.MyQuery1.Connection:=Form2.MyConnection1;
      Form1.MyQuery1.Active:=False;
      Form1.MyQuery1.SQL.clear;                              
  Form1.MyQuery1.SQL.add('SELECT `lastname`, `total`, `date_added` FROM ' + Edit6.Text + '`order` ORDER BY `date_added` DESC LIMIT 10');
      Form1.MyQuery1.Active := true;                          
      Form2.Close;
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Form2.Close;
end;
end.

Если префикс не указал - всё подключается...
Подскажите, как сделать правильно???

[tim21701]

Пробую по другому:

procedure TForm2.Button1Click(Sender: TObject);
var
   Prefix: string;
begin
if MyConnection1.Connected = True then
  begin
    Prefix:=IniFile.ReadString('Connection','Prefix','');
    
    MyQuery1.Active:=False;
    MyQuery1.SQL.clear;
	
    MyQuery1.SQL.add ('SELECT CONCAT(LEFT(`firstname`,1),''.'', `lastname`) AS `username`, `total`, DATE_FORMAT(`date_added`, ''%d.%m.%Y'') AS `date` FROM `'' + Prefix + ''order` ORDER BY `username` DESC LIMIT 10');
	
    MyQuery1.Active := true;
  end;
end;

Всё равно получаю ошибку:

Не понимает он что такое + Prefix +
Где ошибка??? Может Я не правильно что то делаю???

[tim21701]

Всё, разобрался сам... Вот как сделал:

var
Prefix: string; //указал строку
begin
...
...
Prefix:=Edit6.Text; //и откуда её берём
...
MyQuery1.SQL.add('SELECT `lastname`, `total`, `date_added` FROM `' + Prefix + 'order` ORDER BY `date_added` DESC LIMIT 10');
...

В запросе неправильно скобки указал:
' + Prefix + '`order` //было так
`' + Prefix + 'order` //сделал так

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

('SELECT `lastname`, `total`, `date_added` FROM `' + Prefix + 'order` ORDER BY `date_added` DESC LIMIT 10');

А такой почему то нет:

('SELECT CONCAT(LEFT(`firstname`,1),''.'', `lastname`) AS `username`, `total`, DATE_FORMAT(`date_added`, ''%d.%m.%Y'') AS `date` FROM `' 
+ Prefix + 'order` ORDER BY `username` DESC LIMIT 10');

Пишет, якобы `lastname` не найден! С какого перепугу - не понятно...



В чем причина?