Buscar

PostgreSQL - Classe TConexao

Código

unit unTConexao;

interface

uses ZConnection, ZDbcIntfs;

type
TConexao = class
public
Conexao: TZConnection;
constructor create;
end;

implementation

{ TConexao }

constructor TConexao.create;
begin
Conexao := TZConnection.Create(NIL);
Conexao.Database := 'Estoques';
Conexao.HostName := '127.0.0.1';
Conexao.LoginPrompt := False;
Conexao.Password := '9976543';
Conexao.Port := 5432;
Conexao.Protocol := 'postgresql-7.3';
Conexao.SQLHourGlass := True;
Conexao.User := 'postgres';
Conexao.TransactIsolationLevel := tiReadCommitted;
Conexao.Connected := True;
end;

end.

____

Meu Blog pessoal: http://bloggersdelphi.blogspot.com
 

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Banco de dados
Adicionada dia: 12/07/09
Por: Herminio L. Paes Júnior
Visualizada: 3921 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009