Ir para conteúdo
Fórum Script Brasil
  • 0

Como criar variaveis globais


Blatzkovitz

Pergunta

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 para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...