ATUALIZAR DADOS NA TELA

PERCIFILHO 28/10/2011 14:54:26
#388034
Boa tarde, amigos.

Gostaria de saber como faço para atualizar meus dados na tela de cadastro. Num cadastro de clientes, por exemplo, tenho os botões de navegação (proximo,anterior,primeiro,ultimo). Porém, quando um outro usuário cadastrar um cliente novo, preciso clicar no botão atualizar para atualizar minha tela, maas não sei como fazer isso.

Esse é o código do Load do Form:

Private Sub Empresas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Tabela As String = [Ô]Clientes[Ô]
con.ConnectionString = [Ô]........[Ô] [ô] minha conexão com BD
con.Open()
sql = [Ô]Select * From [Ô] & Tabela & [Ô] Order By Codigo Asc[Ô]
Da = New SqlDataAdapter(sql, con)
Da.Fill(Ds, Tabela)
MaxRow = Ds.Tables(Tabela).Rows.Count
con.Close()
inc = 0
NavigationRecord()
DesabilitaCampos()
Botoes()
BtnPrimeiro_Click(sender, e)
End Sub

Alguém tem alguma idéia?

Até mais.
NICKOSOFT 31/10/2011 07:50:33
#388153
limpar o DA
limpar os dados na tela
e rodar esse codigo ai novamente....
PHOENIX209E 31/10/2011 08:59:06
#388159
Cria uma Sub..Assim:

Sub carrega_clientes()
      Dim Tabela As String = [Ô]Clientes[Ô]
        con.ConnectionString = [Ô]........[Ô]   [ô] minha conexão com BD
        con.Open()
        sql = [Ô]Select * From [Ô] & Tabela & [Ô] Order By Codigo Asc[Ô]
        Da = New SqlDataAdapter(sql, con)
        Da.Fill(Ds, Tabela)
        MaxRow = Ds.Tables(Tabela).Rows.Count
        con.Close()
        inc = 0
        NavigationRecord()
        DesabilitaCampos()
        Botoes()
        BtnPrimeiro_Click(sender, e)
End Sub


Depois que o usuario cadastrou,n final do bloco de codigo voce chama a sub

Call carrega_clientes()


No form Load tbm,ao invez de colocar o codigo direto no evento,faça um call no Load:

Private Sub Empresas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call carrega_clientes()
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar