como crear componentes ado en tiempo de ejecucion

[richy08]

no los componentes los creare dentro de un tmd_gral, y la aplicacion que contendra estos componentes estara corriendo en el server solo esperando llamadas de un tcpclient para realizar las acciones.

[[Caral]]

Hola
No se lo que es un tmd_gral.
Aqui tienes un ejemplo con access.
Saludos
PD: La direccion que se le da esta en el codigo, para que te funcione cambiala a donde tengas la bd.

[richy08]

gracias caral le echare un vistazo saludos

[richy08]

sabes intente hacer algo parecido pero en una funcion que cada ves que un hilo mande llamar se cree su nueva conexion y su query que alterara las tablas de mysql pero me marca el siguiente error yno hallo como hacer un cast para convertir la variable, alguna forma de hacerlo gracias


[Error] Interfaces.pas(79): Incompatible types: 'TZConnection' and 'String'

Código Delphi [-]
zConnection:= TzConnection.Create(self);
       zConnection.Name:=Myusername;
       zConnection.Catalog:='lookup';
       zConnection.Database:='cdr';
       zConnection.HostName:='192.168.11.2';
       zConnection.Password:='system';
       zConnection.Protocol:='mysql-5';
       zConnection.port:=3306;
       zConnection.Protocol:='mysql-5';
       zConnection.User:='sitisystem';
       zConnection.Connect;

       //crea el query
       zQuery      :=   TzQuery.Create(self);
       zQuery.Name :=   Myusername+'2';
       zQuery.Connection:=Myusername; // aqui marca el error
       zQuery.SQL.Add('update lookup set  allowcalls=:allowcalls, ldesc=:ldesc where code=:code ');

[[Caral]]

Hola
Da la impresion de que no tendrian que ser String los datos, segun el error que marca.

Código Delphi [-]
   zConnect1:= TzConnection.Create(self);
   With zConnect1 do
   begin
   Parent:= ??????
   Name:= Myusername;
   Catalog:= lookup;
   Database:= cdr;
   HostName:= 192.168.11.2;
   Password:= system;
   Protocol:= mysql-5;
   port:= 3306;
   User:= sitisystem;
   Connect := True;
   end;
       //crea el query
    zQuery1 := TzQuery.Create(self);
    With zQuery1 do
    begin
    Parent:= ????????
    Name :=   Myusername+'2';
    Connection:= zConnect1;
    SQL.Text:= 'update lookup set  allowcalls=:allowcalls, ldesc=:ldesc where code=:code ';
    Params.........
    open;
    end;

saludos

[[Caral]]

Hola
Tambien podria estar aqui el error:

Código Delphi [-]
zConnect1:= TzConnection.Create(self);
   With zConnect1 do
   begin
   Parent:= ??????
   Name:= Myusername;
   Catalog:= lookup;
   Database:= cdr;
   HostName:= 192.168.11.2;
   Password:= system;
   Protocol:= mysql-5;
   port:= 3306;
   User:= sitisystem;
   Connect := True;
   end;
       //crea el query
    zQuery1 := TzQuery.Create(self);
    With zQuery1 do
    begin
    Parent:= ????????
    Name :=   Myusername+2; // aqui
    Connection:= zConnect1;
    SQL.Text:= 'update lookup set  allowcalls=:allowcalls, ldesc=:ldesc where code=:code ';
    Params.........
    open;
    end;

Pasaste de ADO a ZEOS sin avisar jejeje.
Saludos

[richy08]

Empezado por Caral

Hola
Tambien podria estar aqui el error:
Código Delphi [-]zConnect1:= TzConnection.Create(self); With zConnect1 do begin Parent:= ?????? Name:= Myusername; Catalog:= lookup; Database:= cdr; HostName:= 192.168.11.2; Password:= system; Protocol:= mysql-5; port:= 3306; User:= sitisystem; Connect := True; end; //crea el query zQuery1 := TzQuery.Create(self); With zQuery1 do begin Parent:= ???????? Name := Myusername+2; // aqui Connection:= zConnect1; SQL.Text:= 'update lookup set allowcalls=:allowcalls, ldesc=:ldesc where code=:code '; Params......... open; end;

Pasaste de ADO a ZEOS sin avisar jejeje.
Saludos

si perdon seme paso comentarlo, en esta linea no tendria que referenciar el nombre del componente que sera el nombre que tenga la variableMyusername que realmente es el nombre de la maquina que hizo que se creara el hilo??, lo comento por que se crearan componentes como llamadas de creacion de hilos halla, y para seguir con lo de que cada hilo tenga sus conexiones por separado no ocasionara algun error?? mil gracias por tu tiempo

Código Delphi [-]
 Connection:= zConnect1;