Salut,

C'est la première fois que j'utilise VB 2005 et je me retrouve déjà avec une erreur que j'ignore car avec VB6 ça marche. Voici mon code :

        cn = New ADODB.Connection
        cn.Open("File name=BASES\GALV.mdb")

        s = "SELECT NOM_PROFILE"
        s = s + " FROM PROFILE"

        rs = New ADODB.Recordset
        rs.Open(s, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

        profil = rs.Fields(0)

        rs.Close()

Beh le problème c'est dans le chemin de la base, "chemin introuvable", alors que le chemin est correct. Aidez moi SVP.

Merci

pourquoi ne pas mettre le chemin complet alors ?

---

  zen69 aka Ortho Le Profett
  [site web]

Oui cela marche très bien avec le chemin complet mais ce n'est pas professionnel car l'application ne sera plus dans le même chemin et il ne faut surtout pas, à chaque fois, accéder à la source et changer le chemin.

Bon j'ai un autre problème :

cn = New ADODB.Connection
        cn.Open("File name=C:\Documents and Settings\Administrateur\Bureau\GALV\Gestion\Gestion\connect.udl")

        s = "SELECT NOM_PROFILE"
        s = s + " FROM PROFILE"

        rs = New ADODB.Recordset
        rs.Open(s, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)

        Do Until rs.EOF
            profil.Text = rs.Fields(0)
            rs.MoveNext()
        Loop

        rs.Close()

L'erreur est la suivante : "Impossible d'effectuer un cast d'un objet de type 'ADODB.InternalField' en type 'System.String'."

Merci beaucoup cela marche parfaitement.