VALIDAR CAMINHO DO DB NA REDE

ICEMAN 02/09/2007 22:09:59
#233801
boa noite usuarios vbm

eu estava falando como weber e ele me disse que fb em rede eu tenhu que conectar atravez de um nº de ip

eu valido o db pela função FileExists

ai fiz assim

'no modulo
glogal v_ip as string
global v_caminhoDataBase as string
Global FileName As String
global OndeTa as string 


[c]Public Function FileExists(ByVal lsFilename As String) As Boolean
  On Error GoTo ErroAbrir
  FileExists = True
  Open lsFilename For Input As #1
  Close #1
Exit Function
ErroAbrir:
  FileExists = False
  Exit Function
End Function



'no form

filename= v_ip & ":" & v_caminhodatabase 'inseri o ip os dois pontos e o diretorio do programa

If FileExists(FileName) = False Then
ondeta = MsgBox("Banco de dados ausente." & vbCrLf & "Será necessário indicar o banco de dados novamente para prosseguir." & vbCrLf & "Para prosseguir pressione o botão ''SIM''", vbYesNo + vbQuestion, "Erro ao localizar o banco de dados")
If ondeta = vbNo Then
Timer1.Enabled = False
MsgBox "O sistema será finalizado agora.", vbInformation + vbOKOnly, "Finalizando sistema"
End
Else
Timer1.Enabled = False
ActiveForm1.AllwaysOnTop = False
FRMBANCO.lbloque = "1"
FRMBANCO.Show 1
ActiveForm1.AllwaysOnTop = True
End If
End If
end if

[/c]

só que toda vez ele fala que nao achou o arquivo alias o db
existe alguma forma de validar o arquivo por esta função usando um ip tambem ou tem que ser de outra forma.

grato desde ja
USUARIO.EXCLUIDOS 03/09/2007 07:00:21
#233805

Meu caro, nesta parte

filename= v_ip & ":" & v_caminhodatabase 'inseri o ip os dois pontos e o diretorio do programa


n falta no final uma barra e o nome do banco de dados?
ICEMAN 03/09/2007 18:00:51
#233936
o v_caminhodatabase ja esta com o nome do db
e o v_ip já é carregado automaticamente de acordo com o nº indicado

pode ser ate sem validar mais nao pode dar erro ao abrir o db.
o db que uso é o firebird e ja vi que se eu setar o ip errado ele fica que nem tonto procurando o db e num acha.

tem alguma forma de validar isso.
Tópico encerrado , respostas não são mais permitidas
Voltar