Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-03-2010
sizne sizne is offline
Miembro
 
Registrado: mar 2010
Posts: 104
Poder: 15
sizne Va por buen camino
Ejecucion:No modifica los campos de un Query (Delphi)

Planteo mi problema:
Estoy realizando un pequeño sistema en Delphi con Base de Datos SQL SERVER 2000. Tengo dos tablas BDusuario y otra BDbitacora creadas en SQL, Y el el Módulo de Delphi he creado las respectivas tablas, y tambien estoy usando un Query (<--QbitUsuario), donde selecciono todo los campos de las dos tablas (Usuario y Bitacora) comparando sus llaves en este caso es CiUsuario:

Select *
From DBusuario,DBbitacora
Where CiUsuario=CiU

Todo bien hasta esta parte.
Pero una vez que ejecuto el sistema, ingreso el password y si es correcta la contraseña pues ahi programe lo sigte, donde Q <--es el Modulo donde esta el Query<--QbitUsuario y su DataSource

Q.QbitUsuario.Append;
Q.QbitUsuario.Insert;
Q.QbitUsuario.Edit;
Q.QbitUsuario['CiUsuario']:=DM.Tusuario['CiUsuario'];
Q.QbitUsuario['NomUsuario']:=DM.Tusuario['NomUsuario'];
Q.QbitUsuario['ApePU']:=DM.Tusuario['ApePU'];
Q.QbitUsuario['NivelU']:=DM.Tusuario['NivelU'];
Q.QbitUsuario['Fec_Ingreso']:=Date;
Q.QbitUsuario['Hr_Ingreso']:=Time;
Q.QbitUsuario.Post;
Con est código quiero que me registre en QbitUsuario los usuarios que estan ingresando al sistema, la hora y la fecha.
Y una vez terminado las tareas, pues debo cerrar el sistema. Y donde esta el boton SalirSistema programe lo siguiente: Recordando "Q" es el Modulo donde esta el Query<--QbitUsuario

procedure TFprincipal.SalirSistemaClick(Sender: TObject);
begin
With Q do
Begin
QbitUsuario.Append;
QbitUsuario.Edit;
QbitUsuario.Insert;
QbitUsuario['Hr_Salida']:=Time;
QbitUsuario.Post;
End;
Application.Terminate; //close;
end;

Y justo cuando estoy por terminar la aplicacion me aparece el siguiente error:

Project Pbecarios.exe raised exception class EDBEngineError with message 'QbitUsuario:Cannot modify a read-only dataset'.Process stopped. Use Step or Run to continue.

Pues revicé en sus propiedades ya no se donde es el error...y luego me aparece el siguiente error, despues de hacer click en OK.

QbitUsuario:Cannot modify a read-only dataset

Por favor preciso sus ayudas.

Gracias!
Responder Con Cita
 



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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como cargar un Query en tiempo de ejecucion sancarlos SQL 1 15-08-2008 05:24:09
quickreport con query en ejecucion lejia Impresión 13 14-01-2008 22:02:51
Ejecución de query sin congelamiento fryguy SQL 3 20-07-2005 15:08:58
IBDataset no modifica istradlin Conexión con bases de datos 2 19-04-2005 23:44:22
Campos de una Query silviodp Impresión 1 18-05-2004 17:30:42


La franja horaria es GMT +2. Ahora son las 12:44:45.


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