problema al conectar lazarus con postgresql

[serdl]

no se podra mover este tema al apartado postgresql? puede que alli alguien con un problema parecido lo vea.
saludos

[radenf]

Estimado serdl :

Yo tuve un problema similar al actualizar PostgreSql desde la versión 8.3 a la versión 9.0, porque zeos no tiene soporte para esta última en su versión estable 6.6.6.
Debí reinstalar la versión 8.3 de PostgreSql y funcionó perfecto, utilizando el driver adecuado a esta versión.
Por cierto uso Delphi 2007, no Lazarus.

Saludos y ojalá pueda haberte ayudado

[serdl]

Hola radenf, voy a seguir tu sugerencia y ver que pasa, voy a instalar ora version de postgresql. Gracias voy a seguir haciendo pruebas y comento como va todo, saludos.

[serdl]

recien me instale la version 8.3 de postgre y sigue sin funcionar, al conectar me dice que no se puede encontrar las librerias dinamicas libq81 y libq.dll.

copie libq.dll al directorio de la aplicacion, agregue las variables de entorno correspondiente en el path.

no se que mas hacer

[jejo1984]

Hola que tal lo que debes hacer primero es esto:
1.-La libreria libq.dll se debe sacar de la siguiente ruta(uso W xp): C:\Archivos de programa\PostgreSQL\psqlODBC\0900\bin
2.- Copia y pega en la carpeta System32
3.- luego ejecuta nuevamente tu aplicación y veras que librerias mas te faltan y la encontraras en la misma carpeta.

[jejo1984]

Aqui te dejo un ejemplo de codigo no utilizo zconnection:

Código Delphi [-]
procedure Tfrm_reg_tip_demo.conectabd();
var
MyIniFile : TIniFile;
BBDDhost,BBDDName : String;
password, usuario : String;
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0))+'conexion.ini');
Try
BBDDhost:=MyIniFile.ReadString('BBDD','host','');
BBDDName:=MyIniFile.ReadString('BBDD','BD','');
Usuario :=MyIniFile.ReadString('BBDD','Usuario','');
Password:= MyIniFile.ReadString('BBDD','Password','');
(* *)
PQConnection1.HostName:=BBDDhost;
PQConnection1.DatabaseName:=BBDDName;
PQConnection1.UserName:=Usuario;
PQConnection1.Password:=Password;
Finally
MyIniFile.Free;
End;
end;

[jejo1984]

Luego acceso de esta forma:

Código Delphi [-]
procedure TFrm_lista_incidencia.Refresh_listado();
begin
  conectabd();
  PQConnection1.Transaction:=SQLTransaction1;
  SQLTransaction1.DataBase:=PQConnection1;
  SQLlist_inci.DataBase:=PQConnection1;
  SQL_mod_incidencia.DataBase:=PQConnection1;

  SQLlist_inci.Close;
  SQLlist_inci.Active:=False;
  SQLlist_inci.SQL.Clear;
  SQLlist_inci.SQL.Text:='SELECT * FROM LISTA_INCIDENCIA';
  Datasource1.DataSet:=SQLlist_inci;
  try
  SQLlist_inci.open;
  grid_lista_incidencia.RowCount:=1;
    while not SQLlist_inci.EOF do
    begin
      grid_lista_incidencia.RowCount:=grid_lista_incidencia.RowCount +1;
      grid_lista_incidencia.Cells[0,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[0].AsString;
      grid_lista_incidencia.Cells[1,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[1].AsString;
      grid_lista_incidencia.Cells[2,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[2].AsString;
      grid_lista_incidencia.Cells[3,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[3].AsString;
      grid_lista_incidencia.Cells[4,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[4].AsString;
      grid_lista_incidencia.Cells[5,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[5].AsString;
      grid_lista_incidencia.Cells[6,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[6].AsString;
      grid_lista_incidencia.Cells[7,grid_lista_incidencia.RowCount-1]:=SQLlist_inci.Fields[7].AsString;
      SQLlist_inci.Next;
    end;
    PQConnection1.Close;
    except
    on E: Exception do
      begin
      Showmessage( PChar( E.Message )+ 'Error de SQL');
      SQLTransaction1.EndTransaction;
      end;
    end;