Requete SQL Variable tableau

Version imprimable

Salut à tous,

Est-il possible de mettre le résultat d'une requête SQL dans une variable tableau en VBA ?

Voilà ce que j'ai fait:
Code:

1 2 3 4 5 6 7 8 9 Dim k As Integer Dim vartab() As String Dim SQL As String SQL = "SELECT CONCAT(ville, ' - ', numdep,' - ', produit) as clt FROM bdclient" For k = 1 To UBound(vartab) vartab(clt) = SQL Next k
Cette dernière partie pour intégration dans une variable ne fonctionne pas.
Savez vous ce qu'il manque s'il vous plait ?
Merci à vous.

Bonjour,

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub test()
Dim vartab
Dim Sql As String, GenereCSTRING As String
GenereCSTRING = "Voir commentaire!"
With CreateObject("Adodb.connection")
    .Open GenereCSTRING
    Sql = "SELECT CONCAT(ville, ' - ', numdep,' - ', produit) as clt FROM bdclient"
    With connextion.Execute(Sql)
        If Not .EOF Then
            vartab = .get.Rows
            For Ligne = 0 To UBound(vartab)
                For Colonne = 0 To vartab(vartab, 2)
                    Debug.Print vartab(Ligne, Colonne)
                Next
            Next k
        End If
        .Close
    End With
End With
End Sub
 
'*Comentaires!
 
 
'* Excel Avec Tire
'GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base & ";Extended Properties=""Excel 12.0;HDR=YES;"""
'* Excel SensTire
'GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base & ";Extended Properties=""Excel 12.0;HDR=no;"""
'* ACCESS97
'GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & Fichier
'* ACCESS2000
'GenereCSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Persist Security Info=False"
'* ACCESS2012
'GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";"
'* MySQL
'GenereCSTRING = " DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Server & ";UID=" & User & ";DATABASE=" & Base & ";Password=" & PassWord
'* ODBC
'GenereCSTRING = "Provider=MSDASQL.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
'* ORACLE
'GenereCSTRING = "Provider=OraOLEDB.Oracle.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & Base
'* SQLSERVER2005
'GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
'* SQLServer2008R2
'GenereCSTRING = "Provider=SQLNCLI;Server=" & Server & ";Database=" & Base & ";UID=" & User & ";PWD=" & PassWord & ";"
'* SQLite
'GenereCSTRING = "Provider=OleSQLite.SQLiteSource.3; Data Source=" & Fichier
'GenereCSTRING = "Driver={SQLite ODBC (UTF-8) Driver};Database=" & Fichier & ";StepAPI=;Timeout="
'* SQLite3
'GenereCSTRING = "Driver={SQLite3 ODBC Driver};Database=" & Fichier & ";LongNames=0;Timeout=4000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
'* CSV
'GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server & ";Extended Properties=""Text;HDR=" & Array("No", "YES")(Abs(AvecTitre)) & ";FMT=Delimited;"""

01/09/2017, 14h33
manufer

Salut dysorthographie ,

j'essaie ça.

Merci.
01/09/2017, 16h48
manufer

Salut,

ça ne fonctionne pas,

J'ai un message d'erreur "incompatibilité de type",

J'ignore la raison de ce message.
01/09/2017, 20h19
Invité

Citation:

Envoyé par manufer

Salut,

ça ne fonctionne pas,

J'ai un message d'erreur "incompatibilité de type",

J'ignore la raison de ce message.

Sur quelle ligne?
02/09/2017, 01h37
manufer

Salut,

C'est sur la ligne de la requête.
02/09/2017, 09h16
Invité

Bonjour,
Oui effectivement c'est uniquement .execute!

Code:

With .Execute(Sql)
02/09/2017, 13h11
manufer

Salut,

Ne soit pas désolé c'est super sympas.

Je vois ça lundi je n'est pas accès au réseau entreprise de là ou je suis.
04/09/2017, 08h44
manufer

1 pièce(s) jointe(s)

Salut,

J'ai un nouveau message d'erreur:

Pièce jointe 308806

Je ne suis pas sûr mais je pense que c'es dû à la variable k.

