free4all
13 de Octubre del 2005

tengo que hacer un programa en visual para mi colegio y nesesito que cuando yo le pongo a un text cierto dato (Nombre del articulo(este es el nombre del campo de la base de datos)) en el otro text me salga automaticamente otro campo de la misma base de datos(precio unitario) el codigo que uso es el siguiente

if text1.text=data1.recordstet("Articulo") then
text2.text=data1.recordset("preciounit")
end if

creo que el codigo esta bien pero no anda, si alguien puede ayudarme por favor que lo haga, no se si explique bien cual es mi problema... muchas gracias

mvallejos
13 de Octubre del 2005

Antes que nada, tenés que hacer un recorrido de tu recordset, no evaluar un solo dato o, mejor dicho, el dato actual. Otra cosa, deberías comparar conviertiendo a mayusculas.

data1.recordstet.MoveFirst
do while Not data1.recordstet.EOF
if Ucase$(text1.text)=Ucase$(data1.recordstet("Articulo")) then
text2.text=data1.recordset("preciounit")
Exit do
end if
data1.recordstet.MoveNext
Loop