[VBA \ SQL] Executer une requete sous vba
Fermé
Bonjour,
J'ai actuellement une requete écrite dans un fichier sql.
Je voudrais créer une macro qui lancerais cette requete sous Excel et qui exporterais le résultat dans un fichier texte. Le problème c'est que je ne sais pas comment m'y prendre. J'ai vu que excel pouvais importer les résultat dans la feuille donc visiblement il peut lire et executer les fichiers de facon manuelle.
J'aimerais automatiser la chose et le faire de facon automatique avec VBA
Merci de votre aide
J'ai actuellement une requete écrite dans un fichier sql.
Je voudrais créer une macro qui lancerais cette requete sous Excel et qui exporterais le résultat dans un fichier texte. Le problème c'est que je ne sais pas comment m'y prendre. J'ai vu que excel pouvais importer les résultat dans la feuille donc visiblement il peut lire et executer les fichiers de facon manuelle.
J'aimerais automatiser la chose et le faire de facon automatique avec VBA
Merci de votre aide
A voir également:
- [VBA \ SQL] Executer une requete sous vba
- Mkdir vba ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
- Vba range avec variable ✓ - Forum VB / VBA
- Requête sql pix - Forum Python
5 réponses
Quelqu'un aurais une idée parce que moi je bloque vraiment
j'arrive pas a exporter le resultat de la requete dans un fichier texte
j'arrive pas a exporter le resultat de la requete dans un fichier texte
En cherchant je commence a y voir plus clair
mais j'y arrive tjs pas
le truc c'est que j'ai une base en *.mdf
et avec DAO.Recordset il me dit que le format de base de données est non reconnus
j'ai pas reussi a trouver la fonction pour ouvrir une base de données en *.mdf
des idees?
mais j'y arrive tjs pas
le truc c'est que j'ai une base en *.mdf
et avec DAO.Recordset il me dit que le format de base de données est non reconnus
j'ai pas reussi a trouver la fonction pour ouvrir une base de données en *.mdf
des idees?
J'ai fais un truc dans ce genre:
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSQL As String
' Ouverture de la base de données
Set db = DBEngine.OpenDatabase("C:\Program Files\Napac\Kerwin\Kerwin.mdb")
' Requete Sql
sSQL = "SELECT * FROM site"
' Ouverture du recordset
Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
' Resultat de la requete
Cells(1, 1).CopyFromRecordset rst
' Fermeture du Recordset
rst.Close
Mais ca marche pour une base de donnees en .mdb
mais pas pour une base de donnes en .mdf
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim sSQL As String
' Ouverture de la base de données
Set db = DBEngine.OpenDatabase("C:\Program Files\Napac\Kerwin\Kerwin.mdb")
' Requete Sql
sSQL = "SELECT * FROM site"
' Ouverture du recordset
Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
' Resultat de la requete
Cells(1, 1).CopyFromRecordset rst
' Fermeture du Recordset
rst.Close
Mais ca marche pour une base de donnees en .mdb
mais pas pour une base de donnes en .mdf
Ya aussi un autre truc c'est que pour le moment j'exporte le resultat dans le fichier excel avec la ligne:
Cells(1, 1).CopyFromRecordset rst
mais ce que je voudrais c'est l'exporter dans un fichier texte
Cells(1, 1).CopyFromRecordset rst
mais ce que je voudrais c'est l'exporter dans un fichier texte
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question