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:  Reparar Banco de Dados - DAO
Postada em 8/10/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'Reparar banco de dados
Dim PERG
PERG = MsgBox("Deseja reparar o banco de dados agora?", _
       vbQuestion + vbYesNo, "Reparar DB?")
If PERG = vbYes Then
  DBEngine.RepairDatabase "C:\agenda.mdb"
  MsgBox "Operação realizada com sucesso!", vbInformation, _
         "DB Reparado!"
Else
  MsgBox "Operação cancelada", vbInformation, _
         "DB não Reparado!"
End If
 


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