1 reply to this topic

[darkarias]

Buenas ??!!

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

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-->> www.sendspace.com/file/t0qnmv

Agradeceria su opinion y su respuesta de ayuda!!

[poliburro]

Hola amigo, has revisado si el archivo de access se encuentra en modo escritura? por que me parece que el problema está allí.