Qu'en pensez-vous ?

1 pièce(s) jointe(s)

Bonjour,

c'est encore moi!

Pièce jointe 308810

Code:

1
2
3
4
5
For Ligne = 0To UBound(vartab)
For Colonne = 0 To vartab(vartab, 2)
                    Debug.Print vartab(Ligne, Colonne)
                Next 
Next

Salut dysorthographie,

J'ai un message d'erreur, je travail sur SQL server 2014,

Erreur d'execution '-2147467259(80004005)':
Cannot open database "UID=(mon mot de passe)"requested by the login. The login failed.

Voilà ce que j'ai entré:
Code:

1 2 GenereCSTRING = "Provider=SQLOLEDB.1;Password=(mon mot de passe)" & Password & ";Persist Security Info=True;User ID=(identifiant;)" & User & ";Initial Catalog=" & base & ";Data Source=(nom de la base de donnée)" & Server
Je ne sais pas ce qu'est le "Initial Catalog="

habituellement pour me connecter j'utilise:

Code:

Public Const base As String = "UID=(identifiant);PWD=(mot de passe);" & "Server=(nom du serveur);Database=(nom de la base de donnée);"

Bien sûr sans toutes ces parenthèses.

Est-il possible de contourner ça ?

Salut.

D'une façon générale, et pour coller à la demande initiale, un Recordset.getRows() convient, sans devoir travailler avec un boucle.
Code:

1 2 3 4 5 6 7 8 9 10 11 dim rs as adodb.recordset dim cn as daodb.connection dim sql as string dim tbl set cn = new adodb.connection cn.open "..." sql = "select ..." set rs= cn.execute(sql) tbl = rs.getrows()
Cela étant, il me semble qu'avant d'en arriver là et vu les codes que tu proposes, une étude sérieuse de la récupération de données en ADODB VBA s'impose ;)
Car dans ce que donnes comme code, Manufer, je ne vois pas de connexion à la BD, ni de récupération du jeu d'enregistrements, etc...

Salut,

Voilà ce que je souhaite faire:

Pour me connecter à la base de donnée, Jutilise:

'Public Const base As String = "UID=(identifiant);PWD=(mot de passe);" & "Server=(nom du serveur);Database=(nom de la base de donnée);"

Il m'arrive parfois de devoir insérer ça dans un autre module.

Ensuite j'ai inséré ce code:
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 29 30 31 32 Private Sub test() Dim vartab Dim Sql As String Dim cnx As New ADODB.Connection Dim req As ADODB.Recordset Dim i As Integer cnx.Provider = "SQLOLEDB" 'Définition de la chaîne de connexion cnx.ConnectionString = base 'Ouverture de la base de données cnx.Open With CreateObject("Adodb.connection") .Open base Sql = "SELECT CONCAT(ville, ' - ', 'departement',) AS clt FROM client, cnx" With .Execute(Sql) If Not .EOF Then vartab = .get.Rows For Ligne = 0 To UBound(vartab) For Colonne = 0 To vartab(vartab, 2) Debug.Print vartab(Ligne, Colonne) Next Next End If .Close End With End With End Sub
Ainsi j'ouvre la connexion à la base de donnée,
Je lance la requête,
je récupère la requête dans une variable tableau.

C'est mon objectif mais là tout est bloqué.

04/09/2017, 11h04
Pierre Fauconnier

Code:

vartab = .get.Row

Je ne connais pas cette syntaxe... Par contre, je connais la méthode .getRows() attachée à un objet de type Recordset et qui pousse les données du recordset dans un tableau.

Je ne comprends pas pourquoi tu déclares un cnx que tu n'utilises pas. Inspire-toi du code que je t'ai donné et n'hésite pas à passer par des lignes intermédiaires qui permettent de travailler sur des objets déclarés.

1 pièce(s) jointe(s)

Bonjour Pierre,

bien vue ça m'apprendra à coder de mon téléphone portable!

Pièce jointe 308914

si d’habitude tu utilises

Code:

PublicConst base AsString = "UID=(identifiant);PWD=(mot de passe);" & "Server=(nom du serveur);Database=(nom de la base de donnée);"

