Fórum Crindo tabelas em modo de execução (IB/FB) #203418

Belezura turma???

Estou criando uma procedure que me criará tabelas e campos em modo de execução, porém está dando erro.

Qdo eu depuro o codigo e pego o script e colo no ibexpert e mando executar ele cria a tabela só que qdo executo via programa ele não funciona (lógico q apago a tabela antes de testar de novo)

Segue abaixo o cod..


//----------------------------------------------------------------------------
procedure cria_tabela(sNm_tabela, sNm_campo, sTipo : string);
begin
with DM_DADO do
begin
Q_DINAMICA.Close;
Q_DINAMICA.CommandText := ´SELECT * FROM RDB$RELATION_FIELDS ´+
´WHERE rdb$relation_name = ´+QuotedStr(sNm_tabela);
Q_DINAMICA.Open;
if Q_DINAMICA.IsEmpty then
begin
Q_DINAMICA.Close;
Q_DINAMICA.CommandText := ´CREATE TABLE ´ + QuotedStr(sNm_tabela) + ´(´ + QuotedStr(sNm_campo) +´ ´+ sTipo + ´)´;
try Q_DINAMICA.Execute; except end;
end;
end;
end;
//-----------------------------------

é assim q estou chamando a função

cria_tabela(´VEICULOS´, ´teste´, ´char(20)´);


e está me retornando esse erro:

General SQL error. Token unknown - line 1, char 14 ´VEICULOS´´


Q devo fazer???