Jump to content
Fórum Script Brasil
  • 0

Como criar variaveis globais


Question

Pessoal, estou precisando muito de uma ajuda:

Eu estou criando um projeto de cadastro de cliente e preciso inserir o seguinte código:

Dim strSQL As String

Dim conexao As New ADODB.Connection

Dim rst As New ADODB.Recordset

Porém elas precisam estar como variáveis globais e eu não lembro com faz, porque já faz um bom tempo q não mexo com VB.

Dêem uma olhada nesse print para ficar mais claro:

http://img703.imageshack.us/f/globalo.jpg/

HEEEEELP!

Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Olá amigo !

Eu estou começando agora, e da mesma maneira que me ajudaram, espero ajudar você :D

Segue Script:

Public conexao As ADODB.Connection
Public rst As Recordset

Public Function abrirBD()
Set conexao = New ADODB.Connection
conexao.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\MeuBanco.mdb;"
End Function

Public Function fecharBD()
conexao.Close
End Function

Basta copiar e colar em um Module...se não, configure da sua maneira...

e coloque o nome do seu Banco de Dados la no final da 5ª linha do script (onde tem "MeuBanco.mdb"), e deixar o arquivo "Access" na mesma pasta onde está salvo o projeto.

Lembrando que se trata de conexão ADO (ActiveX Data Objects), e para funfá legal tem de ativar o driver la em "References"...

bem, acho que isso você já sabe né :P

Valeu ! Boa sorte !

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149296
    • Total Posts
      645693
×
×
  • Create New...