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; 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); Conx.Connectionname:='Lab4'; Conx.LoadParamsOnConnect:=True;
Conx.Open;
end;
y este es el error que esta tirando:
si nos pueden ayudar se los voy a agradecer mucho