Poner un dato de una BD en un textbox
Publicado por mario (6 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:
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.)
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


0