Fórum Class de conexão usando o seos access #376193

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]