Ver Mensaje Individual
  #13  
Antiguo 14-07-2005
Chocoslovaco Chocoslovaco is offline
Miembro
 
Registrado: jun 2005
Ubicación: Puebla, México
Posts: 66
Reputación: 19
Chocoslovaco Va por buen camino
Es muy raro???

Ya realize el cambio que me sugeriste. y sigue sin surtir efecto.
¿Que estaré hacindo mal?..
La BD la abro de la sig forma:
Código Delphi [-]
  
procedure TInicio.FormCreate(Sender: TObject);
begin
try
  ConexionBD.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Servidor\Back Sistema Empresarial1.3.mdb;Persist Security Info=False';
  ConexionBD.LoginPrompt:=False;
  ConexionBD.Connected:=True;
  MessageDlg('Conexion','Conexión con la Base de Datos establecida con éxito',mtInformation,[mbOK],0,mbOK);
except
  on E:Exception do
    begin
      MessageDlg('Error de Conexion','Error en la Conexión con la Base de Datos',mtWarning,[mbOK],0,mbOK);
      ConexionBD.Close
    end;
end;
end;

la Propiedad en diseño: Mode esta en cmShareDenyNone, o sera un problema
con el componente??? o con el ADO??..pero esto :
Código Delphi [-]
...
with QActualiza do
  begin
    SQL.Clear; SQL.Text:='DELETE * FROM [Abonos no Aplicados]'; ExecSQL;
    SQL.Clear; SQL.Text:='DELETE * FROM [Abonos Pendientes]';   ExecSQL;
    SQL.Clear; SQL.Text:='SELECT Id AS Registro FROM Clientes WHERE NombreCompañía=' + Quotedstr(Cliente);
    Open;
...

Si funciona las tablas son afectadas....
Responder Con Cita