recuperacion de valores numericos de una base de datos
Como puedo hacer para comparar un dato ingresado a traves de una caja de texto de un formulario con los datos de una tabla de una base de datos.
El tipo de dato del campo de la tabla es numerico, y eso es lo que me genera el problema, ya que si al campo lo cambio a tipo de texto, puedo recuperar bien los datos. Lo que quisiera hacer es traer los datos correspondientes a un identificador (numerico)
ingresado a traves de una caja de texto. Probe con
Val(cajaDeTexto.Text) en la sentencia SQL pero igual tengo problemas. La base de datos que estoy usando es Acces.
¿como seria esa parte de la sintaxis? ..gracias....
El tipo de dato del campo de la tabla es numerico, y eso es lo que me genera el problema, ya que si al campo lo cambio a tipo de texto, puedo recuperar bien los datos. Lo que quisiera hacer es traer los datos correspondientes a un identificador (numerico)
ingresado a traves de una caja de texto. Probe con
Val(cajaDeTexto.Text) en la sentencia SQL pero igual tengo problemas. La base de datos que estoy usando es Acces.
¿como seria esa parte de la sintaxis? ..gracias....
Por que no escribes la sentencia SQL aqu� posiblemente esté mal armada
Saludos
Saludos
Mira, la sintaxis que estoy usando es la siguiente:
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set rst = cnn.Execute("SELECT descripcion FROM NC where id_nc = '" + Text2.Text + "')
If (rst.BOF And rst.EOF) Then
MsgBox "El identificador ingresado no corresponde a un registro existente"
Exit Sub
Else
Text1.Text = rst.Fields("descripcion")
End If
End If
SendKeys ("{tab}")
KeyAscii = 0
End If
End Sub
-------------------------------------------------------
Gracias
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set rst = cnn.Execute("SELECT descripcion FROM NC where id_nc = '" + Text2.Text + "')
If (rst.BOF And rst.EOF) Then
MsgBox "El identificador ingresado no corresponde a un registro existente"
Exit Sub
Else
Text1.Text = rst.Fields("descripcion")
End If
End If
SendKeys ("{tab}")
KeyAscii = 0
End If
End Sub
-------------------------------------------------------
Gracias
