Club Delphi  
    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 09-04-2005
Supermagayin Supermagayin is offline
Miembro
 
Registrado: nov 2003
Ubicación: Mexico
Posts: 54
Poder: 21
Supermagayin Va por buen camino
Unhappy error "table is read only"

Hola de antemano gracias.

estoy haciendo un baja sencilla a una base de datos access
para esto utilizo un query, y una edit para hacer la busqueda del registro a borrar y dos botones.

Código Delphi [-]
 //boton de busqueda
 procedure TForm1.BitBtn2Click(Sender: TObject);
 begin
 query1.close;
   query1.ParamByName('llave').AsString:=Edit3.Text;
   query1.Open;
    if query1.EOF then
     ShowMessage('No se encontro ninguna llave!!');
 end;
 
 //boton borrar
 procedure TForm1.BitBtn3Click(Sender: TObject);
 begin
   If Query1.IsEmpty then
      ShowMessage('Primero debe de buscar un Registro!!')
   else
    If MessageDlg('¿Seguro de Borrar el Registro?',mtConfirmation,
                    [mbYes,MbNo],0)=mrYes Then
    Query1.Delete;
    Edit3.Text:='';
    Edit3.SetFocus;
 end;
El problema es que al intentar BORRAR en la base de datos me marca error
"TABLE IS READ ONLY" . Lo raro es que si puedo hacer altas.

Cualquier ayuda es buena.
__________________
Saludos

Última edición por marcoszorrilla fecha: 09-04-2005 a las 18:07:48.
Responder Con Cita
  #2  
Antiguo 09-04-2005
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Sino tienes definida ninguna clave primaria, definela.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 09-04-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Si la tienes ya, usa Table1.delete.

byeee
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #4  
Antiguo 09-04-2005
Supermagayin Supermagayin is offline
Miembro
 
Registrado: nov 2003
Ubicación: Mexico
Posts: 54
Poder: 21
Supermagayin Va por buen camino
Intentare lo que me dicen.
__________________
Saludos
Responder Con Cita
  #5  
Antiguo 09-04-2005
Supermagayin Supermagayin is offline
Miembro
 
Registrado: nov 2003
Ubicación: Mexico
Posts: 54
Poder: 21
Supermagayin Va por buen camino
si tenia llave primaria, entonces utilice table1.delete no me marca error, la pregunta ahora es como indicarle a esa instruccion que borre el registro que yo deseo. porque asi me borra siempre el primer registro.

Gracias
__________________
Saludos
Responder Con Cita
  #6  
Antiguo 10-04-2005
Avatar de vtdeleon
vtdeleon vtdeleon is offline
Miembro
 
Registrado: abr 2004
Ubicación: RD & USA
Posts: 3.236
Poder: 24
vtdeleon Va por buen camino
Saludos.

Usa el locate del Table
Código Delphi [-]
table1.locate('campo',edit1.text,[])
BYe
__________________
Van Troi De León
(Not) Guía, Code vB:=Delphi-SQL, ¿Cómo?
Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto!
Responder Con Cita
  #7  
Antiguo 10-04-2005
Supermagayin Supermagayin is offline
Miembro
 
Registrado: nov 2003
Ubicación: Mexico
Posts: 54
Poder: 21
Supermagayin Va por buen camino
Gracias a todos. Ya esta listo!!
__________________
Saludos
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 13:33:55.


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