Difficulté en vb.net

marwen4ever Messages postés 26 Date d'inscription lundi 4 juillet 2011 Statut Membre Dernière intervention 2 octobre 2013 - 15 juil. 2011 à 11:50
germany1970 Messages postés 134 Date d'inscription mardi 4 mars 2008 Statut Membre Dernière intervention 22 mars 2014 - 15 juil. 2011 à 16:15
bonjours je suis un débutant en vb.net et j'ai un problème ,comment saisir une procédure de recherche ou je suis entrain de chercher une information d'une base de donnée accès par exemple dans la colonne nom je vais chercher le nom "marke" et merci d'avance

2 réponses

germany1970 Messages postés 134 Date d'inscription mardi 4 mars 2008 Statut Membre Dernière intervention 22 mars 2014 3
15 juil. 2011 à 12:09
Bonjour,
vous devez avoir un textbox pour saisir votre recherche et un button "recherche" ensuite vous devez connecter votre BD.
voilà ce que vous devez faire :
dans l'événement click de votre button mis ce code :

conn "provider microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\votre BD.mdb;"
cnx = New OleDbConnection
cnx.ConnectionString = conn
cnx.Open()

sql "select votre table.* from votre table where NOM '" & TextBox1.Text & "'"
cmd = New OleDbCommand(sql)
dta = New OleDbDataAdapter(cmd)
cmd.Connection() = cnx
dta.Fill(dts, "votre table")
dtt = dts.Tables("votre table")
'si aucunes données existent pour ce nom alors
If rownum > dtt.Rows.Count - 1 Then
Exit Sub

Else

'sinon afichage des données dans la Datagridview et les textbox

Me.TextBox2.Text = dtt.Rows(rownum).Item("prénom")
Me.TextBox3.Text = dtt.Rows(rownum).Item("adresse")
Me.TextBox4.Text = dtt.Rows(rownum).Item("tel")

DataGridView1.DataSource = dts.Tables("votre table")


si vous recontré un problème fait moi part
0
germany1970 Messages postés 134 Date d'inscription mardi 4 mars 2008 Statut Membre Dernière intervention 22 mars 2014 3
15 juil. 2011 à 16:15
si la réponse est bonne cliquer sur réponse acceptée pour que les autres peuvent l'exploiter.
0
Rejoignez-nous