Rafasnn
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/06/2005 22:35 hs
Pessoal, Estou criando uma aplicação e preciso ver se o BD existe, se não existir vou criar via código. Como faço pra verificar se o banco existe via código? Rafael
rafasnn 
|
|
|
|
|
|
|
|
Postada em 01/07/2005 08:08 hs
verifica se o arquivo do banco de dados existe. Function File_Exists(ByVal PathName As String, Optional Directory As Boolean) As Boolean
If PathName <> "" Then
If IsMissing(Directory) Or Directory = False Then
File_Exists = (Dir$(PathName) <> "")
Else
File_Exists = (Dir$(PathName, vbDirectory) <> "")
End If
End If
End Function |
|
|
|
Rafasnn
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2005 09:13 hs
Martini, aonde coloco o nome do BD?
rafasnn
|
|
|
|
Rafasnn
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/07/2005 18:55 hs
alguém sabe explicar o código acima?
rafasnn
|
|
|
|
Alfterra
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/07/2005 19:39 hs
faça quie é mais simples. dim Banco as string Banco = "meubancodedados.MDB" If Dir(App.Path & "" & Banco) <> Empty Then 'se no local JÁ tiver
Kill App.Path & "" & Banco '...................KILL apaga
End If obs: observe que é procurado o banco onde reside o programa.
|
|
|
|
Rafasnn
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/07/2005 20:24 hs
Alfterra Só tive que incluir a barra no código Dir(App.Path & "" & Banco), mas era isso que precisava vlw
rafasnn
|
|
|
|
