consulta de codigos

[chovis]

que tal amigos:

solo una pequeña pregunta, estoy haciendo un checador de precios, y ya me funciona correctamente, solo que en la consulta donde busco un codigo el cual empieza con un "0" cero, no me la localiza.

ya intenet usando variables de consulta de tipo de texto, pero ni asi..

si me pudieran ayudar con este pequeño problema, se los agradeceria mucho.

[lic_dahool]

en que tipo de objeto realizas la busqueda del código. si es en base de datos el formato del campo debe ser texto, y debes de tener cuidado que en ninguna parte (tanto al guardar como al realizar la busqueda) este dato se convierta en formato numerico, por lo que perderías el cero de la izquierda.
en todo caso fijate si podes detallar un poco mas el problema a ver si podemos encontrar una solución.

saludos.

[chovis]

mi codigo es el siguiente y trabajo con VB6

Public Cadena As String
Public iSql As String
Public rst As ADODB.Recordset
Public Cnn As ADODB.Connection

Private Sub Form_Load()
Set Cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
Cadena = "DSN=backoff;uid=dba;pwd=sql;database=backoff"
Cnn.ConnectionString = Cadena
Cnn.Open
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
Text2.Text = "ESCANEE EL ARTICULO"
Else
iSql = "Select plunum, pludesc, retailprice From plu where plunum = " & Text1.Text & ""
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open iSql, Cnn
If rst.EOF Or rst.BOF Then
Text1.Text = ""
Text2.Text = "EL ARTICULO NO EXISTE"
Text3.Text = ""
Else
Text1.Text = ""
Text2.Text = rst!pludesc
Text3.Text = Format(rst!REtailprice, "$ ######0.00")
End If
rst.Close
End If
End If
End Sub