Discussion :

[Pitoux]

Bonjour

J'essaye de faire une application qui fonctionne avec ACCES

1 ere Etape : L'utilisateur tape son Nom et Prenom. VB verifie si cet utilisateur est dans la base ACCESS
Etape OK

2 iéme Etape.
Le Form se remplis avec une liste d'une 50éne de logiciel avec un une list Box sur lequel il indique son niveau de connaissance de 1 à 5
Je bloque a cette etape.

Voici mon code

Sub ouvrircnx()
Me._mconnexion = New OleDbConnection(My.Settings.cnxannuaire)
Me._mconnexion.Open()
EndSub


Dim Vsql AsString
Dim nom, prenom AsString

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

nom = TB1.Text
prenom = TB2.Text

Vsql = " Select count(*) from tblClients where Prenom = '" & prenom & "' and NomClient = '" & nom & "'"
ouvrircnx()


Dim cmd AsNew OleDbCommand
cmd.Connection = _mconnexion
cmd.CommandText = Vsql
cmd.CommandType = CommandType.Text
cmd.Parameters.Add("prenom", OleDbType.Char)
cmd.Parameters("prenom").Value = prenom
cmd.Parameters.Add("nom", OleDbType.Char)
cmd.Parameters("nom").Value = nom

If cmd.ExecuteScalar = 1 Then
MessageBox.Show("Utilisateur identifié")

' Une fois que je sais que l'utilisateur existe (Indentification) je souhaite remplir ma liste de Logiciel et compétence

Me.TAClients.FillBy(Me.VoyagesDataSet.tblClients, prenom, nom) (Il me declare une erreur sur cette ligne)

ElseMessageBox.Show("Utilisateur non reconnu")

EndIf

EndSub

Pour info mon Fillby donne:
SELECT NumClient, TitreAbrege, NomClient, Prenom, Adresse, Telephone, CodePostal FROM tblClients Where Prenom = '" & prenom & "' and NomClient = '" & nom & "'


En gros je voudrais que si l'utilisateur est reconnu je puisse affiche la liste des logiciel (Label) avec a coté un listbox (noté de 1 a 5) pour qu'il indique son niveau de connaissance

Voila.
je debute
Par avance merci

[bidou]

il faudrait le code du FillBy

[Pitoux]

Slt Bidou,

Mon FillBy est déja ecris sur mon Post.
Le revoici

Pour info mon Fillby donne:
SELECT NumClient, TitreAbrege, NomClient, Prenom, Adresse, Telephone, CodePostal FROM tblClients Where Prenom = '" & prenom & "' and NomClient = '" & nom & "'