Ejecutar Script *.SQL desde Delphi

[nadlor]

Basicamente la estructura del script es asi:

Código SQL [-]
CREATE DATABASE /*!32312 IF NOT EXISTS*/ a_db;
USE a_db;

DROP TABLE IF EXISTS `alumnos`;
CREATE TABLE `alumnos` (
  `Doc` int(9) NOT NULL,
  `Nombres` varchar(20) default NULL,
  `Apellidos` varchar(20) default NULL,
  PRIMARY KEY  (`Doc`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

(Solo puse una tabla ejemplo y algunos campos para que no sea largo)


El tema es que ya he logrado ejecutar las sentencias en el evento OnCreate del Form principal, primero preguntando si existe o no la base de datos en el directorio y luego creando, todo perfecto, asi:

Código Delphi [-]
procedure TFPrincipal.crear_a_bd;
var fil:string;
b:integer;
begin
fil:= AnsiReplaceStr('C:\Archivos de programa\MySQL\MySQL Server 5.0\data\a_db\db.opt','\','\\');

    if FileExists(fil) then
    begin
    b:=1;
    end
    else
    begin
    b:=0;
    end;

IF b=0 THEN
begin
q.Close; q.SQL.Clear;
q.SQL.Add('CREATE DATABASE IF NOT EXISTS a_db');
q.ExecSQL;
q.Close; q.SQL.Clear;
q.SQL.Add('USE a_db');
q.ExecSQL;

q.Close; q.SQL.Clear;
q.SQL.Add('CREATE TABLE `alumnos` (`Doc` int(9) NOT NULL, `Nombres` varchar(20) default NULL, `Apellidos` varchar(20) default NULL,  PRIMARY KEY  (`Doc`))');
q.ExecSQL;
end;

El procedimiento anterior, lo hice con componentes BDE, funcionoo perfectamente si le agrego en la propiedad del componente Tdatabase:
<AliasName= 'cualkier otra base de datos existente'>

Hasta ahi todo perfecto, ya funciona todo si no menciono la base de datos a crear.

Pero el tema, es a cual base de datos vinculo al componente (sea BDE ò Zeos), una <por defecto> que digamos siempre pueda existir en cualkier otra pc... no se... a eso va mi interrogante...

[nadlor]

Azid, si es que tenias otra solucion en mente, te lo agradeceria.

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

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