Connexion .udlRésolu

Question

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

PCPT · Accepted Answer

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....

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

zen69 · Answer

pourquoi ne pas mettre le chemin complet alors ?

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

spamito · Answer

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.

spamito · Answer

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

spamito · Answer

Merci beaucoup cela marche parfaitement.

Connexion .udl

5 réponses

Votre réponse

Discussions similaires