Error al crear una tabla con parametros.

[davidsolo]

buenos días a todos¡¡
estoy realizando una prueba con delphi 10.2 componentes zeos y mysql.
en un archivo txt tengo guardado una estructura de un tabla y en tiempo de ejecución vuelco el contenido del txt a una ZQuery y ejecuto dicha Zquery.... ahí no problemas se crea la tabla en la base de datos.

el problema surge cuando quiero cambiar el nombre de esa tabla dependiendo del día que se encuentra.. asi que en el txt ahora
coloco el nombre de la tabla de esta manera " :nombreTabla "
y en código delphi coloco esto:


DM.miSQL.Params[0].Value := edit1.Text;
DM.miSQL.ExecSQL;



y me envía un error de sintaxis de mysql


también carge en tiempo de diseño la estructura de la tabla en el zquery.sql.txt y cuando ejecuto la zquery me envia el error que no encuentra el parametro..


espero comentarios

[Casimiro Notevi]

Pues sin ver el script es bien difícil adivinarlo.
De todas formas, para renombrar una tabla tendrá que hacer algo parecido a:
alter table nombre rename to nuevonombre

[davidsolo]

gracias por responder..
tengo esto en el txt:

Código SQL [-]
create table if not exists :Parametro
(
    id_local                varchar(1)      not null,                
    id_prod                integer           not null,        
    id_mcodbarra        varchar(20)     not null,
    .
    .
    .

    primary key (id_prod,id_mcodbarra)
)
engine=innodb;

y en delphi

Código Delphi [-]
procedure TForm2.Button1Click(Sender: TObject);
var F: TextFile;
    sLinea: String;
begin
  AssignFile( F, ExtractFilePath( Application.ExeName ) + 'tabla.txt' );
  Reset( F );
  
  DM.miSQL.Close;
  DM.miSQL.SQL.Clear;
  while not Eof( F ) do
  begin
    ReadLn( F, sLinea );
    DM.miSQL.SQL.Add( sLinea );
  end;
  DM.miSQL.Params[0].Value := edit1.Text;
  DM.miSQL.ExecSQL;
  CloseFile( F );
end;

la intención es crear una nueva tabla no renombrar una tabla existente. parece que no me explique bien.. en eso de cambiar el nombre de la tabla..

[Neftali [Germán.Estévez]]

No uses parámetros de la query. Aunque son recomentable no sirven para usarlos en todas partes.
Es decir, puedes hacer elto:

Código SQL [-]
SELECT * FROM TABLA1 WHERE CAMPO1=:valor

pero no puedes hacer esto:

Código SQL [-]
:valor * FROM TABLA1 WHERE CAMPO1=33

En este caso sustituye el valor de :Parametro con un AnsiReplaceText.

[davidsolo]

y como seria eso?

[Casimiro Notevi]

Creando la consulta, sin parámetros.

cSql := "update "+ cNombreTabla +" set campo1= ......."
QR.selectsq.text := cSql;
...