Modification d'un enregistrement aprés une recherche???

Signaler
Messages postés
31
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
25 avril 2005
-
Messages postés
31
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
25 avril 2005
-
Bonjour
Je travaille avec VB6 , data, et ADODB
J' ai fait une recherche d'enregistrement, et une fois trouvé je veux le modifer, mais les modifications apportées ne sont pas prises , pourquoi ?
Voici mon code :

BOUTON RECHERCHE
X = DataCombo1.BoundText
Y = DTPicker1.Value
Z = DataCombo2.BoundText

base1.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"\\c:\BD1.mdb"
SQL0 "select moytel, moycomp from tablereq where (Matagent " & X & ") AND (Date = #" & Format(DTPicker1.Value, "YYYY/MM/DD") & "# ) AND (Codereq ='" & Z & "')"

base1.Open
rstablereq1.Open SQL0, base1, adOpenStatic, adLockOptimistic

If rstablereq1.RecordCount <> 0 Then
Text1.Text = rstablereq1!moytel
Text2.Text = rstablereq1!moycomp
Else
MsgBox "Erreur, cet enregistrement n'existe pas", vbExclamation, "Avertissement"
End If

BOUTON MODIFIER
Data1.Recordset.Edit
Data1.Recordset.Update
Data1.Refresh

MERCI
MMICH
A voir également:

2 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
26
Si tes TextBox ne sont pas reliés à Data1 par leurs propriétés dataFields, ton data1.RecordSet n' a aucune valeur., Tu ne peus pas non plus avoir 3 commandes dans le boutonModifier,il te faut un bouton par commande.

jpleroisse
Messages postés
31
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
25 avril 2005

Les TextBox sont reliés à Data1 par leurs propriétés dataFields dans le data1.RecordSet . Et pour le bouton modifer , la commande update suit le edit pour pouvoir modifier!

Que faire ?
MMICH