Gostaria de saber alguem pode me ajudar com o seguinte problema :

quero desenvolver uma aplicação em VB6 e gravar os dados no Access XP

 

agradeço desde já a colaboração de todos

 

Anselmo

Opa ..

 

Boa Noite.

 

Você já tem o banco de dados ?

 

Se tiver, pode fazer uma rotina ou em um modulo ou no form load do form "Principal",

 

Tenta essa rotina aqui.

 

Public Sub conectabd()

    With Cnn
   
        'conexao com o banco de dados do access
        Cnn.CommandTimeout = 10
        Cnn.ConnectionTimeout = 5
        Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
        Cnn.ConnectionString = "Data Source = " & App.Path & "omedoBD;" & _
                               "Jet OLEDB:Database Password=;" & _
                               "User ID =Admin;" & _
                               "Password = ;"

        Cnn.Open
   
    End With

End Sub

 

Flwww ..

 

Att

Michel Morgado