problème espace dans le nom de table Sql

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:

---

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

---

Essayer avec

Code:

---

1 2 3

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

---

Sans garantie !

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.

Citation:

---

Envoyé par EricDgn

Essayer avec

Code:

---

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 :'(

Citation:

---

Envoyé par dysorthographie

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 :'(

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

Citation:

---

Envoyé par 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

---

bonsoir Philippe

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

dbo.[Help Me] :(

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

bonjour,
fais ce test!

Code:

---

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

---

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 ?!