Marre de access 2000 qui ne marche pas avec vb6!

ça fait un long moment que je n'arrive pas à faire fonctionner une BdD access2000 en utilisant VB6; afin qu'une personne au grand coeur m'explique comment faire pour que ça marche j'ai réduit au minimum mon code source qui est le suivant :

Dim cncon As New ADODB.Connection
Private Sub Form_Load()
cncon.ConnectionString = "provider= Microsoft.jet.oledb.3.6; data source=C:\access\clients.mdb"
cncon.Open
End Sub

Alors que celui-ci fonctionne bien (clients2.mdb est en access97):

Dim cncon As New ADODB.Connection
Private Sub Form_Load()
cncon.ConnectionString = "provider= Microsoft.jet.oledb.3.51; data source=C:\access\clients2.mdb"
cncon.Open
End Sub

Bien entendu j'ai mis Microsoft DAO 3.6 Object library.

Quelqu'un pourrait-il m'aider svp
Merci d'avance

Il faut utiliser Jet 4.0 :

cncon.ConnectionString = "provider= Microsoft.jet.oledb.4.0; data source=C:\access\clients.mdb"

D'autre part, quelle est l'utilité de "Microsoft DAO 3.6 Object Library" ? Dans ton cas, il faut sélectionner "Microsoft ActiveX Data Objects 2.5 Library" dans Projet/Références...


Slts

wape


-------------------------------
Réponse au message :
-------------------------------

> ça fait un long moment que je n'arrive pas à faire fonctionner une BdD access2000 en utilisant VB6; afin qu'une personne au grand coeur m'explique comment faire pour que ça marche j'ai réduit au minimum mon code source qui est le suivant :
>
> Dim cncon As New ADODB.Connection
> Private Sub Form_Load()
> cncon.ConnectionString = "provider= Microsoft.jet.oledb.3.6; data source=C:\access\clients.mdb"
> cncon.Open
> End Sub
>
> Alors que celui-ci fonctionne bien (clients2.mdb est en access97):
>
> Dim cncon As New ADODB.Connection
> Private Sub Form_Load()
> cncon.ConnectionString = "provider= Microsoft.jet.oledb.3.51; data source=C:\access\clients2.mdb"
> cncon.Open
> End Sub
>
> Bien entendu j'ai mis Microsoft DAO 3.6 Object library.
>
> Quelqu'un pourrait-il m'aider svp
> Merci d'avance
>

appekl ta base comme ca

dim db[ou ce que tu veux] as DAO.Database

set db = opendatabase("Chemin d'access")

voila c'est tout et sa marche bien

a+

marcelin

-------------------------------
Réponse au message :
-------------------------------

> ça fait un long moment que je n'arrive pas à faire fonctionner une BdD access2000 en utilisant VB6; afin qu'une personne au grand coeur m'explique comment faire pour que ça marche j'ai réduit au minimum mon code source qui est le suivant :
>
> Dim cncon As New ADODB.Connection
> Private Sub Form_Load()
> cncon.ConnectionString = "provider= Microsoft.jet.oledb.3.6; data source=C:\access\clients.mdb"
> cncon.Open
> End Sub
>
> Alors que celui-ci fonctionne bien (clients2.mdb est en access97):
>
> Dim cncon As New ADODB.Connection
> Private Sub Form_Load()
> cncon.ConnectionString = "provider= Microsoft.jet.oledb.3.51; data source=C:\access\clients2.mdb"
> cncon.Open
> End Sub
>
> Bien entendu j'ai mis Microsoft DAO 3.6 Object library.
>
> Quelqu'un pourrait-il m'aider svp
> Merci d'avance
>