Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1694 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°846206
Gromi
Vous avez dit sauvage ?
Posté le 09-09-2004 à 17:31:21  profilanswer
 

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


Message édité par Gromi le 10-09-2004 à 09:02:16
mood
Publicité
Posté le 09-09-2004 à 17:31:21  profilanswer
 

n°846805
Gromi
Vous avez dit sauvage ?
Posté le 10-09-2004 à 11:58:08  profilanswer
 

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...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
problème de freadAccès aux champs d'un formulaire dynamique
[java]probleme avec getResource dans un jarlié des tables SQL server en lecture via Access (résolu)
Libraire OpenSSL - Problème d'utilisationJuste un tout petit probleme avec GD
access excel problème de caractères retour à la ligne, etc...[Résolu - ADO] Problème de connexion à un serveur OLAP
besoin d'une base de données 
Plus de sujets relatifs à : [VB] Probleme d'acces a une base Access en mise a jour.


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR