Gromi Vous avez dit sauvage ? | Bonjour.
Pourriez vous me dir pourquoi mes requettes INSERT et UPLOAD ne s'executent pas sous VB6 (Visual Studio)?
[Erreur]
Erreur d'execution '3219'
Operation non valide.
[/Erreur]
J'ai fait une erreur de syntaxe ou il y a autre chose ?
Y a t'il un moyen de metre a jour juste une valeur ?
Si vous avez d'autre idées je suis preneur.
Merci.
PS: Je ne suis pas obliger de remplir tous les attributs de cette table car elle ne me sert que d'historique.
Code :
- Public cheminbase As String
- Dim marequete As String
- Dim mabase As Database
- Dim moncurseur As Recordset
- Dim cotation As Double
- Dim newcotation As Double
- Dim oldcotation As Double
- Dim nomtable As String
- Dim typedecote1 As String
- Dim typedecote2 As String
- 'mise a jour de la table historique
- cotation = cotation * 1000
- marequete = "insert into [" & nomtable & "] ([" & typedecote1 & "]) values (" & cotation & " );"
- MsgBox (marequete)
-
- Set mabase = OpenDatabase(cheminbase, False, False)
- Set moncurseur = mabase.OpenRecordset(marequete)
-
- 'mise a jour de la table des coations moyenne
- 'recuperation de l'ancienne valeur de la cote
- marequete = "select [" & typedecote2 & "] from [T-CotationsMoyenne] where [codequipe] like (""" & codequipe & """ );"
- Set mabase = OpenDatabase(cheminbase, False, False)
- Set moncurseur = mabase.OpenRecordset(marequete)
- 'l'affecte a oldcotation
- moncurseur.MoveFirst
- Do While Not moncurseur.EOF
- 'oldcotation = moncurseur(""" & typedecote2 & """ )
- oldcotation = moncurseur("cmVE" ) / 1000
- moncurseur.MoveNext
- Loop
-
- 'calcule de la nouvelle cote moyenne
- newcotation = CDbl(((oldcotation + cotation) / 2) * 1000)
- MsgBox (newcotation)
-
- 'mis a jour avec la nouvelle valeur de la cote
- marequete = "update [T-CotationsMoyenne] set [" & typedecote2 & "] = " & newcotation & " where [codequipe] like (""" & codequipe & """ );"
- MsgBox (marequete)
- Set mabase = OpenDatabase(cheminbase, True, False)
- Set moncurseur = mabase.OpenRecordset(marequete)
|
Message édité par Gromi le 10-09-2004 à 09:02:16
|
