1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Dúvida]VB6 para VB.NET 2008 - Ligação ao Access

Discussão em 'Programação' iniciada por filipemm, 27 de Junho de 2008. (Respostas: 2; Visualizações: 772)

  1. filipemm

    filipemm Power Member

    Boas..
    Eu usava o VB6 para criar uns programitas com base de dados Access e fazia a ligação através deste código, num módulo à parte..

    Código:
    Public con As ADODB.Connection
    
    Public Sub openCon()
        Set con = New ADODB.Connection
        con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Jet OLEDB:Database Password=q1w2e3r4t5y6; Data Source=" & App.Path & "\InforGest.mdb"
    End Sub
    
    Public Function closeCon(con As ADODB.Connection)
        On Error GoTo errCloseCon
        con.Close
    endCloseCon:
        Exit Function
    errCloseCon:
        MsgBox "Erro: " & Err.Number & "-" & Err.Description
        Resume endCloseCon
    End Function
    
    Public Function openRec(rec As Recordset, txt As String) As ADODB.Recordset
        Dim str As String
        On Error GoTo errOpenRec
        Set rec = New ADODB.Recordset
        str = txt
        rec.CursorLocation = adUseClient
        rec.Open str, con, adOpenDynamic
    endOpenRec:
        Exit Function
    errOpenRec:
        MsgBox "Erro: " & Err.Number & "-" & Err.Description
        Resume endOpenRec
    End Function
    
    Public Function closeRec(rec As Recordset)
        On Error GoTo errCloseRec
        rec.Close
        rec.ActiveConnection = Nothing
    endCloseRec:
        Exit Function
    errCloseRec:
        MsgBox "Erro: " & Err.Number & "-" & Err.Description
        Resume endCloseRec
    End Function
    
    Depois disto, para executar as instruções SQL bastava-me chamar a função openCon e openRec ou con.Execute para alteração de dados...

    A minha dúvida é como fazer isto no VB 2008...
    Any help??
     
    Última edição: 27 de Junho de 2008
  2. filipemm

    filipemm Power Member

    Já resolvi..
    Obrigado ;)
     

Partilhar esta Página