Ejecutar Script *.SQL desde Delphi

[Casimiro Noteví]

BDE es anticuado, hace muchos años que se abandonó.
Zeos es moderno, actual y muy completo.

[nadlor]

Gracias Casimiro. Ahora bien, con el bde,utilizaba unos archivos controladores (BdeInst.dll, minireg.exe) que los instalaba junto con el innosetup en otra pc sin delphi.

Con el zeos, cuales de estos archivos son necesarios? o directamente pongo el ejecutable delphi en otra pc y ya corre?

Ah, y e visto que existen varias versiones de Zeos, cual es mas recomendable?

[roman]

Únicamente debes instalar la biblioteca libmysql.dll en la máquina destino.

// Saludos

[nadlor]

Ok, gracias roman.

Entonces, antes de correr por primera vez la aplicacion en otra pc (logicamente la base de datos para tal no exista), y al correr por primera vez se cree la base de datos utilizando los componentes ZEOS.

Ahora bien mi duda:

En todo caso, si cambio mis componentes BDE por Zeos, a este hay que vincularlo a una base de datos

como conecto la propiedad del componente con el que lanzare la creacion de la bd:

databaseName:='<nombre de la base de datos>';

con que otra base de datos podria vincularlo a esta primer consulta del zeos?

[[AzidRain]]

El enfoque de BDE vs Zeos y otros mas es totalmente distinto, la base de dastos puede o no existir precisamente en la pc donde se ejecuta la aplicación. En el caso de las Zeos necesitarás al menos dos componentes para hacer lo que quieres: ZConnection, en donde le debes decir algunos datos del servidor a donde te quieres conectar (usuario, passw, direccion del host y protocolo a usar [mysql en este caso]) y luego el ZScriptProcessor al cual vas a a conectar con el ZConnection previamente configurado.

Es decir, le tienes que decir al script en que servidor va a correr, informacion que ya contiene el zconnection. Si gustas postea tu archivo sql y te pongo un proyecto completo que hace lo que quieres, realmente es sencillo.

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