Importation dans un recordset

bonjour
oui
dim bd as dao.database
Set bd = OpenDatabase("fichier.xls", False, False, "excel 8.0")
ou
Set bd = OpenDatabase("c:mabase.mdb")
--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Robert Parise" <robert.parise@videotron.ca> a écrit dans le message de news: nOVpf.57903$ww2.753920@wagner.videotron.net...

Est-il possible d'importer des données provenant d'une autre base de donnée Access ou d'un fichier Excel directement dans un
recordset?
Actuellement, j'importe les donnnées dans une table et ensuite je cré mon recordset. Est-il possible de sauter l'étape
d'importation de la table pour importer dans le recordset

Merci!

Voici une réponse

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim varPath ' la localisation de la base de donnée est variable

If Not IsNull(Me!txtProjectPath) Then

If Dir(Me!txtProjectPath & "/Dessin/BOM.mdb") = "BOM.mdb" Then
varPath = Me!txtProjectPath & "/Dessin/BOM.mdb"
ElseIf Dir(Me!txtProjectPath & "/Dessins/BOM.mdb") = "BOM.mdb" Then
varPath = Me!txtProjectPath & "/Dessins/BOM.mdb"
Else
MsgBox " Le répertoire ou la base de donnée n'a pas été trouvé.
Vérifier vos données"
Exit Sub
End If

cnn.CursorLocation = adUseClient
cnn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" &
varPath & " ;Uid­min;Pwd="

cnn.Open
rst.Open "Select * From [BOM Export Table] ", cnn, adOpenKeyset,
adLockOptimistic

Et ca fonctionne....




"Robert Parise" <robert.parise@videotron.ca> a écrit dans le message de
news: nOVpf.57903$ww2.753920@wagner.videotron.net...

Est-il possible d'importer des données provenant d'une autre base de
donnée Access ou d'un fichier Excel directement dans un recordset?
Actuellement, j'importe les donnnées dans une table et ensuite je cré mon
recordset. Est-il possible de sauter l'étape d'importation de la table
pour importer dans le recordset

Merci!