¿Cómo se rellena un DBCombo? - VB-MUNDO

saroaes23 · #1 (**permalink**) 09-10-2007, 10:21:29

Hola de nuevo a tod@s

Ahora me ha surgido otro problema, y es que a la hora de rellenar con datos de una tabla (procedente de MySQL) un DBCombo, no sé muy bien por qué me falla lo que estoy intentando, os lo pongo aquí y si alguien puede por favor que me ayude, tengo que presentar la aplicación en muy poco tiempo y estoy atascada.

With registro
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
Sentencia_Sql2 = "SELECT codigoTipoLlamada,descripcion FROM tipos_llamadas"
.Open Sentencia_Sql2, ConexionADO, adOpenStatic, adLockOptimistic, adCmdText
End With

With cmbTiposLlamadas
Set .RowSource = registro
.BoundColumn = "descripcion"
.ListField = "descripcion"
.DataField = "descripcion"
End With
Muchíiiisimas gracias a todos los que me respondais de antemano!!

Alella · #2 (**permalink**) 09-10-2007, 11:19:59

Hola, que tal.

Mira el código que postea Juan Ríos http://www.foro.vb-mundo.com/viewtop...hlight=dbcombo

Si utilizas el Buscador y pones DbCombo obtendrás muchísiam información complementaria a tus dudas. Espero que te sirva.

Ya nos contarás.

malm82 · #3 (**permalink**) 09-10-2007, 15:05:48

Hola prueba ocn esta funcion

Código:

Public Sub EnlazarComboC1(Control As TDBCombo, CampoaAlmacenar As String, CampoaMostrar As String, Consulta As String)
On Error GoTo EnlazarCombo_Error
    
    Dim RS As ADODB.Recordset
    Set RS = New ADODB.Recordset
    
    Set RS = DemiData.cnCentral.Execute(Consulta)
    Set Control.RowSource = RS
    Control.ListField = CampoaMostrar
    Control.BoundColumn = CampoaAlmacenar
    Control.Columns(0).Visible = False
        
    Set RS = Nothing

EnlazarCombo_Done:
  Exit Sub

EnlazarCombo_Error:
  'Call SysException.error(MODULE_NAME, "EnlazarCombo")
  Resume EnlazarCombo_Done
End Sub

para Llamar la funcion

Código:

sSQL ="SELECT Id,Descripcion FROM Tabla"
Call EnlazarComboC1(cmbTipos, "Id", "Descripcion", sSQL)
'Donde cmbTipos combo ComponentOne, Id El campo a almacenar,Descripcion: Campo a Mostrar,sSQL cadena que almacena la consulta