Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   actualizar campo SQL Express con delphi desde Excel (https://www.clubdelphi.com/foros/showthread.php?t=62349)

sensei 17-12-2008 23:05:57

actualizar campo SQL Express con delphi desde Excel
 
hola a todos espero puedan ayudarme con esto,utilizo delphi6 y
sql express2005. utilizo ado para visualizar datos de una hoja de excel que contiene los campos articulo,descrip,existencia,almacen,ubicacion los cuales se muestran en un dbgrid y hasta aqui todo bien.
a la hora de querer actualizar la tabla prods que esta en servidor sql y
que contiene los mismos campos que la hoja de excel;me actualiza con el mismo valor todos los registros del campo existencia(el cual es el unico que quiero actualizar) me deja el valor del ultimo registro
de ante mano Gracias.

el codigo es el siguiente:

Código Delphi [-]
while not dbgrid2.DataSource.DataSet.Eof do begin   
  ADOQuery4.Close;   
  ADOQuery4.SQL.Clear;    
  ADOQuery4.SQL.Add('update Prods set Existencia =:a');
  ADOQuery4.Parameters.ParamByName('a').Value:=dbgrid2.Fields[2].Value;  
  ADOQuery4.Prepared;   
  ADOQuery4.ExecSQL;   
  dbgrid2.DataSource.DataSet.next; 
end;                                 
end;

Neftali [Germán.Estévez] 18-12-2008 10:04:35

Tal vez estés posicionado en el último registro del Grid y por eso siempre te coloca ese valor.
Otra cosa, te recomiendo no recorrer el DGBrid, sino directamente la fuente de datos (Tabla, Query,...).

Para detectar el error, te puede servir, colocar antes del Update un mensaje que te enseñe algunos datos del registro del que está cogiendo los valores.

sensei 19-12-2008 00:46:39

Hola Neftali gracias por responder ya estoy haciendo cambios y probando
espero corregir esto que me tiene un poco atorado. ya comentare como va
gracias de nuevo


La franja horaria es GMT +2. Ahora son las 11:43:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi