| Usuario |
Tres Campos en el Mismo DataCombo |
Esdras
1 Mensaje(s)
|
| Enviado - 22/2/2003 |
| |
Hola,
como puedo meter tres campos de la misma tabla en el mismo DataCombo?
mi codigo es el siguiente:
Private Function Listar_Nombres()
'--------------------------------------------------------- _
como habro la base de datos desde el inicio en el formulario _
(MdiMenuFrm) no hay por que volverla ah habrir y esta viene _
abierta en la variable conexion_base
'----------------------------------------------------------
Dim Nombre_Ordenado As String
Dim rS As ADODB.Recordset
Dim Sentencia_Sql2 As String
'<----- Termino de declarar las variables
Set rS = New ADODB.Recordset
With rS
'para que se rellene el datacombo, se usan cursores
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
Sentencia_Sql2 = "select * from perdata order by apellpat"
.Open Sentencia_Sql2, Conexion_Base, , , adCmdText
End With
'------------------------------------------------------------
'codigo para rellenar el datalist
With DataListPerdat
Set .DataSource = rS
Set .RowSource = rS
'seleccionamos el campo para que se rellene el datalist
.ListField = "apellpat"
.DataField = "apellpat"
End With
'Codigo para rellenear el DataCombo
With DataComboPerdat
Set .RowSource = rS
.BoundColumn = "idnum"
.ListField = "nomb"
.DataField = "idnum"
'establecer el origen de datos para el que _
el datacombo muestre el primer registro
Set .DataSource = rS
End With
Set rS = Nothing
End Function
|
| |
|
Desconocido
|
| Enviado - 12/5/2003 |
| |
Deberias almacenar los 3 datos en tres variables y luego concatenarlas.
te envio un ejemplo con la concatenacion de ID_PEDIDO y ID_CLIENTE de una aplicacion q realice.
Dim cli As String
dim pedi aS String
sql1 = "select IdPedido, Idcliente from Pedidos"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = sql1
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
pedi = Adodc1.Recordset("IdPedido")
cli = Adodc1.Recordset("IdCliente")
DataCombo1.AddItem pedi & " " & cli
Adodc1.Recordset.MoveNext
Wend
mas info [email protected]
|
| |
|
|
|
