Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-07-2005
Chocoslovaco Chocoslovaco is offline
Miembro
 
Registrado: jun 2005
Ubicación: Puebla, México
Posts: 66
Poder: 22
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
  #2  
Antiguo 14-07-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
Pues si que esta bastante raro.

me he quedado sin ideas.
__________________

Responder Con Cita
  #3  
Antiguo 14-07-2005
Chocoslovaco Chocoslovaco is offline
Miembro
 
Registrado: jun 2005
Ubicación: Puebla, México
Posts: 66
Poder: 22
Chocoslovaco Va por buen camino
Alguna otra sugerencia...

Gracias ContraVeneno por tomarte la molestia de contestar
y agradezco tus comentarios. Gracias.
Alguien más podria escribir algun comentario???? por favor....
Responder Con Cita
  #4  
Antiguo 20-07-2005
Chocoslovaco Chocoslovaco is offline
Miembro
 
Registrado: jun 2005
Ubicación: Puebla, México
Posts: 66
Poder: 22
Chocoslovaco Va por buen camino
Alguna forma diferente de operar los registros???

Saludos a todos..
pues se daran cuenta que sigo aun con el mismo problema.
Ya no se que es lo que pasa con mi aplicacion..de cierta forma estoy desesperado.
Ahora bien, estuve pensando si es la forma de referirme a los registros,
pero como soy un novato en estos asuntos, ¿Alguien me puede decir si
los puedo modificar de alguna otra forma?, es decir no haciendolo asi:
Código Delphi [-]
...
  FieldValues['Pagada']:=True; FieldValues['PagadaE']:=True;
  FieldValues['Parcial']:=False; FieldValues['ParcialE']:=False;
  FieldValues['Importe']:=FieldValues['ImporteE'];
...
Responder Con Cita
  #5  
Antiguo 20-07-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
podrías usar Fields[X] x= número de campo.
__________________

Responder Con Cita
  #6  
Antiguo 21-07-2005
Chocoslovaco Chocoslovaco is offline
Miembro
 
Registrado: jun 2005
Ubicación: Puebla, México
Posts: 66
Poder: 22
Chocoslovaco Va por buen camino
Aun tengo esperanzas...

Gracias por responder, ya lo intente haciendolo de la forma que dices..
pero no funciona
Ahora..de tanto estar cambiando codigo, observe que :
Código Delphi [-]
...
Edit;
FieldValues['ImporteE']:=FieldValues['ImporteE'] + QActualiza.FieldValues['Aplicar'];
....
esto es tratado como strings, ahora alguien puede decirme, si esto me devuelve:
ImporteE=30.5
Aplicar=30
1.- 30.530 (concatenado) ó
2.- 60.50 (suma)
esto ultimo es lo que pretendo...agradezco de nuevo y disculpen la molestia.
Responder Con Cita
  #7  
Antiguo 21-07-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
para asegurarte e que te lo sume puedes usar Fields[X].asfloat + Fields[X].asfloat

o utilizar strtofloat()

tengo entendido que cuando utilizas fieldValues[] toma el valor tipo variant y luego automáticamente lo convierte al tipo e dato que el compilador supone se va a utilizar. Entonces en toería debería sumarlos como float, pero para estar seguros
despues del post pon un showmessage(fieldvalues['importeE']); para que veas como te lo guardo.
__________________


Última edición por ContraVeneno fecha: 21-07-2005 a las 19:51:47.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 04:17:33.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi