FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
crear componente de bd dinamicamente
hola como les va?
estoy intentando agregar a mi clase TConnection un componente zconnection, la cosa es q no estoy muy seguro de como hacerlo, aqui va la partecita donde se conecta.. Código:
unit UConection; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ZClasses, ZDbcIntfs, ZCompatibility,Grids, ZConnection, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, //Dejar solo la base de datos q se utiliza ZDbcMySql,ZDbcMysqlUtils, ExtCtrls //ZDbcInterbase6, //ZDbcPostgreSql, //ZDbcDBLib ; type TConnection = class private //datos para la coneccion Protocol:string; HostName:string; Port:integer; DataBase:string; UserName:string; Password:string; connection:TZConnection; FDataset: TZQuery; public constructor Create(); overload; constructor Create(Prot:string;Host:string;Prt:integer;DB:string;User:string;Pass:string);overload; function connect():boolean; end; implementation constructor TConnection.Create();//en este caso begin Protocol:=''; HostName:=''; Port:=0; DataBase:=''; UserName:=''; Password:=''; end; constructor TConnection.Create(Prot:string;Host:string;Prt:integer;DB:string;User:string;Pass:string); begin Protocol:=Prot; HostName:=Host; Port:=Prt; DataBase:=DB; UserName:=User; Password:=Pass; end; function TConnection.connect():boolean; var Url: string; begin connection:=TZConnection.Create(Self); connection.Protocol:=Protocol; connection.HostName:=HostName; connection.Port:=Port; connection.Database:=DataBase; connection.User:=UserName; connection.Password:=Password; try//intenta conectarse y si lo logra devuelve true, sino false connection.Connected:=true; except connect:=false; exit; end; connect:=true; end; end. y si le saco la parte de Código:
connection:=TZConnection.Create(Self); tambien me da error basicamente lo q necesito es crear un componente dinamicamente, ya q no solo necesito crear un zconnection sino tambien un zquery y demas componentes zeos.. desde ya muy agradecido Última edición por gushmaish fecha: 01-03-2007 a las 16:20:55. |
#2
|
|||
|
|||
No se si puede ser ...
... pero yo probaria de cambiar la instrucción esa del create que usas.
Cita:
Por eso te dice que no són compatibles, una de dos, o haces que tu TConnection descienda del TComponent y entonces ya funcionará, o le pones al Create(xxx) donde xxx sea el nombre de un objeto del tipo TComponent. ánimos
__________________
Ánimos. |
#3
|
|||
|
|||
Muchas gracias amigo!!!
Eso anduvo bien, lo unico q hice fue heredar de TComponent Código:
TConnection = class(TComponent) |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Crear y destruir formas dinamicamente | ing_gera | C++ Builder | 1 | 16-02-2007 00:45:23 |
Crear form dinamicamente | karocs | Varios | 1 | 15-09-2005 20:15:18 |
Crear RadioButtons dinámicamente | Javi2 | Varios | 4 | 26-07-2004 17:27:00 |
Error al Crear Ventanas dinámicamente | Lepe | OOP | 6 | 18-02-2004 11:18:58 |
crear popups dinamicamente. | tango01 | OOP | 2 | 06-01-2004 16:33:03 |
|