Ver Mensaje Individual
  #1  
Antiguo 27-08-2013
Anitan Anitan is offline
Registrado
NULL
 
Registrado: ago 2013
Posts: 6
Reputación: 0
Anitan Va por buen camino
Exclamation Problema: Table read only, Access

Buenas ??!!

Tengo un problema al intentar modificar los datos de mi BD en Access!!!

Código Delphi [-]
//asi es como agrego nuevos datos a mi tabla  q seria mi Form1 de Registro
procedure TForm1.BitBtn5Click(Sender: TObject);//boton de nuevo registro y guardar
begin
table1.Insert;
end;

//asi es como realizo una busqueda de la misma tabla q seria mi Form2 de Busqueda
procedure TForm2.BitBtn1Click(Sender: TObject);//boton de busqueda
begin
if edit1.Text<>'' then
begin
  if radiobutton1.Checked=true then
begin
  query1.Active:=false;
  query1.SQL.Text:='select * from Libro where codigo_libro='+edit1.Text+'';
  query1.Active:=true;
end;

//Form3 -->una vez realizada la busqueda envio el codigo a la form4 asi::
procedure TForm3.BitBtn2Click(Sender: TObject);//este es mi boton para enviar el codigo
begin
form4.Query1.Active:=false;
form4.Query1.SQL.Text:='select * from libro where codigo_libro='+edit1.Text+'';
form4.Query1.Active:=true;
form4.show;
end;

//y en la form4 mi cod para querer guardar los datos modificados es asi:
procedure TForm4.BitBtn1Click(Sender: TObject);//este es mi boton de guardar
begin

  query1.Active:=false;
  query1.SQL.Text:='update Libro set nombre_libro=:'''+DBEDit2.Text+''' where codigo_libro=:'+DBEdit1.Text+'';
  query1.ExecSQL;
  query1.Active:=true;
end;

//mi query en la form4 sus propiedades esta modificado asi:
object Query1: TQuery
    Active = True
    AutoRefresh = True
    DatabaseName = 'Biblioteca'
    RequestLive = True
    SQL.Strings = ('SELECT * FROM LIBRO;')

Una vez ejecutado esto me sale error diciendome "Table read only" (tabla solo de lectura)

Aca esta mi proyecto si quieren verlo-->> sendspace.com/file/t0qnmv (si es q no se subio bn el rar adjunto)

Agradeceria su opinion y su respuesta de ayuda!!
Archivos Adjuntos
Tipo de Archivo: rar Biblioteca.rar (52,0 KB, 6 visitas)
Responder Con Cita