URGENT Update d'un enregistrement avec DATA

Salut ,

J'ai un programme qui utilise un BDD ACCESS 97 , dans laquelle j'effectur des enregistrements...voici la table PLEINS :
{numplein,qteplein,prixplein,prixlitre,parcours,numpompe,numvehicule,reste,kilometrage,date}

J'ai un form qui permet de modifier certaines valeurs d'un enregistrement selectionne au prealable via un autre form...
Le probleme est que lors du clic sur le bouton 'modifier' (command1) du form avec tous les champs a modifier je me tape une erreur "3426" : Cette methode a ete annulee par un objet associe ! Et au debogage il me pointe la ligne "Data1.Recordset.Update"...

Voici le code :

'-------------------------------------------------------------
Public vehicule As String
Public plein As String



Private Sub Command1_Click()
Data1.Recordset.Update
Data1.Recordset.MoveFirst
Unload modifplein2
principale.Show
End Sub

Private Sub Form_Activate()
Do While Data2.Recordset.EOF = False
Combo2.AddItem Data2.Recordset.Fields("numpompe")
Data2.Recordset.MoveNext
Loop
Text1.Text = choix.vehicule
Text6.Text = modifplein.plein
Data1.Recordset.Edit
Text2.SetFocus

End Sub

'------------------------------------------------------------


Merci de m'aider , c tres urgent :)
Max

Je crois que c'est parce que tu as collé Data1.Recordset.Edit dans l'évènement Form_Activate().

Essayes de mettre un point d'arrêt la dessus...

En tout cas, tu devrais t'intéresser aux Recordset d'ADO car tut t'embettrais moins !

[ XtOf ]


-------------------------------
Réponse au message :
-------------------------------

> Salut ,
>
> J'ai un programme qui utilise un BDD ACCESS 97 , dans laquelle j'effectur des enregistrements...voici la table PLEINS :
> {numplein,qteplein,prixplein,prixlitre,parcours,numpompe,numvehicule,reste,kilometrage,date}
>
> J'ai un form qui permet de modifier certaines valeurs d'un enregistrement selectionne au prealable via un autre form...
> Le probleme est que lors du clic sur le bouton 'modifier' (command1) du form avec tous les champs a modifier je me tape une erreur "3426" : Cette methode a ete annulee par un objet associe ! Et au debogage il me pointe la ligne "Data1.Recordset.Update"...
>
> Voici le code :
>
> '-------------------------------------------------------------
> Public vehicule As String
> Public plein As String
>
>
>
> Private Sub Command1_Click()
> Data1.Recordset.Update
> Data1.Recordset.MoveFirst
> Unload modifplein2
> principale.Show
> End Sub
>
> Private Sub Form_Activate()
> Do While Data2.Recordset.EOF = False
> Combo2.AddItem Data2.Recordset.Fields("numpompe")
> Data2.Recordset.MoveNext
> Loop
> Text1.Text = choix.vehicule
> Text6.Text = modifplein.plein
> Data1.Recordset.Edit
> Text2.SetFocus
>
> End Sub
>
> '------------------------------------------------------------
>
>
> Merci de m'aider , c tres urgent :)
> Max

Salut
Je vais essayer avec un ADO datacontrol , mais je ne sais pas comment il foncitonne , comment on le connecte a une base access 97 ? et comment passe t on les commandes sql ?

max

Salut,

Je te conseille d'abandonner le DataControl et Cie en prenant directement la main sur ta base de données avec ADO (mais ce n'est que mon avis personnel !).

Voici un petit exemple de lecture avec ADO (fonctionne aussi en VB.NET avec ADO.NET sauf pour la manipulation de la ListBox).

Il ne faut pas oublier d'ajouter la dernière référence Microsoft ADO dans ton projet pour que cela marche.

--------

Dim Conn as ADODB.Connection Dim RS as ADODB.Recordset Set Conn = New ADODB.Connection Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\ma base de donnees.mdb;" Set RS=Conn.Excute("SELECT * FROM [Ma Table a moi] Where [LeNom]= 'Martin*'") List1.Clear Do While Not RS.EOF List1.AddItem RS("LeNom") & " " & RS("LePrenom") List1.ItemData(List1.NewIndex)=RS("ID") RS.MoveNext loop RS.Close Conn.Close RS=Nothing Conn=Nothing

----

Voilà...

++

[ XtOf ]


-------------------------------
Réponse au message :
-------------------------------

> Salut
> Je vais essayer avec un ADO datacontrol , mais je ne sais pas comment il foncitonne , comment on le connecte a une base access 97 ? et comment passe t on les commandes sql ?
>
> max

Re ,

Oki merci c sympas , j'avais un peu essaye mais pas reussi !
Entre temps j'ai fais autrement ...

Dim vehicule As String Dim s As String Private Sub Form_Load() vehicule = choix.vehicule Text1.Text = choix.vehicule s = "SELECT * From plein WHERE numvehicule=""169ACQ59""" Data1.RecordSource = s Data1.Refresh End Sub

MAis voila mon probleme...je ne veux pas afficher les enregistrement avec 169ACQ59 , mais ceux avec le contenu de vehicule...
J4ai pas reussi a faire une requete valide !
Si tu peux m'aider encore un peu ;)
max

A mon avis personne ne reviendra sur ce message mais moi mon pb (en tant ke newbie sur les BD avec VB) c ke j'arrive pas a configurer bien mon objet DATA :)

Je c kil fo choisir le typede la base (Access) et le chemin d'acces mais apres .... alors la si qq'un peu m'aider :)