Discussion :

[redalinho]

bonjour

besoin d'aide SVP, la macro ci-dessous exporte des donnés vers des Tables SQL, quand le nom de la table n'as pas d'espace, elle fonctionne parfaitement, mais dans le cas contraire elle bloque, j'ai essayé les crochet [...] les apostrophe '...' et `...` mais rien ne marche

CA bloque sur la ligne rs.Open tableName, Cn, adOpenKeyset, adLockOptimistic

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
Sub Injection()
 
 
Dim Cn As ADODB.connection
Dim ServerName As String
Dim DatabaseName As String
Dim tableName As String
Dim UserID As String
Dim Password As String
Dim rs As ADODB.recordset
 
 
ServerName = "vmalsdisdb"
DatabaseName = "Produits"
tableName = "PRELEVEMENT PRODUIT"
UserID = ""
Password = ""
 
 
Set rs = New ADODB.recordset
 
 
Set Cn = New ADODB.connection
Cn.Open "Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & _
";Uid=" & UserID & ";Pwd=" & Password & ";"
 
 
rs.Open tableName, Cn, adOpenKeyset, adLockOptimistic

[EricDgn]

Essayer avec

Code :

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

1
2
3
rs.Open "'PRELEVEMENT PRODUIT'", Cn, adOpenKeyset, adLockOptimistic
'et
rs.Open "`PRELEVEMENT PRODUIT`", Cn, adOpenKeyset, adLockOptimistic

Sans garantie !

[Invité]

Bonsoir,
Il faut effectivement encadrer par des [Crochets] [ mais il a espaces et espaces ]

Pas sur que le nombre d'espaces pour les uns soit le même pour les autres!

Fais ta requête dans sql manageur et recopies rescrit.

[redalinho]

Essayer avec

Code :

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

1
2
3
rs.Open "'PRELEVEMENT PRODUIT'", Cn, adOpenKeyset, adLockOptimistic
'et
rs.Open "`PRELEVEMENT PRODUIT`", Cn, adOpenKeyset, adLockOptimistic

Sans garantie !

salut eric;

j'ai déjà essayé avec les `` mais sans succès :'(

[redalinho]

Bonsoir,
Il faut effectivement encadrer par des [Crochets] [ mais il a espaces et espaces ]

Pas sur que le nombre d'espaces pour les uns soit le même pour les autres!

Fais ta requête dans sql manageur et recopies rescrit.

bonjour

toujours le meme probleme , j'ai copié le nom de table depuis une requete sur SQL manager, mais çà donne rien :'(

[Philippe Tulliez]

Bonjour,
Est-ce que par hasard la table PRELEVEMENT PRODUIT n'aurait pas un ou plusieurs caractères espacés à droite
Si tu as la possibilité de lister les tables de ta base de données affiche le nom encadré des caractères ">" & TableName & "<". Tu verras tout de suite si la chaîne est correcte

[redalinho]

Bonjour,
Est-ce que par hasard la table PRELEVEMENT PRODUIT n'aurait pas un ou plusieurs caractères espacés à droite
Si tu as la possibilité de lister les tables de ta base de données affiche le nom encadré des caractères ">" & TableName & "<". Tu verras tout de suite si la chaîne est correcte

bonsoir Philippe

appremment non, il n'ya pas d'espace entre les caractère,

dbo.[Help Me]

[EricDgn]

Bonjour,
Voir ce post, cela pourrait éventuellement donner une nouvelle idée.
Prévoir Debug.Print ">" & xx.Name & "<" pour détecter des caractères masqués éventuels.
Idée: partant du listage des tables, faire la connexion au moment où le nom détecté contient (Like) le texte "PR*PRODUIT*"
Cdt

[Invité]

bonjour,
fais ce test!

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
Public Property Get TableToutes(Connexion As Object)
Dim T() As String, i As Integer
TableToutes = False
With Connexion.OpenSchema(20)
    While Not .EOF
        ReDim Preserve T(i)
        T(i) = !TABLE_NAME
        i = i + 1
        .MoveNext
    Wend
    .Close
    TableToutes = T
End With
End Property
Sub test()
Dim Cn As Object, T() As String
Set Cn = CreateObject("Adodb.connection")
Cn.Open "Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & ";Uid=" & UserID & ";Pwd=" & PassWord & ";"
 
 
T = TableToutes(Cn)
For i = 0 To UBound(T)
    Debug.Print "[" & T(i) & "]"
Next
End Sub

[redalinho]

bonjour

merci a tous pour vos réponses, appremment le souci n'été pas dans l'espace mais dans une des Tables, j'ai pu contourner le souci en remplacent le type de curseur "adOpenKeyset" par "adOpenDynamic" mais sans comprendre vraiment le probleme, peut etre q'un autre utulisateur travaill sur la table ?!