Exporter une table
sonia_mgr
Messages postés
31
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
1 juillet 2004
-
29 juin 2004 à 15:45
sonia_mgr Messages postés 31 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 1 juillet 2004 - 30 juin 2004 à 09:05
sonia_mgr Messages postés 31 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 1 juillet 2004 - 30 juin 2004 à 09:05
2 réponses
cs_mguilhem
Messages postés
69
Date d'inscription
vendredi 27 février 2004
Statut
Membre
Dernière intervention
26 novembre 2005
30 juin 2004 à 08:43
30 juin 2004 à 08:43
Salut,
récemment j'ai eu besoin d'une fonction d'import, et un ami m'en a fourni une, la voilà :
****************************************
Public Sub Deconnecter()
Dim table As TableDef
With CurrentData.AllTables
For Each table In CurrentDb.TableDefs
On Error Resume Next
If table.SourceTableName <> "" Then
CurrentDb.TableDefs.Delete table.name
CurrentDb.TableDefs.Refresh
End If
Next
End With
End Sub
Public Sub ImporterTableAccess(chemin As String, TableName As String)
Dim db As Dao.Database
Dim tbl As Dao.TableDef
Dim localtbl As Dao.TableDef
Set db = Workspaces(0).OpenDatabase(chemin)
' Set rst = db.OpenRecordset(strSql)
For Each tbl In db.TableDefs If tbl.name TableName And tbl.Connect "" Then
Set localtbl = CurrentDb.CreateTableDef(tbl.name)
localtbl.Connect = ";DATABASE=" & chemin
localtbl.SourceTableName = tbl.name
CurrentDb.TableDefs.Append localtbl
CurrentDb.TableDefs.Refresh
End If
Next
db.Close
Set db = Nothing
Set rst = Nothing
End Sub
************************************
quelques retouches à faire pour l'export, mais c'est le même principe.
Bye !
récemment j'ai eu besoin d'une fonction d'import, et un ami m'en a fourni une, la voilà :
****************************************
Public Sub Deconnecter()
Dim table As TableDef
With CurrentData.AllTables
For Each table In CurrentDb.TableDefs
On Error Resume Next
If table.SourceTableName <> "" Then
CurrentDb.TableDefs.Delete table.name
CurrentDb.TableDefs.Refresh
End If
Next
End With
End Sub
Public Sub ImporterTableAccess(chemin As String, TableName As String)
Dim db As Dao.Database
Dim tbl As Dao.TableDef
Dim localtbl As Dao.TableDef
Set db = Workspaces(0).OpenDatabase(chemin)
' Set rst = db.OpenRecordset(strSql)
For Each tbl In db.TableDefs If tbl.name TableName And tbl.Connect "" Then
Set localtbl = CurrentDb.CreateTableDef(tbl.name)
localtbl.Connect = ";DATABASE=" & chemin
localtbl.SourceTableName = tbl.name
CurrentDb.TableDefs.Append localtbl
CurrentDb.TableDefs.Refresh
End If
Next
db.Close
Set db = Nothing
Set rst = Nothing
End Sub
************************************
quelques retouches à faire pour l'export, mais c'est le même principe.
Bye !
sonia_mgr
Messages postés
31
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
1 juillet 2004
30 juin 2004 à 09:05
30 juin 2004 à 09:05
C gentil d'avoir repondu mais c'est un peu trop barbar pour moi.... J'ai trouvé qqch de plus simple avec la commande transferDatabase...
DoCmd.TransferDatabase acExport, "dBase III", "D:\Mes documents\stage", acTable, "FADMHI", "FADMHI.DBF"
Merci qd meme... ;)
So
DoCmd.TransferDatabase acExport, "dBase III", "D:\Mes documents\stage", acTable, "FADMHI", "FADMHI.DBF"
Merci qd meme... ;)
So
