[VB6] Aggiornare un datacombo dopo un UPDATE su DB

[zetaweb]

Ragazzi ho fatto diecimila ricerche e tentativi ma non riesco ad aggiornare un datacombo dopo aver fatto un update in un DB.
ho il form2 così:

Private Sub Command1_Click()
    
    Rs3.Open "UPDATE tab_tabella SET nome = '" & NomeNuovo & "' WHERE ID_tab = " & scelta & "", Cn, 1, 3
Set Rs3 = Nothing
Form1.DataCombo1.ReFill
Unload Form2
End Sub

Ed il form 1 così:

Rs.Open "SELECT * FROM tab_tabella ", Cn, 1, 3

Set DataCombo1.RowSource = Rs
DataCombo1.BoundColumn = "ID_tab"
DataCombo1.ListField = "nome"
DataCombo1.Refresh

Ho provato refill, refresh ma non c'è stato verso.
Come posso fare?
Grazie

[ladyBlu]

Non basta fare il Refresh del controllo.
Devi ricaricare tutti i dati, quindi ti consiglio di scrivere sul Form1 una sub pubblica che si occupa di caricare la datacombo in modo che puoi chiamare tale sub ogni volta che fai un Update sul db:

Private Sub Command1_Click()
   Rs3.Open "UPDATE tab_tabella SET nome = '" & NomeNuovo & "'" _
          & " WHERE  ID_tab = " & scelta & "", Cn, 1, 3
   Set Rs3 = Nothing
   Form1.CaricaCombo
   Unload Form2
End Sub

'form 1
Public Sub CaricaCombo()
   Rs.Open "SELECT * FROM tab_tabella ", Cn, 1, 3

   Set DataCombo1.RowSource = Rs
   DataCombo1.BoundColumn = "ID_tab"
   DataCombo1.ListField = "nome"
   DataCombo1.Refresh
End Sub

[zetaweb]

Perfetta come sempre!!
Ho fatto la public sub come mi hai detto e poi l'ho richiamata nel form load con

Call CaricaCombo

Ho fatto in modo che anche quello che visualizza all'inizio il datacombo venga aggiornato.

Form1.datacombo.text = rs("nome")

altrimenti continuava a mostrarmi il vecchio valore finchè non premevo sulla frecetta.
Grazie mille!

[ladyBlu]

Originariamente inviato da zetaweb
Perfetta come sempre!!
Ho fatto la public sub come mi hai detto e poi l'ho richiamata nel form load con

Call CaricaCombo

Ho fatto in modo che anche quello che visualizza all'inizio il datacombo venga aggiornato.

Form1.datacombo.text = rs("nome")

altrimenti continuava a mostrarmi il vecchio valore finchè non premevo sulla frecetta.
Grazie mille!

Di niente figurati

Però se la sub la richiami nella Load del form stesso non c'è bisogno che la dichiari Public... ti basta Private

Un consiglio...
Per aggiornare il valore visibile ti conviene utilizzare il BoundText, perchè potresti avere due nomi uguali in elenco; quindi invece di scrivere:

Form1.datacombo.text = rs("nome")

io scriverei:

Form1.datacombo.BoundText = rs("ID_tab")

[zetaweb]

Ok per boundtext!(Ma in pratica che fa boundtext?Associa il campo all'id che gli passo?).

Invece se dichiaro la sub come private non funge, così lo rimessa public.

[ladyBlu]

Originariamente inviato da zetaweb
Ok per boundtext!(Ma in pratica che fa boundtext?Associa il campo all'id che gli passo?).

Invece se dichiaro la sub come private non funge, così lo rimessa public.

Sì esatto, associa il campo all'id


Ah ok, avevo capito male io quello che avevi detto a proposito della Load