problema al cargar un comboBox
Publicado por Rosy (31 intervenciones) el 18/04/2013 21:23:04
Hola, tengo el siguiente problema al cargar un comboBox: Estoy programando en VB 6.0 con una base de datos Access 2003. Necesito cargar un comboBox desde una tabla que tiene dos campos; el codigo Text/10 y el Nombre Text/50. Cuando intento agregar el codigo me sale el siguiente error :
Error 13 No coinciden lo tipos de datos. A continuacion coloco la rutina:
El error está en el itemdata porque al parecer solo acepta valores numericos.
¿Como hago para poder incluir el campo codigo al comboBox?
Gracias por cualquier ayuda
Error 13 No coinciden lo tipos de datos. A continuacion coloco la rutina:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Cargar_CboCamas()
Dim rs As Recordset
Dim i As Integer
Dim xsql As String
Dim xdescrip As String
xsql = "SELECT * from TabCamas"
Set rs = BD_Egresos.OpenRecordset(xsql)
If Not rs.BOF And Not rs.EOF Then
i = 0 rs.MoveFirst While Not rs.EOFcboCamas.AddItem Trim(rs!nomcama)
cboCamas.ItemData(i) = rs!codcama
rs.MoveNexti = i + 1
Wend
End If
End Sub
El error está en el itemdata porque al parecer solo acepta valores numericos.
¿Como hago para poder incluir el campo codigo al comboBox?
Gracias por cualquier ayuda
Valora esta pregunta
0