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'."

Réponse acceptée !
salut,

chemin relatif => application.startuppath ?
http://www.codyx.org/snippet_repertoire-courant-application_81.aspx#842

te reste à ajouter un dossier à ce retour....


profil.Text => type string
rs.Fields(0) => type field je suppose...
peut-être ajouter .value, ou .value.tostring, ou .tostring....

++

---

Prenez un instant pour répondre à ce sondage svp  

Merci beaucoup cela marche parfaitement.