A voir également:
- [VBA \ SQL] Executer une requete sous vba
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
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