Error al crear una tabla con parametros.

[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 Noteví]

Creando la consulta, sin parámetros.

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

[delphi.com.ar]

Los "bind parameters" no se traducen en strings, a grandes rasgos son "valores + tipo de datos", y como te dijeron anteriormente, no puede usarlos en cualquier contexto.

Pese a lo dicho, MySql te permite ejecutar código dinámico. Por lo que, si bien nunca lo he probado, calculo que puedes utilizar parámetros para definición de nombres en código dinámico.

Por ejemplo, podrías tener un procedure tipo:

Código SQL [-]
CREATE PROCEDURE CREAR_TABLA(IN table_name CHAR(64))
BEGIN
    SET @sql = CONCAT('CREATE TABLE IF NOT EXIST', table_name, '(id_local varchar(1) not null,  id_prod integer not null');
    PREPARE cmd FROM @sql;
    EXECUTE cmd;
    DEALLOCATE PREPARE cmd;
END

PD: ¡Nada de lo que he escrito lo he probado!

Saludos!

[davidsolo]

ok....gracias por tu ayuda¡¡¡¡

[davidsolo]

al final realice esto "archivo .txt":

Código SQL [-]
(
    id_local        varchar(1)    not null,                
    id_prod            integer        not null,        
    id_mcodbarra        varchar(20)    not null,
    descprod        varchar(60)    not null,
    precio_vta_detalle    integer        not null,
    cantidad_escala1    integer        not null,
    precio_vta_escala1    integer        not null,
    cantidad_escala2    integer        not null,
    precio_vta_escala2    integer        not null,
    cantidad_escala3    integer     not null,
    precio_vta_escala3    integer        not null,    
    p_vta_d_neto        integer        not null,
    p_escala_1_neto        integer        not null,    
    p_escala_2_neto        integer        not null,
    p_escala_3_neto        integer        not null,
    cantidad_escala4    integer        not null,
    precio_vta_escala4    integer        not null,
    cantidad_escala5    integer        not null,
    precio_vta_escala5    integer        not null,    
    capacidad        integer        not null,
    id_lista        integer        not null,
    fecha_cambio        varchar(40)    not null,        
    usuario            varchar(30)    not null,
    equipo            varchar(30)    not null,
    usuario_actualizacion    varchar(30)    not null,
    equipo_actualizacion    varchar(30)    not null,
    flag            varchar(2)    not null,
       primary key (id_prod,id_mcodbarra)
)
engine=innodb;

y en delphi

Código Delphi [-]
procedure TFichaCreaTabla.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;
  DM.miSQL.SQL.Add('create table if not exists ' + edit1.Text + ' ');
  while not Eof( F ) do
  begin
    ReadLn( F, sLinea );
    DM.miSQL.SQL.Add( sLinea );
  end;
  DM.miSQL.ExecSQL;
  CloseFile( F );
end;

y resulto...pero ahora voy por la propuesta de delphi.com.ar...