Visual Basic - Poner un dato de una BD en un textbox

Life is soft - evento anual de software empresarial
   
Vista:

Poner un dato de una BD en un textbox

Publicado por mario (5 intervenciones) el 29/09/2017 18:35:43
Hola de antemano gracias por todo, estoy usando vb 6.0 lo que deseo es poner el resultado de una consulta en un textbox o un label el código que tengo es el siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub cboLocalizaciones_Click()
    query2 = "select * from dbo.SubLocalizaciones where nombre = '" + subLoc + "'"
    obtenerCodigo codigo, query2, subLoc
End Sub
 
Public Function obtenerCodigo(ByVal componente As Label, ByVal query As String, ByVal campo As String) As ADODB.Recordset
 
    rs.Open query, cn, adOpenDynamic, adLockOptimistic
         If Not rs.EOF Then
             'aquí me manda el error
             componente.Caption = rs.Fields!campo
         End If
         rs.Close
     End Function
End Function

El error que manda es (Error '3265' en tiempo de ejecución: No se encontró el elemento en la colección que corresponde al nombre o el ordinal solicitado.)
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

Poner un dato de una BD en un textbox

Publicado por jggtz (315 intervenciones) el 02/10/2017 01:53:01
Trata con :

componente.Caption = rs.Fields(n)

donde n = posicion del campo, empezando desde cero
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
Revisar política de publicidad