Tema: actualizar
Ver Mensaje Individual
  #1  
Antiguo 27-05-2004
fabriciof fabriciof is offline
Miembro
 
Registrado: abr 2004
Posts: 26
Reputación: 0
fabriciof Va por buen camino
actualizar

hola amigos , como siempre agardeciendo su ayuda , recurrinedo ilimitadamente a su buena voluntad.

realice una aplicacion en bases de datos , pero cuiando ago una modificacion , la base de datos no se actualiza , los registros de una detrminada columna se muestras en un listbox, y alseleccionar algun nombre de , me muestar sus caracteristicas dentro de unos edit's, pero cuando corrijo algun valor de la base de datos y vuelvo a seleccionar el nombre los edits me aparecen todos en blanco , cierro la aplicacion , slecciono el item modificado y me muestra los cambios , como puedo solucionar este problema , use refresh , pero me aprece un mensaje de error.

el codigo es el siguiente :

with adoquery1 do
begin
connectionstring:=strconection;
adoquery1.active:=true;
close;
sql.clear;
connectionstring:=strconection;
sql.Add('select * from crop');
open;
listbox1.clear;
while not adoquery1.eof do
begin
listbox1.items.add(fields[1].asstring);
next;
end;
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from crop where cropname='''+listbox1.items[listbox1.itemindex]+'''');
open;
edit2.text:=fields[0].asstring;
edit1.text:=fields[1].asstring;
edit3.text:=fields[2].asstring;
edit4.text:=fields[3].asstring;
edit5.text:=fields[4].asstring;
edit6.text:=fields[5].asstring;
end;
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
{ adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('update crop set blai='''+edit3.text+''' where cropname='''+listbox1.items[listbox1.itemindex]+'''');
adoquery1.open;}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
connectionstring:=strconection;
adoquery1.close;
adoquery1.sql.clear;

adoquery1.sql.add('update crop set cropname='''+edit2.text+''',cpnm='''+edit1.text+''', blai='''+edit3.text+''',chtmx='''+edit4.text+''',cnyld='''+edit5.text+''',ov_n='''+edit6.text+''' where cropname='''+listbox1.items[listbox1.itemindex]+'''');
adoquery1.execsql;
adoquery1.close;

end;
end.

gracias por su ayuda.
Responder Con Cita