Ver Mensaje Individual
  #3  
Antiguo 28-10-2020
davidsolo davidsolo is offline
Registrado
 
Registrado: abr 2020
Posts: 5
Reputación: 0
davidsolo Va por buen camino
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..
Responder Con Cita