como crear componentes ado en tiempo de ejecucion

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

[[Caral]]

Hola
No se.
Recuerda que vas a necesitar UN SOLO ZConnection para todo.
Con solo que lo crees una vez bastara.
Los query o tables los tienes que conectar al componente Zconnection que creaste, de lo contrario no encontrara la BD.
En esto nunca he hecho nada no puedo guiarte muy bien que digamos, asi que no te fíes mucho.
Saludos

[richy08]

gracias caral por tu ayuda me has alumbrado un poco mas el camino seguire testeandolo para asegurarme.

[Neftali [Germán.Estévez]]

Empezado por Caral

Recuerda que vas a necesitar UN SOLO ZConnection para todo.
Con solo que lo crees una vez bastara.

Eso suele ser lo normal, pero en el caso de Ricky08 (por lo que ha comentado en otros mensajes) es que está trabajando con threads, y lo normal en Threads es que haya que crear una conexión independiente en cada thread, supongo que por eso el "crear componentes por código" y "crear diferentes conexiones".

En este caso creo que sí está justificado utilizar diferentes zConnections.

[richy08]

asi es neftali es por ello el de crearlos dinamicamente aunque no encuentro informacion de como hacerlo por mas que busco no encuentro una lectura o un ejemplo de como crearlas conexiones y los querys en tiempo de ejecucion el dia es largo asi es que manos al teclado espero hoy terminarlo o encontrar una nueva opcion de como hacerlo saludos.

[Neftali [Germán.Estévez]]

Se crean como cualquier otro componente en ejecución. Busca sobre creación de componentes en ejecución en los foros y encontrarás bastantes temas con ejemplos de código.

Hay una forma sencilla de saber cómo rellenar las propiedades. Crea un componente en un formulario y rellena las propiedades (por ejemplo un Zconnection) de forma que funcione correctamente. Graba el formulario y revisa las propiedades que se han guardado en el DFM.

Por ejemplo, si creas un ADOQuery en diseño, en el DFM hay esto:

  object ADOQuery1: TADOQuery
    ConnectionString =
      'FILE NAME=C:\TEST.udl'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TDeposito where OID=184367')
    Left = 32
    Top = 16
  end

Para crearlo por código utilizarías este:

Código Delphi [-]
    ADOQuery2 := TADOQuery.Create(nil);
    ADOQuery2.ConnectionString :=
      'FILE NAME=C:\TEST.udl';
    ADOQuery2.CursorType := ctStatic;
    ADOQuery2.SQL.Text := 'select * from TDeposito where OID=184367';