actualizar un combobox en vb6

[diegui]

Hola a todos, espero me puedan ayudar...
llevo varios meses trabajando en una base de datos en vb6, en la cual solo tengo un combobox y varios txtbox. soy principiante en esto y algunas cosas me suenan a chino...

la cuestión es que al agregar los datos me los guarda pero no consigo que me salga en el combobox el nuevo registro. solo me sale si cierro la aplicación y la vuelvo abrir.

creo que no es complicado pero he probado muchas cosas.
muchas gracias de antemano y felices fiestas

[franko1809]

Al insertar el nuevo dato vuelve a cargar el combo, si lo cargas desde en form_load puedes crear una funcion y llamarla cada vez que inserter un dato para no estar repitiendo el mismo codigo varias veces.

[diegui]

Iniciado por franko1809

Al insertar el nuevo dato vuelve a cargar el combo, si lo cargas desde en form_load puedes crear una funcion y llamarla cada vez que inserter un dato para no estar repitiendo el mismo codigo varias veces.

me parece buena idea pero como podría hacer la función y poder llamarla? ando algo verde en todo esto.
gracias

[hugo180486]

No es una funcion, pero ahi te van algunos procedimientos de ejemplo....

Prueba esto, haber si te sirve, si no al menos te das una idea de como hacerlo, toma en cuenta que este ejempo usa el ADO para llenar el combo mediante un simple Query... Es un ejemplo comentas si te sirve.

El otro ejemplo te llena el comobo con informacion fija, las veces quelo necesites.

Código vb:

Private Sub Llamar()
 
    Call LLena_Combo_con_Consulta("SELECT Nombre FROM tblNombres", Me.combo)
    
    '// Las veces que lo necesites lo puedes llamar.
    Call Llenar_Combo_Fijo
 
End Sub
 
 
Private Sub LLena_Combo_con_Consulta(ByVal sQry As String, ByVal objCombo As ComboBox)
    
    
    Dim rs      As ADODB.RecordSet
    Dim sCnx    As String
 
On Local Error GoTo Llenado:
    
    '// Conexion para SQL Server 2000
    sCnx = "Provider=SQLOLEDB;Data Source=" & " Servidor " & ";Initial Catalog=" & " BaseDatos " & ";User ID=" & _
    "Usuario" & ";Password=" & "Pasword"
    
    Set rs = New ADODB.RecordSet
    
    rsCombo.Open sQry, cnBD, adOpenForwardOnly, adLockReadOnly
    
    objCombo.Clear
    
    If Not (rs.EOF = False And rs.BOF = False) Then
        
        rs.MoveFirst
                
        Do While rs.EOF = False
            objCombo.AddItem IIf(IsNull(rs.Fields(0).Value), "", Trim$(rs.Fields(0).Value))
            rs.MoveNext
        Loop
                
        objCombo.Text = objCombo.List(0)
        
    End If
    
    If rs.State = adStateOpen Then rs.Close: Set rs = Nothing
    
    Exit Sub
    
Llenado:
 
MsgBox "Ocurrio un error"
 
 
If rs.State = adStateOpen Then rs.Close: Set rs = Nothing
 
End Sub
 
Private Sub Llenar_Combo_Fijo(ByVal objCombo As ComboBox)
        
    '// Llenar con informacion fija
    With objCombo
        .Clear
        .AddItem "Hola"
        .AddItem "Como estas?"
        .AddItem "Linares, Mexico"
        .AddItem "Linares, Nuevo Leon, Mexico"
        .Text = .List(0) '// Poner el primer valor por default
    End With
    
End Sub
 

[diegui]

Muchas gracias Hugo, esto lo estoy consultando desde el trabajo. en cuanto que tenga un segundo lo compruebo y te comento.
muchas gracias