Discussion :

[alexkickstand]

bonjour j'aurais voulu faire une requete sur une table sql server 2005 mais il m'indique une erreur 3251 : "opération non autorisé pour ce type d'objet"

référence : Microsoft DAO 3.6 Object Library

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Function attach_sw_to_edb(nom_dessin_sw)
 
'déclaration des variables
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim SORT_VAR, SORT_VAR1, SORT_VAR2 As Variant
    Dim path as String
 
'accés à la base de données (fichier access)
     bdd_nom = "C:\PDF_TRIO\fichier_access.mdb"
 
'chemin d'accé du fichier PDf
 path = "F:\Solidworks_pdf\" & nom_dessin_sw & "_tabloid.pdf"
 
'ouvrir la base de données
 Set dbs = OpenDatabase(bdd_nom)
 
'ouvrir la table "dbo_Dessins"
 Set rst = dbs.OpenRecordset("dbo_Dessins", dbOpenSnapshot, dbSeeChanges)
 
'requete sql select pour récupérer l'enregistrement qui correspond au nom du fichier pdf
   SORT_VAR1 = "SELECT [dbo_Dessins].[ITEM], [dbo_Dessins].[Fichier]  FROM [dbo_Dessins]"
   SORT_VAR2 = "WHERE ((([dbo_Dessins].[ITEM]) ='" & nom_dessin_sw & "*'))"
   SORT_VAR = SORT_VAR1 & SORT_VAR2
 
'mettre a jour le champ
    With rst
        rst.Edit
        !Fichier = path
        rst.Update
        rst.Close
    End With
 
MsgBox ("Nouveau Dessin PDF attaché sur Item")

erreur est provoqué sur la ligne ".Edit"

merci d'avance pour de l'aide

Alex

[marot_r]

À mon avis le dbOpenSnapshot n'aide pas.

Si je ne me trompes pas, dbOpenSnapshot ça fait une copie indépendante en lecture seule de la bd, non ?

Je mettrai dbOpenDynaset à la place ou peut-être un dbForwardOnly.

A+

[alexkickstand]

bonjour et merci de ta réponse , "dbOpenDynaset" etait la bonne option en effet !!! je suis pas tres familier avec ce genre d'option a vrai dire je travaillais sur des bases access puis sql server c'est bien différend !!

pourrais tu me dire car j'ai un doute sur cette portion de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Set dbs = OpenDatabase(bdd_nom)
 
'ouvrir la table "dbo_Dessins"
 Set rst = dbs.OpenRecordset("dbo_Dessins", dbOpenDynaset, dbSeeChanges)
 
'requete sql select pour récupérer l'enregistrement qui correspond au nom du fichier pdf
   SORT_VAR1 = "SELECT [dbo_Dessins].[ITEM], [dbo_Dessins].[Fichier]  FROM [dbo_Dessins]"
   SORT_VAR2 = "WHERE ((([dbo_Dessins].[ITEM]) ='" & nom_dessin_sw & "*'))"
   SORT_VAR = SORT_VAR1 & SORT_VAR2
 
'mettre a jour le champ
    With rst
        rst.Edit
        !Fichier = path
        rst.Update
        rst.Close
    End With

est-ce que ma requete "sort_var" est bien assigné dans le "with rst" ?

car il me retourne uniquement le premier enregistrement de ma table

merci d'avance

Alex

[marot_r]

C'est normal, un recordset est un ensemble d'enregistrement mais ton code n'en traite q'un.

si tu veux le faire par programme il te faut écrire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
do while not rst.eof
    With rst
        rst.Edit
        !Fichier = path
        rst.Update
        rst.Close
    End With
    rst.movenext
loop

sinon il faut que tu écrive une requête UPDATE et que tu l'appel de ton code. Je ne suis pas un champion du SQl, si tu as besoin de cela crée une nouvelle discussion.

A+