Ver Mensaje Individual
  #1  
Antiguo 10-10-2007
Avatar de totote
totote totote is offline
Miembro
 
Registrado: oct 2006
Posts: 150
Reputación: 20
totote Va por buen camino
problema con TSqlConnection

buenas gente estamos haciendo un tp para la facu, es para entender el concepto de clases, el tema no tiene mucho que ver con esto, ya que estamos haciendo un programa de consola y todo es por codigo, el problema surge cuando queremos crear un componente TSqlConecction que nos tira un error de acces violation algo poco comun en windows no? :P este es el codigo de la clase

Código Delphi [-]
Type
  TFacturaVentaPersist=Class
  Private
    Conx: TSQLConnection;
    Q: TSqlDataset;
  Public
    Constructor Create;
    Destructor Destroy;
    Procedure Guardar (F: TFacturaVenta);

    Function GetGenerator(Const NombreGen: String):Integer;
    Function GetSecuencia(Tipo: Char):Integer;

    Procedure GrabarItem (I: TitemFactura);
    Function Buscar(IdFactura: Integer):TFacturaVenta; Overload; // reconoce la diferencia de las funciones con mismos nombres de acuerdo a sus parametros
    Function Buscar (Tipo: char; NroSuc: Integer; NroComp:Integer):TFacturaVenta; Overload;
    Function BuscarFactura (Fecha: TDateTime):TObjectlist; Overload;
  End;

el problema esta en el constructor, este es el codigo:

Código Delphi [-]
constructor TFacturaVentaPersist.Create;
begin

  Conx:=TSQLConnection.create(nil); // <-- Aca es donde genera el error
  Conx.Connectionname:='Lab4';      // <-- a esta linea nunca se llego XD
  Conx.LoadParamsOnConnect:=True;
  Conx.Open;

end;

y este es el error que esta tirando:



si nos pueden ayudar se los voy a agradecer mucho
__________________
¡Oh nooo! no compartas, compartir es pirateria, compartir te llevara a la carcel - Revolution OS
Responder Con Cita