Anitan
27-08-2013, 17:27:35
Buenas ??!!
Tengo un problema al intentar modificar los datos de mi BD en Access!!!
//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!!
Tengo un problema al intentar modificar los datos de mi BD en Access!!!
//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!!