VB.net + ACCESS ( liste deroulante)

[JeuneSerpent]

Bonjour,

Je me suis mis recement au VB.net. Mon application VB.net (test) consiste a gerer un parc de vehicule via une base de données sous ACCESS.

Jusqu'ici j'arrive a gere l'insertion dans la base via le VB.net grace au SQL
Mon soucis c'est de faire l'inverse cad a dire j'ai un liste deroulante dans laquelle je voudrait recupéré les info du client ( NUM et NOM ) comment puis je intergrer des données de la base dans la liste ???

Je chercher mais pas de reponces sur le net et je commence a desesperer là

Merci pour vos réponses ou idées
 @++

[damien]

Bonjour,

Tu as arrives à faire l'insertion mais pas le select ?
Ce code pourrait peut-être t'aider :
http://www.dotnet-news.com/lien.aspx?ID=27533

[JeuneSerpent]

Cette page m'intéresse beaucoup  c'est exactement ce que je rechercher je te remercie

@++

[JeuneSerpent]

Re tous le monde

Je rencontre un nouveau soucis sous VB.net  avant de faire une insertion d'une couleur dans la table couleur je voudrait verifier si elle est déjà presente en faisant une requete mais mais là arrive mon probleme comment faire l'equivant du php mysq_num_rows mais sous VB.

j'ai tenté une fonction :

Code:

Public Function Exist(ByVal Table As String, ByVal Attribut As String, ByVal Champ As String) As Integer
        Dim sSQL As String
        Dim drInput As OleDbDataReader
        Dim Exis As Integer

        Try
            Call OuvrirConnexion()
            sSQL = "SELECT COUNT(*) FROM " & Table & " WHERE " & Champ & "='" & Attribut & "' "
            drInput = Query(sSQL)
            drInput.Read()
            Exis = drInput.GetValue(0)
            Call FermerConnexion()
        Catch
            Exis = 0
        End Try
        Return Exis
    End Function

puis derriere je verfie si mon retour et soit a 0 soit a 1 pour ensuite faire L'INSERT
mais là un probleme mon appli plante en me disant qu'il y a risque de doublon ce qui est normale
J'aurais aimez savoir si vous avez une solution

En tous je vous remerci d'avance

@++

[Thierry]

Bonjour,

J'ai deux questions :

1 - Quand vous parlez de risque de doublons, vous faites référence au résultat de la requête? La couleur est susceptible d'être déjà enregistrée dans plusieurs lignes?

2 - En préambule vous indiquez vouloir récupérer le numéro de l'enregistrement (mysql_num_rows), si ma mémoire ne me trahit pas, puis vous semblez vous "contenter" d'un flag à 0 ou 1 (donc un false/true) :

puis derriere je verfie si mon retour et soit a 0 soit a 1 pour ensuite faire L'INSERT

Qu'est censée retourner votre fonction Exist ?

[JeuneSerpent]

Bonjour,

La fonction dont je me sert renvoi le resultat de la requete soit le COUNT(*) qui doit etre a 1 quand la couleur est trouvée (ma TABLE COULEUR n'est composé que d'un champ NOM_COULEUR)

Puis le mysql_num_rows en php sert a renvoyer le nombre de resultat d'une requete et non a recuperer le numéro de l'enregistrement il me semble

Enfin voilà le message d'erreur que me renvoi Visual Studio 2005 :
   
     Modifications non effectuées: risque de doublons dans champs index, clé principale ou relation interdisant les doublons. Modifiez les données des champs contenant les doublons, enlevez ou redéfinissez l'index pour permettre les doublons et recommencez.


Voilà je sais pas si j'ai été assez clair

En tous cas merci de m'aider c'est cool

@++

[JeuneSerpent]

Re,

Bon c'est bon j'ai trouver

Alors j'ai d'abord rajouter un identifiant dans ma table COULEUR qui le CODE ( je sais pas original du tout lol)

aprés j'ai modifier ma fonction :

Code:

Public Function Exist(ByVal Table As String, ByVal Attribut As String, ByVal Champ As String) As String
        Dim sSQL1 As String
        Dim drInput1 As OleDbDataReader
        Dim Exis As String
        Try
            Call OuvrirConnexion()
            sSQL1 = "SELECT CODE FROM " & Table & " WHERE " & Champ & " = '" & Attribut & "' "
            drInput1 = Query(sSQL1)
            drInput1.Read()
            Exis = drInput1.GetValue(0)
            Call FermerConnexion()
        Catch
            Exis = ""
        End Try
        Return Exis
    End Function

Ensuite j'en fais l'appel  dans une fonction de verfication :

Code:

Private Function Verif_Couleur_Ajout() As Boolean


        ' On verfie grace a la fonction Exist si la couleur est déjà présente dans la table
        Dim Ex As String
        Ex = Exist("COULEUR", TB_couleur.Text, "NOM_COULEUR")
        ' Fin fonction


        If TB_couleur.TextLength() = 0 Then
            MessageBox.Show("Veuillez entrer une couleur", "Erreur !", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Return False

        ElseIf Ex <> "" Then
            MessageBox.Show("Couleur déjà existante ", "Erreur !", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Return False
        End If

        Return True
    End Function

Et ça marche ( et je suis content lol )

je Vous remercie pour votre aide

@++