Visual Basic - Autocompletar textboxs mediante ADODB y Access

Life is soft - evento anual de software empresarial
   
Vista:

Autocompletar textboxs mediante ADODB y Access

Publicado por Pablo (7 intervenciones) el 14/07/2015 05:30:35
Buenas gente, pues soy nuevo aquí y ya me han sacado una duda una vez y quisiera plantear otra duda:

¿Cómo hago para que al yo escribir un número en un textbox (que sería el número de ID de la herramienta), otro textbox más abajo se autocomplete con los datos que están en la misma fila que el ID (por ejemplo: martillo)? (ver imagen)

FRxff5R

Link de la imagen
http://i.imgur.com/FRxff5R.png

Pues eso, que al colocar el número de Id de la herramienta, el textbox "herramienta" se llene solo con el dato correcto..

saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Autocompletar textboxs mediante ADODB y Access

Publicado por Andres Leonardo (702 intervenciones) el 14/07/2015 17:13:25
En tu mantenimiento tienes un buscar?? como utlizaas ese buscar para que te presente datos?

Bueno algo parecido seria ... puesto qeu siempre seria un dato a devolver considerando que idherramienta es unico

la clave de esto es el query a la base y que te traiga el nombre.

"select herramienta from tabla_herramientas where idherramienta =" & text_IdHerramienta.text

esto seria

select herramienta from tabla_herramientas where idherramienta = 1
(Martillo)

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Autocompletar textboxs mediante ADODB y Access

Publicado por Pablo (7 intervenciones) el 14/07/2015 20:10:35
gracias me ha funcionado poniendo esto

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim conexion As New ADODB.Connection
Dim getnames As New ADODB.Recordset
 
Private Sub Text2_Change()
 
Private Sub Form_Load()
If conexion.State <> 1 Then
conexion.CursorLocation = adUseClient
conexion.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\dbInventario.mdb"
End If
End Sub
 
Set getnames = New ADODB.Recordset
If Not Text2.Text = "" Then
getnames.Open "SELECT Herramienta FROM Herramientas WHERE idHerramienta=" & Text2.Text & "", conexion, adOpenStatic, adLockOptimistic
    If getnames.RecordCount > 0 Then
    Text3.Text = getnames!Herramienta
    Else
    Text3.Text = "No Data"
    End If
End If
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Andres Leonardo

Autocompletar textboxs mediante ADODB y Access

Publicado por Andres Leonardo (702 intervenciones) el 14/07/2015 22:46:19
Que bueno que te haya servido....

Lo importante es que con una pista tu lo pudiste hacer por ti mismo

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Autocompletar textboxs mediante ADODB y Access

Publicado por Pablo (7 intervenciones) el 15/07/2015 00:02:42
Exactamente, muchisimas gracias Andres!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar