From: etorres on
Buen dia!
En este ejemplo traigo la descripcion del articulo con codigo 081902.
Lo que no se es como poner el valor de lcarti en vez del codigo fijo para
poder
traer la descripcion de cualquier articulo.

Dim lcSQL, result As String
Dim lcarti As String

lcarti = TextBox1.Text
lcSQL = "SELECT descripcion FROM inv_maestro where
articulo_id='081902'"

Dim Scalarcommand As New OdbcCommand(lcSQL, oODBCConnection)
result = CStr((Scalarcommand.ExecuteScalar))
Label4.Text = result


Gracias

Edwin Torres
VS2008+VistaSp2
Honduras


__________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 5008 (20100407) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com