et si ça marche, alors ne change rien! je n'est pas la liste exhaustive des mode de connexion! mais comme je ne savais pas de que type de base de données que tu utilisais j'ai mis en commentaire celles que je connaissais!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub test()Dim vartab Dim Sql As String, GenereCSTRING As String GenereCSTRING = "UID=(identifiant);PWD=(mot de passe);" & "Server=(nom du serveur);Database=(nom de la base de donnée);" With CreateObject("Adodb.connection") .Open GenereCSTRING Sql = "SELECT CONCAT(ville, ' - ', numdep,' - ', produit) as clt FROM bdclient" With connextion.Execute(Sql) If Not .EOF Then vartab = .GetRows For Ligne = 0 To UBound(vartab) For Colonne = 0 To vartab(vartab, 2) Debug.Print vartab(Ligne, Colonne) Next Next k End If .Close End With End With End Sub

Evite ce genre de code. C'est illisible.
Code:

1 2 3 4 5 6 7 8 9 With CreateObject("Adodb.connection") .Open base * Sql = "SELECT CONCAT(ville, ' - ', 'departement',) AS clt FROM client, cnx" * With .Execute(Sql) If Not .EOF Then vartab = .get.Rows For Ligne = 0 To UBound(vartab)
Travaille avec des objets déclarés, ce sera beaucoup plus simple et plus lisible. Tu pourras beaucoup mieux contrôler que tes objets sont conformes à tes attentes. Perso, je privilégie de loin la lisibilité du code à ces artifices d'écriture.

04/09/2017, 11h20
Pierre Fauconnier

Citation:

Envoyé par dysorthographie

Bonjour Pierre,

Pièce jointe 308914[...]

Je n'ai rien dit d'autre, je crois, si tu relis mes interventions... ;)

Dans le code proposé par Manufer, je vois .get.rows. Ce code est erroné, non?

1 pièce(s) jointe(s)

Citation:

Envoyé par Pierre Fauconnier

Je n'ai rien dit d'autre, je crois, si tu relis mes interventions... ;)

Dans le code proposé par Manufer, je vois .get.rows. Ce code est erroné, non?

oui j'ai réédité mon message pour corriger!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()Dim vartab
Dim Sql As String, GenereCSTRING As String
GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;"""
With CreateObject("Adodb.connection")
    .Open GenereCSTRING
    Sql = "SELECT * FROM [Feuil1$]"
    With .Execute(Sql)
        If Not .EOF Then
            vartab = .GetRows
            For Ligne = 0 To UBound(vartab)
                For Colonne = 0 To UBound(vartab, 2)
                    Debug.Print vartab(Ligne, Colonne)
                Next
            Next
        End If
        .Close
    End With
End With
End Sub

04/09/2017, 14h09
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;"
mais lorsque je remplace par :
Code:

1 2 GenereCSTRING = "UID=xxxxx;PWD=xxxxxx;" & "Server=xxxxxx;Database=xxxxxxxx;"
J'ai un message d'erreur ci-dessous:
Code:

1 2 3 With CreateObject("Adodb.connection") .Open GenereCSTRING >> message d'erreur et signalement en jaune à cette ligne.
Le message dit: [gestionnaire de pilote ODBC] source de données introuvable et nom de pilote non spécifié.

Alors qu'il me semble que tout est correcte non ?

Ok alors fais ça!

Code:

1
2
With CreateObject("Adodb.connection")
     .Open base

04/09/2017, 14h44
Pierre Fauconnier

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:
04/09/2017, 14h47
manufer

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é.
04/09/2017, 14h48
Pierre Fauconnier
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?
04/09/2017, 14h54
Pierre Fauconnier

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é.

04/09/2017, 15h07
Invité

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?
04/09/2017, 15h10
Pierre Fauconnier

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;"
04/09/2017, 15h12
manufer

C'est SQL server 2014
04/09/2017, 15h15
Invité

voila la connexion string à utiliser!

Code:

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

"
04/09/2017, 15h22
manufer

Ok merci pour tout.

Je vais voir ça.