Liaison base de donnees textbox
elwadeh
Messages postés
55
Date d'inscription
samedi 11 avril 2009
Statut
Membre
Dernière intervention
28 juin 2018
-
9 avril 2011 à 12:38
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 10 avril 2011 à 21:48
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 10 avril 2011 à 21:48
A voir également:
- Liaison base de donnees textbox
- Base de données javascript - Conseils pratiques -Javascript
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Connexion base de données - Conseils pratiques -PHP
- Gestion des employés base de données - Forum Visual Basic
24 réponses
elwadeh
Messages postés
55
Date d'inscription
samedi 11 avril 2009
Statut
Membre
Dernière intervention
28 juin 2018
1
10 avril 2011 à 19:43
10 avril 2011 à 19:43
Bonjour,
si j'ai bien compris je dois faire ma déclaration comme ça
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim dta As OleDbDataAdapter
Dim dtt As DataTable
If Label26.Text = "papa" Then
'création de la requête,exécution de la commande,
'remplissage du DataAdapter,du DataSet et de la DataTable
sql "select gestadh.* from gestadh where code '" & TextBox1.Text & "'"
cmd = New OleDbCommand(sql)
cmd.Connection() = cnx
dta.Fill(dts, "gestadh")
dtt = dts.Tables("gestadh")
'si aucunes données existent pour ce nom alors
If rownum > dtt.Rows.Count - 1 Then
MessageBox.Show("Il n'existe aucun adherent pour ce numéro " & TextBox1.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
Else
'sinon afichage des données dans la Datagrid
'et les textbox
Me.TextBox2.Text = dtt.Rows(rownum).Item("nomadh")
Me.TextBox3.Text = dtt.Rows(rownum).Item("dnaissance")
End If
End If
End Sub
si j'ai bien compris je dois faire ma déclaration comme ça
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim dta As OleDbDataAdapter
Dim dtt As DataTable
If Label26.Text = "papa" Then
'création de la requête,exécution de la commande,
'remplissage du DataAdapter,du DataSet et de la DataTable
sql "select gestadh.* from gestadh where code '" & TextBox1.Text & "'"
cmd = New OleDbCommand(sql)
cmd.Connection() = cnx
dta.Fill(dts, "gestadh")
dtt = dts.Tables("gestadh")
'si aucunes données existent pour ce nom alors
If rownum > dtt.Rows.Count - 1 Then
MessageBox.Show("Il n'existe aucun adherent pour ce numéro " & TextBox1.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
Else
'sinon afichage des données dans la Datagrid
'et les textbox
Me.TextBox2.Text = dtt.Rows(rownum).Item("nomadh")
Me.TextBox3.Text = dtt.Rows(rownum).Item("dnaissance")
End If
End If
End Sub
NHenry
Messages postés
15113
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 avril 2024
159
10 avril 2011 à 20:54
10 avril 2011 à 20:54
Bonjour,
Voilà, il faut faire pareil avec DTS et penses aussi à leur assigner une valeur.
Mon site
Voilà, il faut faire pareil avec DTS et penses aussi à leur assigner une valeur.
Mon site
elwadeh
Messages postés
55
Date d'inscription
samedi 11 avril 2009
Statut
Membre
Dernière intervention
28 juin 2018
1
10 avril 2011 à 21:38
10 avril 2011 à 21:38
Bonjour,
la déclaration des DTA, DTT et DTS que vous m'avais dit ça marche pas.
alors j'ai mis ce code dans la sub du textbox1 mais malheureusement il m'affiche toujours que le premier enregistrement de ma table.
If Label26.Text = "id" Then
'création de la requête,exécution de la commande,
'remplissage du DataAdapter,du DataSet et de la DataTable
sql "select gestadh.* from gestadh where numadh '" & TextBox1.Text & "'"
cmd = New OleDbCommand(sql)
cmd.Connection() = cnx
dta.Fill(dts, "gestadh")
dtt = dts.Tables("gestadh")
'si aucunes données existent pour ce nom alors
If rownum > dtt.Rows.Count - 1 Then
MessageBox.Show("Il n'existe aucune police pour ce numéro " & TextBox1.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
Else
'sinon afichage des données dans les textbox
Me.TextBox2.Text = dtt.Rows(rownum).Item("nomadh")
Me.TextBox3.Text = dtt.Rows(rownum).Item("dnaissance")
End If
End If
la déclaration des DTA, DTT et DTS que vous m'avais dit ça marche pas.
alors j'ai mis ce code dans la sub du textbox1 mais malheureusement il m'affiche toujours que le premier enregistrement de ma table.
If Label26.Text = "id" Then
'création de la requête,exécution de la commande,
'remplissage du DataAdapter,du DataSet et de la DataTable
sql "select gestadh.* from gestadh where numadh '" & TextBox1.Text & "'"
cmd = New OleDbCommand(sql)
cmd.Connection() = cnx
dta.Fill(dts, "gestadh")
dtt = dts.Tables("gestadh")
'si aucunes données existent pour ce nom alors
If rownum > dtt.Rows.Count - 1 Then
MessageBox.Show("Il n'existe aucune police pour ce numéro " & TextBox1.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
Else
'sinon afichage des données dans les textbox
Me.TextBox2.Text = dtt.Rows(rownum).Item("nomadh")
Me.TextBox3.Text = dtt.Rows(rownum).Item("dnaissance")
End If
End If
NHenry
Messages postés
15113
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
22 avril 2024
159
10 avril 2011 à 21:48
10 avril 2011 à 21:48
Bonjour,
Tu peux utiliser un DataReader, ce sera plus simple à gérer pour tes besoins.
Tu peux t'inspirer de ce sujet, C#, mais se traduit facilement en VB.NET :
http://www.eggheadcafe.com/community/aspnet/10/10012728/data-reader.aspx
Mon site
Tu peux utiliser un DataReader, ce sera plus simple à gérer pour tes besoins.
Tu peux t'inspirer de ce sujet, C#, mais se traduit facilement en VB.NET :
http://www.eggheadcafe.com/community/aspnet/10/10012728/data-reader.aspx
Mon site