(RESOLVIDO) Como posso incluir uma variável a uma Function em um Modul

[Danleonhart]

Seguinte, tenho uma variável que é preenchida com o caminho do Banco de Dados logo quando a aplicação é iniciada...e tenho em um Módulo a configuração para acesso a Base:

Global Con as ADODB.Connection
Private Caminho as String
Public Function ABase()
Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Caminho
End Function

Onde "Caminho" contém o endereço da base de dados...então, é possível alocar na Function essa variavel ?

Editado Dezembro 18, 2011 por Danleonhart

[kuroi]

você queria q ela recebesse como parametro??

Global Con as ADODB.Connection

Public Function ABase(Caminho As String)
    Set Con = New ADODB.Connection
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Caminho
End Function[/code]

ai você chama assim:
[code]ABase "C:\caminho\banco.mdb"

mas se a funcao não tem retorno, declare como Sub e não como Function.

[Matheus-vb6]

Isso que você quer?

public function teste(nome as string)
msgbox nome
end function

''''no form
teste("Blablabla")

Abraços :D

Editado Março 19, 2011 por Matheus-vb6

[Danleonhart]

OK pessoal !

Deu certo das duas maneiras :)

Meu Módulo ficou assim:

Global Con As ADODB.Connection
Global Rs As ADODB.Recordset
Public FSO As New Scripting.FileSystemObject
Public Fil As Scripting.TextStream

Public Sub ABase()
Set Fil = FSO.OpenTextFile(App.Path & "\Temp.txt", ForReading, True)
Set Con = New ADODB.Connection
Con.Open Fil.ReadAll
End Sub

Public Sub FcBs()
Con.Close
End Sub

Assim fica fácil alterar a Base de dados que se deseja acessar.

VALEU ! :rolleyes: