Ayuda con consulta Upadate y Delphi

[abdielalej]

Buenas y muchas gracias a todos...

Necesito actualizar un campo de una tabla con un valor calculado...pero Access me da el sgte error: necesita usar una consulta actualizable

Por favor necesito ayuda o alguna otra idea, esta es la consulta que pongo en el Adoquery:

UPDATE tiendaproducto SET tiendaproducto.cantidad =[cant], tiendaproducto.importe = (Select producto.precio*[cant] From producto Where producto.nombreproducto=[producto])

O sea cuando le pongo la consulta de Selección da ese error...
Me han dado algunas soluciones...pero con código VBA...

Espero sus respuestas

[[Caral]]

Hola
Me pregunto?
Por que no divides la consulta y el update?.
Primero se consulta y el dato del parametro se pasa al update.
Asi lo haria yo...
Saludos

[Casimiro Noteví]

Está bien como lo quieres hacer, pero muchas veces es más cómodo hacer lo que comenta Caral: divide y vencerás

[marcoszorrilla]

Yo también estoy con lo propuesto por Carlos incluso en alguna ocasión divido procesos en 2 ó 3 pasos y utilizo ficheros temporales.


Un Saludo.

[abdielalej]

Hola a todos y muchas gracias...
Cómo podría pasarle el resultado de la consulta de selección que me calcule el importe que lo pondría ejemplo: AdoQueryCalcula_Imorte y tendría el otro: AdoQueryUpdate...

O sea... como le paso el resultado que devuelve AdoQueryCalcula_Imorte como parámetro a AdoQueryUpdate...

Creo que es una excelente idea...muchas gracias...

[[Caral]]

Hola
Veamos una forma de hacerlo:
No me hagas mucho caso, es solo una idea.

Código Delphi [-]
AdoQueryCalcula_Imorte.Sql.Text:= 'Select (producto.precio*:cant) As Canti From producto Where producto.nombreproducto= roducto';
AdoQueryCalcula_Imorte.Parameters[0].Value:= TuDato1
AdoQueryCalcula_Imorte.Parameters[1].Value:= TuDato2
AdoQueryCalcula_Imorte.Open;

AdoQueryUpdate.Sql.Text:= ' UPDATE tiendaproducto SET tiendaproducto.cantidad = :cant1, tiendaproducto.importe = ato';
AdoQueryUpdate.Parameters[0].Value:= AdoQueryCalcula_Imorte.Filebyname('Canti').Value;
AdoQueryUpdate.Parameters[1].Value:= AdoQueryCalcula_Imorte.Filebyname('nombreproducto').Value;
AdoQueryUpdate.ExecSQL

Saludos