Requete SQL Variable tableau

**manufer** · 01/09/2017, 10h39

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 :

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

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.

Invité · 01/09/2017, 11h48

Bonjour,

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
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;"""

**manufer** · 01/09/2017, 14h33

Salut dysorthographie ,

j'essaie ça.

Merci.

**manufer** · 01/09/2017, 16h48

Salut,

ça ne fonctionne pas,

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

J'ignore la raison de ce message.

Invité · 01/09/2017, 20h19

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?

**manufer** · 02/09/2017, 01h37

Salut,

C'est sur la ligne de la requête.

Invité · 02/09/2017, 09h16

Bonjour,
Oui effectivement c'est uniquement .execute!

Code désolé :

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

With .Execute(Sql)

**manufer** · 02/09/2017, 13h11

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.

**manufer** · 04/09/2017, 08h44

Salut,

J'ai un nouveau message d'erreur:

Nom : Capture BR.PNG
Affichages : 1407
Taille : 29,1 Ko

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

Qu'en pensez-vous ?

Invité · 04/09/2017, 08h50

Bonjour,

c'est encore moi!

Nom : Sans titre.png
Affichages : 1439
Taille : 26,7 Ko

Code c'est encore moi :

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

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

**manufer** · 04/09/2017, 09h48

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 :

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

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 :

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

 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 ?

**Pierre Fauconnier** · 04/09/2017, 10h33

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 :

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

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

**manufer** · 04/09/2017, 10h55

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 :

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

**Pierre Fauconnier** · 04/09/2017, 11h04

Code :

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

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.

Invité · 04/09/2017, 11h10

Bonjour Pierre,

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

Nom : Sans titre.png
Affichages : 1918
Taille : 5,4 Ko

si d’habitude tu utilises

Code :

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

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 :

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

**Pierre Fauconnier** · 04/09/2017, 11h18

Evite ce genre de code. C'est illisible.

Code :

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

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.

**Pierre Fauconnier** · 04/09/2017, 11h20

Envoyé par dysorthographie

Bonjour Pierre,

Nom : Sans titre.png
Affichages : 1918
Taille : 5,4 Ko

[...]

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?

Invité · 04/09/2017, 11h30

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 Avec mon excel courant! :

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

**manufer** · 04/09/2017, 14h09

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

Code :

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

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

mais lorsque je remplace par :

Code :

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

1
2
 
GenereCSTRING = "UID=xxxxx;PWD=xxxxxx;" & "Server=xxxxxx;Database=xxxxxxxx;"

J'ai un message d'erreur ci-dessous:

Code :

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

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 ?

Invité · 04/09/2017, 14h39

Ok alors fais ça!

Code :

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

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

Requete SQL Variable tableau

Macros et VBA Excel

Discussions similaires

Partager

Partager