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

ligar base dados em vb6

Discussão em 'Programação' iniciada por asa_delta, 16 de Outubro de 2006. (Respostas: 0; Visualizações: 756)

  1. asa_delta

    asa_delta Power Member

    Boas

    Gostaria de saber de como ligar o VB6 a uma base dados em access?
    Tenho o seguinte código, mas dá erro e não sei porque?

    Private Sub cmdLigar_Click()
    'instancia
    Set cnn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Dim strCnn As String
    'RECORD_SET--> Objecto k permite manusear os dados de uma tabela
    'strCnn = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\rcortinhas\Ambiente de trabalho\Ilumina_BD\bd1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False;"
    'cnn.ConnectionString = strCnn
    ' cnn.Open
    'faz ligação BD
    cnn.Open "Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\rcortinhas\Ambiente de trabalho\Ilumina_BD\bd1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False;"
    'retorna registros da tabela
    rs.Open "Select * from tabela1", cnn, adOpenStatic, adLockOptimistic

    'vai para o 1ºregisto
    rs.MoveFirst
    End Sub



    obrigado
     

Partilhar esta Página