USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Carregar e descarregar todos objetos data de um form
Postada em 1/9/2003 por Ð@®l@n            
'num módulo .BAS coloque

Sub ConfigDat(f As Form)
    Dim ControlesDat As Control
    For Each ControlesDat In f.Controls
        If TypeOf ControlesDat Is Data Then
           ControlesDat.Connect = "; pwd =senha"
           ControlesDat.DatabaseName = App.Path & "\dados.Mdb"
        End If
    Next
End Sub

Sub DescarregaDat(f As Form)
    Dim ControlesDat As Control
    For Each ControlesDat In f.Controls
        If TypeOf ControlesDat Is Data Then
           Set ControlesDat = Nothing
        End If
    Next
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página