|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Reparar Banco de Dados - DAO
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
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
|
|
|
|
|
