Ver Mensaje Individual
  #1  
Antiguo 19-07-2013
keine1lust keine1lust is offline
Miembro
NULL
 
Registrado: sep 2012
Posts: 17
Reputación: 0
keine1lust Va por buen camino
Uso de Lazreport o foster report

Buenas tiempo sin escribir empece con delphi y después me pase a Lazarus para no usar software pirateado Leí los libros que me me recomendó el usuario "Roman" ya hago formularios consultas a base de datos y todo perfecto ahora mi duda es la siguiente:

Yo para conectarme a bases de datos cree una clase para las conexiones con las base de datos usando zeoslib

Código Delphi [-]
class procedure conexiodb.Conectar_Mysql;
var
 Ruta : TIniFile;
 serv, puerto, usuario,clave,BasedeDatos: String;
begin


Ruta:= TIniFile.Create(ExtractFilePath(ParamStr(0)) +'config.ini');

 serv := Ruta.ReadString('Base','servidor','');
 puerto := Ruta.ReadString('Base','puerto','');
 usuario := Ruta.ReadString('Base','user','');
 clave := Ruta.ReadString('Base','pass','');
 BasedeDatos := Ruta.ReadString('Base','ndata','');

  Conexion:= TZConnection.Create(nil);
  with Conexion do
  begin
  User:=usuario;
  Password:=clave;
  HostName:=serv;
  Database:=BasedeDatos;
  Protocol:='mysql';
  Port:=StrToInt(puerto);
  end;

Try
Conexion.connect;
if not Conexion.connected then
begin
showMessage('No fué posible hacer la conexión');
exit;
end;
except on e:exception do
 begin
showMessage('No fué posible hacer la conexión -> '+e.message);
exit;
end;

  end;

end;

y de igual forma una clase para para consulta SQL todo esto lo llamo desde un formulario

mi pregunta ¿como hago para pasar los datos de mi consulta SQL a Lazreport? o ¿me recomienda usar foster report para Lazarus?

eh leído y visto tutoriales en Lazreport como hacerlo pero no se como adaptarlo a mi código ¿alguna sugerencia o recomendación que me puedas dar? de antemano muchas gracias
Responder Con Cita