Visual Basic - Combos (Como Hago)

Life is soft - evento anual de software empresarial
 
Vista:

Combos (Como Hago)

Publicado por jesus daredevil (2 intervenciones) el 09/08/2004 01:06:24
soy estudiante y estoy haciendo mi sistema para esta semana, y se que en visual FOX uno en un combo puede mostrar mas de una columna, por ejemplo el codigo y al lado el nombre, verdad? bueno lo mismo lo necesito hacer en visual BASIC, pero no se? si alguien me puede ayudar se lo agradeceria!!!!!!!!!! es urgente!!!!!!
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:Combos (Como Hago)

Publicado por miguel (1042 intervenciones) el 09/08/2004 20:41:01
Lo puedes hacer de esta manera:
Este es un ejemplo con conexion ADO.
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Private Sub Form_Load()
Conectar
LlenaCombo
End Sub
Sub LlenaCombo()
sql = "Select DNI, Nombre From T_Datos_Empleados Order By Nombre"
Registro
Rec.Open sql, cnbase
For i = 1 To Rec.RecordCount
Combo1.AddItem CStr(Rec!DNI) & " " & Rec!Nombre
Rec.MoveNext
Next i
Combo1.ListIndex = 1
End Sub
Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
Nota: Espero y te sirva sino puedes escribirme a mi correo para que me lo explicas con mas detalle, slaudos!!

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