Crindo tabelas em modo de execução (IB/FB)
29/12/2003
0
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???
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???
Zenner
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)