A voir également:
- Requte SQL en VB6
- Vb6 - Télécharger - Divers Utilitaires
- Logiciel sql - Télécharger - Bases de données
- Récupération serveur sql - Télécharger - Gestion de données
- Requête sql date supérieure à ✓ - Forum Programmation
- Vb6 split - Forum VB / VBA
4 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
29 mars 2012 à 08:51
29 mars 2012 à 08:51
Bonjour,
data1.RecordSource = "select *from info where id=y"
La variable y est entre simple cote et doit etre ecrite comme une variable
data1.RecordSource = "select *from info where id='" & y & "'"
Bonne suite
data1.RecordSource = "select *from info where id=y"
La variable y est entre simple cote et doit etre ecrite comme une variable
data1.RecordSource = "select *from info where id='" & y & "'"
Bonne suite
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
29 mars 2012 à 12:14
29 mars 2012 à 12:14
Re,
Je regarde votre sujet, bien que je ne programme pas du tout comme vous pour les acces base de donnees, noous devrions quand meme y arriver.
Le champ id est il une cle primaire??
Je regarde votre sujet, bien que je ne programme pas du tout comme vous pour les acces base de donnees, noous devrions quand meme y arriver.
Le champ id est il une cle primaire??
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
29 mars 2012 à 13:39
29 mars 2012 à 13:39
Re,
merci
merci
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
29 mars 2012 à 17:03
29 mars 2012 à 17:03
Re,
C'est une autre methode
Private Sub Command2_Click()
'sans Data control
'reference a ajouter:
'Microsoft DAO 3.6 Object Library
'Microsoft ActiveX Data Objects 2.8 Library
Dim y As Integer, Db, Rs
y = Val(Text3.Text)
'Chemin et base a changer
Set Db = OpenDatabase("C:\repertoire\base.mdb")
Set Rs = Db.OpenRecordset("info", dbOpenTable, dbReadOnly)
If Rs.BOF = True And Rs.EOF = True Then 'test Table vide
Exit Sub
Else
'Methode SEEK
Rs.Index = "PrimaryKey" ' Définit l'index.
Rs.Seek "=", y
If Rs.NoMatch Then ' Sortie si la méthode Seek échoue.
Exit Sub
Else ' Mise a jour
Text1.Text = Rs.Fields("nom")
Text2.Text = Rs.Fields("prenom")
End If
End If
End Sub
Bonne suite
C'est une autre methode
Private Sub Command2_Click()
'sans Data control
'reference a ajouter:
'Microsoft DAO 3.6 Object Library
'Microsoft ActiveX Data Objects 2.8 Library
Dim y As Integer, Db, Rs
y = Val(Text3.Text)
'Chemin et base a changer
Set Db = OpenDatabase("C:\repertoire\base.mdb")
Set Rs = Db.OpenRecordset("info", dbOpenTable, dbReadOnly)
If Rs.BOF = True And Rs.EOF = True Then 'test Table vide
Exit Sub
Else
'Methode SEEK
Rs.Index = "PrimaryKey" ' Définit l'index.
Rs.Seek "=", y
If Rs.NoMatch Then ' Sortie si la méthode Seek échoue.
Exit Sub
Else ' Mise a jour
Text1.Text = Rs.Fields("nom")
Text2.Text = Rs.Fields("prenom")
End If
End If
End Sub
Bonne suite
29 mars 2012 à 11:41
Private Sub Command2_Click()
Dim y As Integer
y = Val(Text3.Text)
data1.RecordSource = "select *from info where id='" & y & "'"
data1.Refresh
Text1.Text = data1.Recordset![nom]
Text2.Text = data1.Recordset![prenom]
End Sub
dans les deux textbox 1 et 2 ne saffiche que la premiere enregistrement lorsque je demande une autre avec un id differents de 1???
SVP si pouvez m'aider