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

Pues lo hago así porque tengo la cabeza rota de tanta información y he ido
añadiendo todo lo que he recogido de innumerables documentaciones a mi
programa piloto con la esperanza de que así me funcionase de una vez. ¡Pero
nada! Ya no sé por dónde tirar.

Si pudieras mandarme tu código te lo agradecería, Edwin. Y si me mandases
los archivos con un programilla sencillo de ejemplo sería ya genial. Puedes
utilizar mi dirección si lo deseas, por si los adjuntos molestasen a la
lista.

No entiendo por qué no encuentra la ruta de Zeos, desde aquí se diseñó un
programa en delphi sobre postgres ya.

Desconozco qué son los datamodulos.

Bueno, ... cualquier ayuda será recibida de rodillas y con los brazos
abiertos.
Muchas gracias de antemano.

|-----Mensaje original-----
|De: Edwin Quijada [mailto:listas_quijada(at)hotmail(dot)com]
|Enviado el: miércoles, 21 de julio de 2004 15:21
|Para: gorkapostgres(at)yahoo(dot)es
|CC: pgsql-es-ayuda(at)postgresql(dot)org
|Asunto: 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/
|