RE: [pgsql-es-ayuda] Conexión desde Delphi a PostgreSQL

Uhmmm! No entiendo porque lo haces de esa forma. Solo tienes que usar un
componente Database en la forma y poner sus propiedades y listo. Ahora bien
, el error q te muestra es por que no encuentra la ruta del componente Zeos.
Si quieres puedo enviarte un codigo haciedno eso como lo hacemos aca. Aunque
yo uso Datamodulos para eso.

*-------------------------------------------------------*
*-Edwin Quijada
*-Developer DataBase
*-JQ Microsistemas
*-809-747-2787
* " Si deseas lograr cosas excepcionales debes de hacer cosas fuera de lo
comun"
*-------------------------------------------------------*

>From: "Gorka" <gorkapostgres(at)yahoo(dot)es>
>To: <pgsql-es-ayuda(at)postgresql(dot)org>
>Subject: [pgsql-es-ayuda] Conexión desde Delphi a PostgreSQL
>Date: Wed, 21 Jul 2004 08:57:29 +0200
>
>He insertado en el form un componente TZMonitor, TZPgSqlDatabase,
>TZPgSqlTransact, TZPgSqlTable, TZPgSqlQuery y TZPgSqlNotify. No he tocado
>sus propiedades para nada porque creo que en el código se asigna
>dinamicamente todo lo necesario, sin embargo es mi primer acceso a base de
>datos.
>
>Aunque compila bien, me da el siguiente error en la ejecución (la A llega a
>salir, la B no):
>
>"Project PInformando.exe raised exception class EDatabaseError with message
>'Database component not defined'."
>
>Este es el código:
>
>
>unit Informando;
>
>interface
>
>uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
>Dialogs,
> Db, StdCtrls, ZConnect, ZPgSqlCon, ComCtrls, ZQuery, ZPgSqlQuery,
> ZTransact, ZPgSqlTr;
>
>type
> TForm1 = class(TForm)
> Nombre: TEdit;
> ZPgSqlDatabase1: TZPgSqlDatabase;
> StatusBar1: TStatusBar;
> ZPgSqlTable1: TZPgSqlTable;
> ZPgSqlQuery1: TZPgSqlQuery;
> ZMonitor1: TZMonitor;
> ZPgSqlTransact1: TZPgSqlTransact;
> ZPgSqlNotify1: TZPgSqlNotify;
> procedure FormCreate(Sender: TObject);
> procedure FormShow(Sender: TObject);
>
> private
> procedure doConnect;
> procedure Conectar;
> procedure Desconectar;
>
> public
> { Public declarations }
> end;
>
>var
> Form1: TForm1;
> function ExecSelectNColumnas (Query: TZPgSqlTable; SQL: string; numcol:
>integer; var SL: TStringList; var sterror: string): integer;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.doConnect;
>var sql, sterror: string;
> aRecordCount: integer;
> SLTemp: TStringList;
>begin
> SLTemp:= TStringList.Create;
> Conectar;
> if (ZPgSqlDatabase1.Connected) then
> begin
> sql:= 'SELECT * FROM noticias';
> aRecordCount:= ExecSelectNColumnas (ZPgSqlTable1, sql, 1, SLTemp,
>sterror);
> ShowMessage ('Nº Registros: '+ intToStr(aRecordCount) );
> end;
> Desconectar;
> if Assigned (SLTemp) then SLTemp.Free;
>end;
>
>procedure TForm1.Conectar;
> begin
> try
> ZPgSqlDatabase1.Connect;
> except
> on E: Exception do
> begin
> ShowMessage ('Error: ' + E.Message);
> exit;
> end;
> end;
>end;
>
>procedure TForm1.Desconectar;
> begin
> try
> ZPgSqlDatabase1.Disconnect;
> StatusBar1.Panels[0].Text:= '';
> except
> on E: Exception do
> begin
> ShowMessage ('Error: ' + E.Message);
> exit;
> end;
> end;
>end;
>
>function ExecSelectNColumnas (Query: TZPgSqlTable; SQL: string; numcol:
>integer; var SL: TStringList; var sterror: string): integer;
> var i, aRecordCount: integer;
> begin
> SL.Clear;
> sterror:= '';
> try
> Query.Sql.Text := Sql;
> ShowMessage('A');
> Query.Open;
> ShowMessage('B');
> aRecordCount:= Query.RecordCount;
> ShowMessage('Nº Registros: '+ intToStr(aRecordCount));
> Query.First;
> while not Query.Eof do
> begin
> for i:= 0 to numcol - 1 do begin SL.Add(Query.Fields[i].AsString);
>end;
> Query.Next;
> end;
> Query.Close;
> result:= aRecordCount;
> except
> on E: Exception do
> begin
> sterror:= 'Error del Programa'+E.Message;
> result:= -1;
> exit;
> end;
> end;
> end;
>
>
>procedure TForm1.FormCreate(Sender: TObject);
>begin
>
> ZPgSqlDatabase1.Host:= '10.0.0.3';
> ZPgSqlDatabase1.Port:= IntToStr(5432);
> ZPgSqlDatabase1.Database:= 'dbweb';
> ZPgSqlDatabase1.LoginPrompt:= false;
> ZPgSqlDatabase1.Login:= 'usuweb';
> ZPgSqlDatabase1.Password:= 'sgenomicos';
>
>end;//TForm1.FormCreate
>
>procedure TForm1.FormShow(Sender: TObject);
>begin
>
> doConnect;
>
>end;//TForm1.FormShow
>
>end.

_________________________________________________________________
MSN Amor: busca tu ½ naranja http://latam.msn.com/amor/