Ejecutar Script *.SQL desde Delphi

[[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...

[nadlor]

Acabo de instalar Zeos 6.6.6...

[nadlor]

Bueno, para cerrar este tema, comento que e solucionado mi inconveniente.

Cambié los componentes BDE por los componentes ZEOS.

Estos ultimos, me permiten conectarme directamente a la base de datos sin especificar DNS de usuario, conexiones ODBC.

El script *.sql (creacion de base de datos del sistema) que queria ejecutar al principio con ShellExecute, opte gracias a este foro, por embeber el codigo sql del script en el codigo de delphi, lanzando las sentencias de creacion como mostré anteriormente con los componentes ZQuery de Zeos.

Ahora bien mi ultima duda era, si en principio en la maquina del usuario no existirìa mi base de datos sino hasta que yo la creace al ejecutar por primera vez mi aplicacion hecha en delphi;


¿a qué base de datos relaciono la propiedad <database> del componente ZConnection (ligado al zquery con el que largo los comandos de creacion)?

Pues si le pongo una base de datos inexistente, no me dejara ejecutar el comando sql.

Ligue dicha propiedad a la base de datos <mysql> o <test> que son creadas en la instalacion de MySQL.

y como con Zeos no se requiere conexion odbc, me facilito mas aun el trabajo.

Es una solucion simple, tal vez no es la mas adecuada, pero funcionó!

Salu2

[roman]

Empezado por nadlor

¿a qué base de datos relaciono la propiedad <database> del componente ZConnection (ligado al zquery con el que largo los comandos de creacion)?

Pues si le pongo una base de datos inexistente, no me dejara ejecutar el comando sql.

Ligue dicha propiedad a la base de datos <mysql> o <test> que son creadas en la instalacion de MySQL.

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

// Saludos

[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.

[JXJ]

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...

AzidRain
¿puedes poner el proyecto completo?,
yo teng zeos instalado y aprendiendo a usarlo

gracias.