Requete SQL Variable tableau

Je ne comprends pas bien pour quoi tu concatènes pour créer ta constante... Pourquoi pas

Code:

---

Public Const base As String = "UID=xxxxx;PWD=xxxxxx;Server=xxxxxx;Database=xxxxxxxx;"

---

Pour le reste, si tu travaillais avec ton objet cnx plutôt qu'avec des variables volatiles dans des with... end with imbriqués, tu piloterais bien plus facilement ton appli et tu pourrais débuguer beaucoup plus facilement. (Mais bon, c'est comme pisser dans un violon... ;) )

Là, on en est à 20 messages pour un truc qui se résout en deux ou trois échanges max, simplement parce qu'à aucun moment on a un code lisible sous les yeux, et qu'au départ ta question était de passer un jeu d'enregistrement dans un tableau et que finalement, les erreurs que tu rencontres n'ont rien à voir avec ça :koi:

J'ai essayé mais ça ne marche pas que ce soit avec "base" ou "GenereCSTRING".

En le modifiant à chaque fois.

Le problème reste identique.

Je ne parviens pas à l'identifier.

Je suis d'accord, parti d'un problème c'est un autre qui apparait. Mais comme récupérer une requête sql dans une variable tableau passe
forcément par l'ouverture de la base (dans mon cas, maintenant c'est là que ça bloque), alors que je n'avais aucun problème pour le faire avant. Je suis désolé.

Citation:

---

Envoyé par manufer

Je ne comprend pas, la ligne ci-dessous fonctionne très bien habituellement:

Code:

---

1 2	Public Const base As String = "UID=xxxxx;PWD=xxxxxx;" & "Server=xxxxxx;Database=xxxxxxxx;"

---

[...]

---

Tiens, au passage, tu as bien Option Explicit au tout début de ton module?

Citation:

---

Envoyé par manufer

J'ai essayé mais ça ne marche pas que ce soit avec "base" ou "GenereCSTRING".[...]

---

D'une façon générale, les programmeurs qui manipulent des connexions à des DB utilisent le nom ConnectionString pour définir leur chaine de connexion. Donner des noms parlants (et dans ce cas communément admis, utilisés et compris) aide évidemment à comprendre un code rien qu'en le lisant. Même si chacun utilise bien entendu les noms qu'il veut, et que utiliser base au lieur de ConnectionString ne change rien au fonctionnement du code.

Cela dit, à ce stade de la discussion, si tu t'entêtes à ne donner que la ligne de code qui bugue sans nous donner un copier-coller de ce qui est réellement utilisé, nous ne pourrons pas t'aider... :roll:

Voilà tout le code avec toujours le message d'erreur au niveau de 'Open.base

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

Sub test() Dim vartab Dim Sql As String Dim base As String   base = "UID=xxxxxx;PWD=xxxxxxx;" & "Server=xxxxxxx;Database=xxxxxxx;"""     With CreateObject("Adodb.connection") .Open base ' >> message d'erreur Sql = "SELECT CONCAT(ville, ' - ', numdepartement) AS art FROM client, cnx" With .Execute(Sql) If Not .EOF Then vartab = .GetRows For Lig = 0 To UBound(vartab) For Col = 0 To UBound(vartab, 2) Debug.Print vartab(Lig, Col) Next Next End If .Close End With End With End Sub

---

Le message d'erreur dit: [gestionnaire de pilote ODBC] source de données introuvable et nom de pilote non spécifié.

si tu n’arrives pas à e connecter à ta base de données tu n'arriveras pas exécuter ta requête!

donc ta base de données c'est Sql Serveur 2005 express ou SQL Server 2008R2 ou via un DNS ODBC?

Il y a trop ou trop peu de " à la fin de ta chaîne... Car avec ceux que tu as, tu ouvres une chaîne à l'intérieur de ta chaine de connexion mais tu ne la referme pas

Enlèves-en deux

Code:

---

base = "UID=xxxxxx;PWD=xxxxxxx;" & "Server=xxxxxxx;Database=xxxxxxx;"

---

C'est SQL server 2014

voila la connexion string à utiliser!

Code:

---

GenereCSTRING= "Provider=SQLNCLI;Server=" & Server & ";Database=" & Base & ";UID=" & User & ";PWD=" & PassWord & ";"

---

"

Ok merci pour tout.

Je vais voir ça.