Discussion :

[cavrom]

Bonjour à tous,
Je reprends actuellement un programme Vb6 sous Excel. Ce programme permet d'envoyer des données sous Access.
Une ligne commande la création d'une nouvelle table, sous la forme "nom_projet_S" et j'ai un problème avec cette syntaxe :

Code :

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

.Open Table_S, LockType:=adLockOptimistic

Pourriez-vous me dire quelle est l'erreur?
Je reste à votre disposition pour toutes autres informations
Bonne journée!

[Jean-Philippe André]

salut,

si tu travailles avec un bdd, il faut que la reference Access soit ajoutee a ton code VBA Excel.

Le mieux reste de rentrer la constante manuellement (ici adLockOptimistic = 3).

[cavrom]

J'ai essayé, mais ça ne fonctionne toujours pas. D'ailleurs, lorsque je place le curseur sur adLockOptimistic, l'info bulle m'indique qu'il est déjà égal à 3.
En fait, lorsque ça bug, le message d'erreur m'indique :

instruction SQL non valide : DELETE , INSERT, PROCEDURE, SELECT, ou UPDATE attendus

[Jean-Philippe André]

OK,

peut-on avoir le contenu SQL de ta requete d'une part,
et l'objet a partir duquel tu executes Open stp ?

[cavrom]

Je suis novice alors j'espère répondre au mieux, n'hésitez pas à m'indiquer si ce n'est pas ce dont vous aviez besoin :

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
36
37
38
39
40
41
Dim Conn As New ADODB.Connection
Dim rsT As New ADODB.Recordset
 
Table_S = "T_external_" & Sheets("add").Range("C2").Value & "_S"    
 
    With tbl
        'Assign a name to the new table
        .Name = Table_S
        'Assign a name to the columns of the new table
        With .Columns
            .Append "Project"
            .Append "number_micro_S"
            .Append "diagram"
        End With
 
'Creation of the columns for the table stationary
 
        For i = 1 To Sheets("add").Range("C3").Value
            With .Columns
                .Append "distance_S" & i
                .Append "height_S" & i
                .Append "front_of_car_S" & i
                .Append "front_of_equipment_S" & i
                .Append "Contract_value_S" & i
                .Append "Measured_value_S" & i
            End With
        Next i
        With .Columns
                .Append "parameter_S"
                .Append "Comment_S"
        End With
 
End With
 
    With rsT
        .ActiveConnection = Conn
        ' Opening of the new table. To add records to the table,
        ' the argument LockType of the Open method
        ' must be defined adLockOptimistic
        .Open Table_S, LockType:=adLockOptimistic
    End With

[Jean-Philippe André]

OK,
alors petite question avant de te donner des pistes, que comptes-tu faire de ton recordset apres avoir recupere les donnees ?