Jump to content
Fórum Script Brasil
  • 0

Conexao Banco Acess


Guest --joaquim --
 Share

Question

Guest --joaquim --

Pessoal, me ajudem.

Preciso conectar em um banco de dados Acess através do Visual Basic.

Porém, não conheço a linguagem VB.

Trabalho com Recital, que é padrão clipper.

Preciso fazer uma conexão no Banco de Dados acess e listar as informações em uma Listview.

Parece uma coisa boba, mas não encontrei nenhum tópico relacionado a essa informação.

Se alguém puder me ajudar, ficaria agradecido.

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Faça referencia ao:

Microsoft ActiveX Data Objects 2.0 Library

Em um Módulo Faça:

'---------------------------------------------------------------------------------

Option Explicit

Public DB As ADODB.Connection

Sub Conexao(Fonte As String, Senha as String)
On Error GoTo Err_Conexao

    If (DB Is Nothing) Then
        Set DB = New ADODB.Connection
    Else
        If DB.State = 1 Then
            DB.Close
        End If
    End If

    With DB
    .CursorLocation = adUseClient
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = Fonte
        .Properties("Jet OLEDB:Database Password") = Senha
        .Open
    End With


    Exit Sub
Err_Conexao:
    MsgBox "Erro ao se conectar com o banco de dados", vbCritical, "Erro!"
End Sub
'--------------------------------------------------------------------------------- Em um form:
Option Explicit

Dim RS As New Recordset

Private Sub Form_Load()
    call Conexao("C:\Banco.mdb","")
End Sub

Private Sub CmdPesquisar_Click()
    If RS.State = 1 Then RS.Close
    RS.Open "SELECT * FROM TABELA WHERE CAMPO1 = CONDIÇÃO", DB, 1, 3
    
    'Script para preencher um listview com os dados encontrados
    'Digamos que o seu listview tem o nome Lst1
    
    Lst1.clear
    RS.MoveFirst
    Do while Rs.EOF = false
        Lst1.additem RS!Campo1
    loop

End Sub

E pronto!!!

Simples Assim!

Qualquer duvida é só postar beleza!

Edited by Anderson Fernandes
Link to comment
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.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...