Pb avec l' execution du requêteRésolu

Question

Bonjours,


Je voudrais executer un requête mise à jour dans une base access, mais j' ais quelques problème
voici le code que j' ais sur un bouton.


Option Explicit
Dim db As Database
Dim mabase As String
Dim sql As String


________________________________________________________________________________________


Private Sub Command1_Click()
' On renseigne la variable mabase
mabase = "c:\sia.mdb"
'Pour un UPDATE :
    ' Connection à la base
    Set db = DBEngine.Workspaces(0).OpenDatabase("mabase")
    ' Assignation de la requète    sql "UPDATE quincaillerie INNER JOIN [saisie commandes] ON quincaillerie.RefArt [saisie commandes].RefArt SET quincaillerie.QuantStock = [quincaillerie]![QuantStock]-[saisie commandes]![UnitéReservé];"
    ' Exécution de la requète
    db.Execute sql
    ' Fermeture de la base
    db.Close
    
End Sub




mais quand je veux l' executer j' ais: Database en surbrillance


et le message suivant:




Erreur de compilation:


Type défini par l'utilisateur non défini

Renfield · Accepted Answer

d'accord avec Molenn. le nom complet est : "Microsoft DAO 3.51 Object Library"

Pourquoi mettre tes 'Dim' à l'exterieur de ta procédure ?

à noter aussi qu'il faut ôter les guillemets :
Set db = OpenDatabase("mabase")

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Molenn · Answer

Tu es en VBA 6, il faut donc que tu rajoutes en référence le type de base de données. Et comme tu utilises une syntaxe DAO, dans ton projet, il faut que tu rajoutes la référence DAO3.51 ou 3.6 suivant ce que tu as à ta disposition.


 


Molenn

cs_luz · Answer

J' ais bien suivi vos instruction, je pense car il y a un pb pour ouvir la base
j' ais: en surbrillance
Set db = DBEngine.Workspaces(0).OpenDatabase(mabase)
et le message suivant:


Erreur d'éxecution '3055':
Nom de fichier incorrect

Option Explicit
Dim db As DAO.Connection
Dim sql As String
Dim mabase As String
________________________________________________________________________________
Private Sub Command1_Click()
' On renseigne la variable mabase
mabase = "Provider=Microsoft DAO 3.51 Object Library;Data Source= c:\sia.mdb"
'Pour un UPDATE :
    ' Connection à la base
    Set db = DBEngine.Workspaces(0).OpenDatabase(mabase)
    ' Assignation de la requète    sql "UPDATE quincaillerie INNER JOIN [saisie commandes] ON quincaillerie.RefArt [saisie commandes].RefArt SET quincaillerie.QuantStock = [quincaillerie]![QuantStock]-[saisie commandes]![UnitéReservé];"
    ' Exécution de la requète
    db.Execute sql
    ' Fermeture de la base
    db.Close
    
End Sub

Renfield · Answer

ce que tu as tenté ressemble a un mixe DAO/ADO (chaine de connexion)

Projet > References > Microsoft DAO 3.51 Object Library > OK

mabase = "c:\sia.mdb"

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_luz · Answer

J' ais trouvé, il y avais un peu de mélange..merci à 2359  Renfield

Option Explicit
Dim db As Database
Dim sql As String
_____________________________________________________________________________________________
Private Sub Command1_Click()
' Ouvrir la base
 Set db  = OpenDatabase("c:\sia.mdb")
    ' Assignation de la requète    sql "UPDATE quincaillerie INNER JOIN [saisie commandes] ON quincaillerie.RefArt [saisie commandes].RefArt SET quincaillerie.QuantStock = [quincaillerie]![QuantStock]-[saisie commandes]![UnitéReservé];"
    ' Exécution de la requète
    db.Execute sql
    ' Fermeture de la base
    db.Close
    
End Sub

merci à tous !!

Pb avec l' execution du requête

5 réponses

Votre réponse

Discussions similaires