Datacombo con dos campos
Hola a todos-as.
Quisiera saber como mostrar dos o mas campos en un datacombo,ya sea la fuente de informacion un recordset o variables.
Gracias de antemano.
Quisiera saber como mostrar dos o mas campos en un datacombo,ya sea la fuente de informacion un recordset o variables.
Gracias de antemano.
Private Sub Form_Load()
Dim SQL$
Call Cadenaconexion
SQL = "Select Id_obrero,Nombre+' '+Apellidos as Name From Obrero"
Call valores(SQL)
End Sub
Sub valores(SQL$)
Call inicializarecordset(SQL)
\'Codigo para rellenear el DataCombo
With Datacombo1
Set .RowSource = rs \'Control Ado
\'.BoundColumn = Idcampo \'El campo relacionado
.ListField = rs.Fields(1).Name \'Campo que aparece en el datacombo
.DataField = rs.Fields(0).Name
\'Establecer el origen de datos para el que _
el datacombo muestre el primer registro
Set .DataSource = rs
End With
Set rs = Nothing
End Sub
Dim SQL$
Call Cadenaconexion
SQL = "Select Id_obrero,Nombre+' '+Apellidos as Name From Obrero"
Call valores(SQL)
End Sub
Sub valores(SQL$)
Call inicializarecordset(SQL)
\'Codigo para rellenear el DataCombo
With Datacombo1
Set .RowSource = rs \'Control Ado
\'.BoundColumn = Idcampo \'El campo relacionado
.ListField = rs.Fields(1).Name \'Campo que aparece en el datacombo
.DataField = rs.Fields(0).Name
\'Establecer el origen de datos para el que _
el datacombo muestre el primer registro
Set .DataSource = rs
End With
Set rs = Nothing
End Sub
