Ejecutar Script *.SQL desde Delphi

[nadlor]

Empezado por roman

No necesitas relacionarla con ninguna base en específico; es decir, puedes dejar en blanco la propiedad Database y ejecutar comandos SQL.

// Saludos

Tenés toda la razon roman! je...


dejando dicha propiedad en blanco igual me toma la consulta...

pero si las propiedades <HostName>, <password>,<user> y <protocol>

sino, corrijanme


nos vemos... gracias! aguante Zeos!!!!

[nadlor]

Aun asi consideraria conveniente que alguien que lo haya hecho, dé la solucion al titulo de este Tema:


<Ejecutar Script *.SQL desde Delphi>


Yo encontré otra solucion, ya que mi caso tenia otras alternativas validas, pero creo que hay gente que tal vez encuentre y consulte este tema guiado por el titulo y le pase como me paso a mi al principio que consulte otros foros con titulo similar sin dar con la solucion final y por ello decidí abrir este nuevo tema.

Yo planteaba esto, pero segun sé estan mal pasados los parametros:

Código Delphi [-]

WinExec(PChar('cmd /c CD "c:\Archivos de programa\MySQL\MySQL Server 5.0\Bin">MySQL --user=root --password=root mi_db < c:\mi_bd.sql'), SW_Hide);

y tambien seria bueno esto:

Empezado por AzidRain
Si conoces y tienes instalado Zeos con gusto te pongo el proyecto completo si te lo pongo y no tienes Zeos nomás te voy a confundir...

[franroju]

Hola. Soy nuevo en Zeos pero leyendo por estos foros vi que esta muy recomendado y decidí utilizarlo en una aplicación de prueba. Me surgió el siguiente problema:

Tengo en un form un ZConnection, un ZTable, un DataSource y un DBGrid. Creo la base de datos externamente, es decir, con un soft. de administración de base de datos, conecto las "piezas" y funciona perfectamente.

Ahora bien, quiero crear la base de datos y las tablas desde delphi, para facilitar la instalación en el cliente. Para esto utilizo un ZSQLProcessor en el cual escribo los scripts SQL, y no me informa ningún error, pero el DBGrid queda en blanco, es decir, sin datos y sin el nombre de las columnas. Como que algo falla en la conexión. Les paso el código para que vean las propiedades que modifico, tal vez olvido alguna o hago algo mal y no me doy cuenta.

Código Delphi [-]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  ZSQLProcessor1.Script.Add('CREATE DATABASE IF NOT EXISTS prueba;');
  ZSQLProcessor1.Script.Add('USE prueba;');
  ZSQLProcessor1.Script.Add('CREATE TABLE IF NOT EXISTS `cuentacorriente` (`numero` int(9) NOT NULL, `nombre` varchar(20) NOT NULL, `monto` float(8,2) NOT NULL,  PRIMARY KEY  (`numero`));');
  ZSQLProcessor1.Execute;

  con.Database := 'prueba'; //ZConnection
  con.Catalog := 'prueba';
  con.Connect;
  ZTable1.TableName := 'cuentacorriente';
  ZTable1.Properties.Add('select * from cuentacorriente;');
  ZTable1.Active;
end;

La base de datos y la tabla las crea. Supongo que hay alguna falla con el ZTable pero no me doy cuenta cual puede ser. Hago un Showmessage de la propiedad Active de la tabla y me da 0, o sea que no queda activa y no puedo saber por qué.
Muchas gracias y espero su ayuda.

[roman]

Hola,

No estoy seguro de cuál sea el problema pero por lo menos parece que te has olvidado de enlazar el componente ZTable con el ZConnection, algo como:

Código Delphi [-]
ZTable1.Connection := con;

Por otra parte, no creo que estas sentencias sean necesarias:

Código Delphi [-]
con.Catalog := 'prueba';
ZTable1.Properties.Add('select * from cuentacorriente;');

Finalmente, parece que también te has olvidado de abrir la tabla. La sentencia:

Código Delphi [-]
ZTable1.Active;

en realidad no hace nada. Active es una propiedad que simplemente indica si la tabla está o no abierta. Tendrías que usar

Código Delphi [-]
ZTable1.Active := true;

o bien

Código Delphi [-]
ZTable1.Open;

// Saludos

[franroju]

Gracias roman por la respuesta, pero sigo teniendo el mismo problema, aún haciendo las modificaciones que me marcaste. Cuando hago

Código Delphi [-]
ZTable1.Active := True;

o

Código Delphi [-]
ZTable1.Open;

me lanza un supuesto error de SQL. Digo supuesto, porque si ejecuto el programa con las propiedades ya establecidas funciona perfecto, así que supongo que no es error de SQL. Además no hago ninguna consulta ni nada, solo creo la base y la tabla, pero no me deja abrirla.

Les copio el error para que lo vean:

SQL error: You have an error in your SQL syntax; check de manual that correspons to your MySQL server version for the right syntax to use near 'LIKE 'cuentacorriente'' at line 1.

Ese near 'LIKE 'cuentacorriente'' at line 1 se refiere a que el error está cerca de

Código Delphi [-]
ZTable1.TableName := 'cuentacorriente';

. Es decir, cuando activo o abro la tabla, por eso dije que era un "supuesto" error de SQL.

Gracias, y espero ayuda.

[franroju]

Gracias por ayudarme pero ya encontré donde estaba el error. Tenía que anteponerle el nombre de la base a la tabla. Es decir:

Código Delphi [-]
ZTable1.TableName := 'prueba.cuentacorriente';

Saludos