[VB] Probleme d'acces a une base Access en mise a jour.

Probleme d'acces a une base Access en mise a jour. [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 09-09-2004 à 17:31:21    

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 :
  1. Public cheminbase   As String
  2. Dim marequete       As String
  3. Dim mabase          As Database
  4. Dim moncurseur      As Recordset
  5. Dim cotation     As Double
  6. Dim newcotation     As Double
  7. Dim oldcotation     As Double
  8. Dim nomtable        As String
  9. Dim typedecote1     As String
  10. Dim typedecote2     As String
  13. 'mise a jour de la table historique
  14.    cotation = cotation * 1000
  15.    marequete = "insert into [" & nomtable & "] ([" & typedecote1 & "]) values (" & cotation & " );"
  16.     MsgBox (marequete)
  17.    
  18.     Set mabase = OpenDatabase(cheminbase, False, False)
  19.     Set moncurseur = mabase.OpenRecordset(marequete)
  20.    
  21. 'mise a jour de la table des coations moyenne
  23.      'recuperation de l'ancienne valeur de la cote
  24.     marequete = "select [" & typedecote2 & "] from [T-CotationsMoyenne] where [codequipe] like (""" & codequipe & """ );"
  25.     Set mabase = OpenDatabase(cheminbase, False, False)
  26.     Set moncurseur = mabase.OpenRecordset(marequete)
  28.      'l'affecte a oldcotation
  29.     moncurseur.MoveFirst
  30.     Do While Not moncurseur.EOF
  31.         'oldcotation = moncurseur(""" & typedecote2 & """ )
  32.         oldcotation = moncurseur("cmVE" ) / 1000
  33.         moncurseur.MoveNext
  34.     Loop
  35.    
  36.      'calcule de la nouvelle cote moyenne
  37.     newcotation = CDbl(((oldcotation + cotation) / 2) * 1000)
  38.     MsgBox (newcotation)
  39.    
  40.      'mis a jour avec la nouvelle valeur de la cote
  41.     marequete = "update [T-CotationsMoyenne] set [" & typedecote2 & "] = " & newcotation & " where [codequipe] like (""" & codequipe & """ );"
  42.     MsgBox (marequete)
  43.     Set mabase = OpenDatabase(cheminbase, True, False)
  44.     Set moncurseur = mabase.OpenRecordset(marequete)


Message édité par Gromi le 10-09-2004 à 09:02:16
Reply

Marsh Posté le 09-09-2004 à 17:31:21   

Reply

Marsh Posté le 10-09-2004 à 11:58:08    

Je me pose la question : Est'il possible de faire des requettes ajout et mise à jour sur une basse access a travers VB6 ?
La negative me surprandrais beaucoup mais bon...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed