Datatable
mohamed222222
Messages postés
161
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
22 avril 2009
-
4 sept. 2007 à 11:28
lakroune Messages postés 1 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 3 juillet 2008 - 3 juil. 2008 à 17:21
lakroune Messages postés 1 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 3 juillet 2008 - 3 juil. 2008 à 17:21
7 réponses
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
4 sept. 2007 à 11:39
4 sept. 2007 à 11:39
Salut,
Avec toutes les sources sur les bases de données qu'il y à sur le site, en faisant une petite recherche, cela te permettrais d'avance dans ton projet....
Car si tu arrives à récupérer le résultat de ta requête, tu ne devrais pas avoir de problème pour faire :
Do While....
TextBox1.Text = Champ1
TextBox2.Text = Champ2
....
Wend....
A+
Exploreur
Linux a un noyau, Windows un pépin
Avec toutes les sources sur les bases de données qu'il y à sur le site, en faisant une petite recherche, cela te permettrais d'avance dans ton projet....
Car si tu arrives à récupérer le résultat de ta requête, tu ne devrais pas avoir de problème pour faire :
Do While....
TextBox1.Text = Champ1
TextBox2.Text = Champ2
....
Wend....
A+
Exploreur
Linux a un noyau, Windows un pépin
mohamed222222
Messages postés
161
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
22 avril 2009
4 sept. 2007 à 11:44
4 sept. 2007 à 11:44
Je récupère bien le résultat mais je n'arrive pas à parcourirs mon datable !!!
je dois mettre quoi après do while !!!
merci d'avance !!!
je dois mettre quoi après do while !!!
merci d'avance !!!
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
4 sept. 2007 à 11:49
4 sept. 2007 à 11:49
Salut,
Montre nous comment tu récupères le résultat de ta requête et fais l'insertion....
A+
Exploreur
Linux a un noyau, Windows un pépin
Montre nous comment tu récupères le résultat de ta requête et fais l'insertion....
A+
Exploreur
Linux a un noyau, Windows un pépin
mohamed222222
Messages postés
161
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
22 avril 2009
4 sept. 2007 à 11:58
4 sept. 2007 à 11:58
Dim
CnxStr
As
String
Dim
requete
As
String
CnxStr = connectionbasededonnéés
Dim
SqlCnx
As
New
SqlConnection()
Dim
SqlCmd
As
New
SqlCommand()SqlCnx.ConnectionString = CnxStr
SqlCnx.Open()
requete =
"select id ,site, nom,date as DATE,heure, "
& _
" from matable where id="
& lbl.Text()
Dim
sqlDA
As
New
SqlDataAdapter()SqlCmd.Connection = SqlCnx
SqlCmd.CommandText = requete
sqlDA.SelectCommand = SqlCmd
Dim
dt
As
New
DataSetsqlDA.Fill(dt)
oConnexion.Close()
voici !!
et maintenant je veux parcourir mon datatable et mettre le résultat dans des controls !!
merci d'avance !!!
CnxStr
As
String
Dim
requete
As
String
CnxStr = connectionbasededonnéés
Dim
SqlCnx
As
New
SqlConnection()
Dim
SqlCmd
As
New
SqlCommand()SqlCnx.ConnectionString = CnxStr
SqlCnx.Open()
requete =
"select id ,site, nom,date as DATE,heure, "
& _
" from matable where id="
& lbl.Text()
Dim
sqlDA
As
New
SqlDataAdapter()SqlCmd.Connection = SqlCnx
SqlCmd.CommandText = requete
sqlDA.SelectCommand = SqlCmd
Dim
dt
As
New
DataSetsqlDA.Fill(dt)
oConnexion.Close()
voici !!
et maintenant je veux parcourir mon datatable et mettre le résultat dans des controls !!
merci d'avance !!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
4 sept. 2007 à 13:16
4 sept. 2007 à 13:16
Salut,
Essaye ce petit bout de code en complément du tiens(ajoute la référence à ton projet : Microsoft Activix Data Objects 2.8 Library)
Private Sub Form_Load()
On Error Resume Next
RstAdo.Cancel
RstAdo.Close
Err.Clear
Dim RstAdo As New ADODB.Recordset
Dim Sql As String
Sql = "SELECT * FROM matable WHERE id= " & lbl.Text() & ""
RstAdo.CursorLocation = adUseClient
RstAdo.Open Sql, oConnexion, adOpenDynamic, adLockPessimistic
' Ici j'affiche juste le premier enregistrement
Text1.Text = RstAdo.Fields("ID")
Text2.Text = RstAdo.Fields("Site")
Text3.Text = RstAdo.Fields("Nom")
Text4.Text = RstAdo.Fields("Date")
Text5.Text = RstAdo.Fields("Heure")
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin
Essaye ce petit bout de code en complément du tiens(ajoute la référence à ton projet : Microsoft Activix Data Objects 2.8 Library)
Private Sub Form_Load()
On Error Resume Next
RstAdo.Cancel
RstAdo.Close
Err.Clear
Dim RstAdo As New ADODB.Recordset
Dim Sql As String
Sql = "SELECT * FROM matable WHERE id= " & lbl.Text() & ""
RstAdo.CursorLocation = adUseClient
RstAdo.Open Sql, oConnexion, adOpenDynamic, adLockPessimistic
' Ici j'affiche juste le premier enregistrement
Text1.Text = RstAdo.Fields("ID")
Text2.Text = RstAdo.Fields("Site")
Text3.Text = RstAdo.Fields("Nom")
Text4.Text = RstAdo.Fields("Date")
Text5.Text = RstAdo.Fields("Heure")
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin
mohamed222222
Messages postés
161
Date d'inscription
mardi 12 juin 2007
Statut
Membre
Dernière intervention
22 avril 2009
4 sept. 2007 à 13:32
4 sept. 2007 à 13:32
tu peux expliquer ton code stp !!!
Merci d'avance !!!
Merci d'avance !!!
lakroune
Messages postés
1
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
3 juillet 2008
3 juil. 2008 à 17:21
3 juil. 2008 à 17:21
bonjour
je suis debutant on vb j aimerais savoir comment affiche une table d acces dans le vb on utilisons la datagrid avec deux commend une pour affiche est l'autre pour quitte
salut
je suis debutant on vb j aimerais savoir comment affiche une table d acces dans le vb on utilisons la datagrid avec deux commend une pour affiche est l'autre pour quitte
salut