Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Import ODBC depuis FrontEnd vers Backend

Import ODBC depuis FrontEnd vers Backend

3 réponses
Avatar
Pascal02
Bonsoir à tous les Accessistes du dimanche (dont je fais partie ! ) et les
Experts de toujours,

J'avais jusqu'à lors un bout de code tel que ci-dessous qui fonctionnait
jusqu'a ce que
je fractionne ma base en une "principale' et une pour les 'datas'

ET depuis ... ca marche beaucoup moins bien :-(

ET pour cause ma base que j'importais n'est plus locale mais elle est dans
la base 'DATAS'

>> J'ai fais une 'table locale' qui contient 2 champs :
1 pour le chemin de la base 'datas' et 1 pour le nom de la base 'datas'

MAIS ensuite je ne sais plus trop quoi faire pour modifier ce petit bout de
code afin
qui fonctionne à nouveau

MERCI d'avance - c'est mon cadeau de noël ! ! !

PASCAL

----------------------------------------------------------------------------
---------------------------
Private Sub Commande0_Click()
Dim MaBase As DAO.Database
Dim Tbl As DAO.TableDef
Dim Matable As DAO.TableDef

Set MaBase = CurrentDb() ' Ouverture base de données

Set Tbl = CurrentDb.TableDefs("TABLE_IMPORTEE")

DoCmd.TransferDatabase acImport, "Base de données ODBC", "ODBC;DSN=Oracle 7
Vora;server=base_j", _
acTable, "TABLE.A_IMPORTER", "TABLE_IMPORTEE"

.../...
----------------------------------------------------------------------------
---------------------------
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Anor
Bonjour,

Au pif, je remplacerais :
Set MaBase = CurrentDb()

par

Set MaBase = "X:LeCheminLaBaseQuiContientLesTables.mdb"


--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Pascal02 :
| Bonsoir à tous les Accessistes du dimanche (dont je fais partie ! )
| et les Experts de toujours,
|
| J'avais jusqu'à lors un bout de code tel que ci-dessous qui
| fonctionnait jusqu'a ce que
| je fractionne ma base en une "principale' et une pour les 'datas'
|
| ET depuis ... ca marche beaucoup moins bien :-(
|
| ET pour cause ma base que j'importais n'est plus locale mais elle est
| dans la base 'DATAS'
|
||| J'ai fais une 'table locale' qui contient 2 champs :
| 1 pour le chemin de la base 'datas' et 1 pour le nom de la base
| 'datas'
|
| MAIS ensuite je ne sais plus trop quoi faire pour modifier ce petit
| bout de code afin
| qui fonctionne à nouveau
|
| MERCI d'avance - c'est mon cadeau de noël ! ! !
|
| PASCAL
|
| ----------------------------------------------------------------------------
| ---------------------------
| Private Sub Commande0_Click()
| Dim MaBase As DAO.Database
| Dim Tbl As DAO.TableDef
| Dim Matable As DAO.TableDef
|
| Set MaBase = CurrentDb() ' Ouverture base de données
|
| Set Tbl = CurrentDb.TableDefs("TABLE_IMPORTEE")
|
| DoCmd.TransferDatabase acImport, "Base de données ODBC",
| "ODBC;DSN=Oracle 7 Vora;serverºse_j", _
| acTable, "TABLE.A_IMPORTER", "TABLE_IMPORTEE"
|
| .../...
| ----------------------------------------------------------------------------
| ---------------------------
Avatar
Pascal02
Bonsoir,

A part qu'il s'agit d'une Table fréquemment importée
que c'est une appli partagée sur un réseau

et que j'aurais préféré avec des variables provenant
de ma table config contenant les champs :
'Chemin de la base' et 'Datas' et j'y arrive pas trop !

Merci quand meme pour ta proposition !

Cordialement
PASCAL

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:ers3ZV%
Bonjour,

Au pif, je remplacerais :
Set MaBase = CurrentDb()

par

Set MaBase = "X:LeCheminLaBaseQuiContientLesTables.mdb"


--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Pascal02 :
| Bonsoir à tous les Accessistes du dimanche (dont je fais partie ! )
| et les Experts de toujours,
|
| J'avais jusqu'à lors un bout de code tel que ci-dessous qui
| fonctionnait jusqu'a ce que
| je fractionne ma base en une "principale' et une pour les 'datas'
|
| ET depuis ... ca marche beaucoup moins bien :-(
|
| ET pour cause ma base que j'importais n'est plus locale mais elle est
| dans la base 'DATAS'
|
||| J'ai fais une 'table locale' qui contient 2 champs :
| 1 pour le chemin de la base 'datas' et 1 pour le nom de la base
| 'datas'
|
| MAIS ensuite je ne sais plus trop quoi faire pour modifier ce petit
| bout de code afin
| qui fonctionne à nouveau
|
| MERCI d'avance - c'est mon cadeau de noël ! ! !
|
| PASCAL
|

| --------------------------------------------------------------------------

--
| ---------------------------
| Private Sub Commande0_Click()
| Dim MaBase As DAO.Database
| Dim Tbl As DAO.TableDef
| Dim Matable As DAO.TableDef
|
| Set MaBase = CurrentDb() ' Ouverture base de données
|
| Set Tbl = CurrentDb.TableDefs("TABLE_IMPORTEE")
|
| DoCmd.TransferDatabase acImport, "Base de données ODBC",
| "ODBC;DSN=Oracle 7 Vora;serverºse_j", _
| acTable, "TABLE.A_IMPORTER", "TABLE_IMPORTEE"
|
| .../...

| --------------------------------------------------------------------------

--
| ---------------------------




Avatar
Pascal02
Bonsoir,

Pas une petite idée, un bout de modif pour mon pauv' bout de code !

PASCAL

"Pascal02" a écrit dans le message de
news:3fe5e8c7$0$22313$
Bonsoir,

A part qu'il s'agit d'une Table fréquemment importée
que c'est une appli partagée sur un réseau

et que j'aurais préféré avec des variables provenant
de ma table config contenant les champs :
'Chemin de la base' et 'Datas' et j'y arrive pas trop !

Merci quand meme pour ta proposition !

Cordialement
PASCAL

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
de

news:ers3ZV%
Bonjour,

Au pif, je remplacerais :
Set MaBase = CurrentDb()

par

Set MaBase = "X:LeCheminLaBaseQuiContientLesTables.mdb"


--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Pascal02 :
| Bonsoir à tous les Accessistes du dimanche (dont je fais partie ! )
| et les Experts de toujours,
|
| J'avais jusqu'à lors un bout de code tel que ci-dessous qui
| fonctionnait jusqu'a ce que
| je fractionne ma base en une "principale' et une pour les 'datas'
|
| ET depuis ... ca marche beaucoup moins bien :-(
|
| ET pour cause ma base que j'importais n'est plus locale mais elle est
| dans la base 'DATAS'
|
||| J'ai fais une 'table locale' qui contient 2 champs :
| 1 pour le chemin de la base 'datas' et 1 pour le nom de la base
| 'datas'
|
| MAIS ensuite je ne sais plus trop quoi faire pour modifier ce petit
| bout de code afin
| qui fonctionne à nouveau
|
| MERCI d'avance - c'est mon cadeau de noël ! ! !
|
| PASCAL
|



| --------------------------------------------------------------------------

--
| ---------------------------
| Private Sub Commande0_Click()
| Dim MaBase As DAO.Database
| Dim Tbl As DAO.TableDef
| Dim Matable As DAO.TableDef
|
| Set MaBase = CurrentDb() ' Ouverture base de données
|
| Set Tbl = CurrentDb.TableDefs("TABLE_IMPORTEE")
|
| DoCmd.TransferDatabase acImport, "Base de données ODBC",
| "ODBC;DSN=Oracle 7 Vora;serverºse_j", _
| acTable, "TABLE.A_IMPORTER", "TABLE_IMPORTEE"
|
| .../...



| --------------------------------------------------------------------------

--
| ---------------------------