Class de conexão usando o seos access
Olá Pessoal, estou usando o componente de zeos para conexão com o Mysql. Crie uma class de conexão mais apresenta nas properties.
Port:= 3306;
user:= ´root´;
password:= ´123´;
Protocol:=´mysql´;
Database:= ´bdteste´;
O erro não acontece quando uso os componentes visuas.
Segue abaixo código da class.
Port:= 3306;
user:= ´root´;
password:= ´123´;
Protocol:=´mysql´;
Database:= ´bdteste´;
O erro não acontece quando uso os componentes visuas.
Segue abaixo código da class.
unit Conexaoclass;
interface
uses ZConnection, sysutils;
type
Tconn = class
public
Conn: TZConnection;
constructor create;
destructor detroy; override;
property connection:TZConnection read conn;
end;
var
connection : TZConnection;
implementation
{ Tconn }
constructor Tconn.create;
begin
conn := TZConnection.create(nil);
with conn do
HostName:= ´localhost´;
Port:= 3306;
user:= ´root´;
password:= ´123´;
Protocol:=´mysql´;
Database:= ´bdteste´;
conn.Connected:= True;
end;
destructor Tconn.detroy;
begin
conn.Disconnect;
conn.free;
inherited;
end;
initialization
connection := TZConnection.create;
finalization
connection.free;
end.
[code]
Gustavo Passos
Curtidas 0