Num form tenho vários textboxes e um msflexgrid. Quando aciono o botão gravar os dados são gravados no BD. Tem como os dados gravados serem atualizados no msflex, após o acionamento do botão gravar? O teste que fiz o msflex só atualiza quando eu finalizo o aplicativo e retorno ao mesmo.

Uso: VB 6, Dao e Access XP.

Para carregar dados da tabela no msflex uso instrução SQL

 

Grato

 

Donizete

 

Ou vc da um flexgrid.clear e recarrega

OU tenta dar um flexgrid.refresh para ver se ele atualiza...

 

T+

Ellicristian,

Tentei dar um refresh e não atualizou, não sei se estou usando o código correto. No botão gravar estou chamando o Form_load, ele até atualiza mas os registros saem duplicados. abaixo o código que estou utilizando. Poderia dar uma verificada?

 

Grato

 

Donizete

 

Private Sub cmdgravar_Click()
Tabela_Agenda.AddNew
Tabela_Agenda("nome") = txtnome.Text
Tabela_Agenda("cidade") = txtcidade.Text
Tabela_Agenda("estado") = txtestado.Text
Tabela_Agenda.Update
MsgBox "Cliente Gravado Com Sucesso"
Form_Load
End Sub

Private Sub Form_Load()
Set Agenda = OpenDatabase("C:TesteTeste.mdb", False)
Set Tabela_Agenda = Agenda.OpenRecordset("Teste", dbOpenDynaset)
Tabela_Agenda.MoveMin
Atualiza_Campos
Set Tabela_Agenda = Agenda.OpenRecordset("SELECT * FROM Teste order by nome")
Do While Not Tabela_Agenda.EOF
grid1.ColWidth(0) = 0
grid1.ColWidth(1) = 2000
grid1.ColWidth(2) = 1500
grid1.ColWidth(3) = 700
grid1.TextMatrix(0, 1) = "Nome"
grid1.TextMatrix(0, 2) = "Cidade"
grid1.TextMatrix(0, 3) = "Estado"
grid1.ColWidth(3) = 700
grid1.TextMatrix(grid1.Rows - 1, 1) = Tabela_Agenda.Fields(0).Value
grid1.TextMatrix(grid1.Rows - 1, 2) = Tabela_Agenda.Fields(1).Value
grid1.TextMatrix(grid1.Rows - 1, 3) = Tabela_Agenda.Fields(2).Value
grid1.Rows = grid1.Rows + 1
  Tabela_Agenda.MoveNext
Loop
grid1.Rows = grid1.Rows - 1

grid1.refresh
End Sub

 

 

Donizete tenta assim:

 

João Carlos, blz!

código deu certo, obrigado

 

Quanto ao ADO estou lendo algumas apostilas.

 

Donizete