FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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. |
|
|
|