Visual Basic - cargar combos

Life is soft - evento anual de software empresarial
   
Vista:

cargar combos

Publicado por sebastian (24 intervenciones) el 03/02/2010 15:28:36
mi problemas es el sgte.

necesito cargar un combo de una tabla en acces y generar a la vez un indice
no visible con itemdata ,solo que se vean los datos alfabetico,para asi despues
guardar los datos (el indice no los datos alfabeticos) en la clave primaria de la tabla ,


sql = "select nom_proc from proceso "

rs.Open sql, cnn, 1, 2, adCmdText

If Not rs.EOF Then
Do While Not rs.EOF
cbo_pro.AddItem rs(0)
rs.MoveNext
Loop
End If
con esta sintaxis me arroja los nombres de los procedimiento
pero nececito generar de atras de los registros un indice ,
para despues grabar solo el indice en la tabla (cod_pro)

gracias!!!
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

RE:cargar combos

Publicado por ChidUng (44 intervenciones) el 04/02/2010 01:18:22
Hola...

El combo como tal no te permitirá almacenar de forma oculta un dato. De tal forma sea que concatenes el Indice a la descripción o que uses otro control como el MsflexGrid.

Cargas indice y Descripición en respectivas columnas. ASi podrás ocultar la Columna de indice para posteriormente volver a utilizarlo como dices.

Si concatenas puedes usar:

CboX.Aditem cstr(indice) & " : " & rs!descripcion

Asi desúes solo recuperas

indice=mid(cboX,1,longitud_de_indice)

y Valor de indice es el que guardarías en tu BD.

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

RE:cargar combos

Publicado por ariel (16 intervenciones) el 23/04/2010 04:35:28
'lleno el combo con los nombres de casos y sus id en el itemdata
Set rs = New ADODB.Recordset
sql1 = "Select nombre ,id From agenda order by nombre"
rs.Open sql1, cn1
Dim i As Integer
Do Until rs.EOF
i = i + 1
cmbtipo_caso.AddItem rs!Nombre
cmbtipo_caso.ItemData(i) = rs!id
rs.MoveNext
Loop
rs.Close

ahora lo que nose es como puedo hacer despues para que yo le de el resultado del item data, osea el id y me traiga lo que cargo en el nombre.
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