ERRO DE STRING

COSTELINHA 08/09/2006 14:29:50
#170223
Boa tarde, tenho o seguinte código e gostaria de saber como passar o parametro para a variavel caminho que eh uma string

Public Sub abrir_banco(caminho As String)

On Error GoTo erro_acesso
    
    If cn.State = adStateOpen Then
        cn.Close
    End If
        
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=  caminho ;Mode=ReadWrite;Persist Security Info=False"
        cn.CursorLocation = adUseClient
        Exit Sub
        
erro_acesso:
    MsgBox "Houve um erro ao acessar a base de dados, consulte o administrador do sistema.", vbInformation + vbOKOnly, "Acesso negado"
End Sub


Valeu
USUARIO.EXCLUIDOS 08/09/2006 14:43:52
#170233 Resposta escolhida
altere a sub conforme abaixo:


  Public Sub abrir_banco(caminho As String)

On Error GoTo erro_acesso
    
    If cn.State = adStateOpen Then
        cn.Close
    End If
        
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho & ";Mode=ReadWrite;Persist Security Info=False"
        cn.CursorLocation = adUseClient
        Exit Sub
        
erro_acesso:
    MsgBox "Houve um erro ao acessar a base de dados, consulte o administrador do sistema.", vbInformation + vbOKOnly, "Acesso negado"
End Sub



Para chamar a Sub

 Call abrir_banco "C:\Teste.mdb"

onde "C:\Teste.mdb" é a localização do arquivo de banco de dados, .mdb
Tópico encerrado , respostas não são mais permitidas
Voltar