Lire fichier access....sans acess

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lire fichier access....sans acess

piedbleu

J'ai un fichier fic.mdb créer sous access, mais je ne possède pas access, comment puis-je l'ouvrir?
Est - il possible de l'importer ds Excel ou Mysql?
En outre je ne connais pas la structure ( nbre et type des colonnes )de ce fichier.

Publicité

gargant0

tiens je te recup ça des aide qu'il y a sur mon hebergeur:

Code :

Comment convertir une base de données Access à MySQL
* Télécharger et installer le connecteur MySQL ODBC
* Télécharger et installer le logiciel Access 2 MySQL
* Vous devez changer la sécurité de votre base de données pour permettre à n'importe quel ordinateur qui est authentifié avec votre nom d'utilisateur et votre mot de passe d'y accéder.
Note : Si vous changez la sécurité, nous vous suggérons fortement de remettre votre base de données en mode privé.
* Démarrez le logiciel Access 2 MySQL et entrez les informations demandées

Sinon, vu voir sur le site de Microsoft, j'ai entendu dire il y a quelque jour, qu'il y a une visionneuse pour tout chaque fichier micrsoft, pour pouvoir les lires de partout. Et que les lires.

pains-aux-raisins

Fatal error

[:drapal] Il se trouve que des bases Access trainent malheureusement encore dans ma boîte...

Arjuna

Aircraft Ident.: F-MBSD

Oui, c'est possible.

Bouge pas, je fais un test avec Excel

Arjuna

Aircraft Ident.: F-MBSD

Procédure faite avec Windows 2000 FR tournant avec MDAC 2.8 US et Office 2003. Les libellés et les écrans peuvent varier d'une version à l'autre, mais cette procédure reste valide, et pas besoin de posséder Access.

Installe MDAC 2.8 ni pas déjà installé.

Sous 2000, va dans le panneau de config, puis "outils d'aministration" et enfin "sources de données (ODBC)"

Clique sur l'onglet "System DSN" et fait "Add..."

Choisis "Microsoft Access Driver (*.mdb)" (fait gaffe, c'est pas "Driver do Microsoft Access (*.mdb)" ni "Microsoft Access-Trieber (*.mdb)" !

Nom : bidule
Description : machin qui contient des trucs bizarres

Ensuite, fait "selectionner" et choisi ton fichier Access.
OK.

Maintenant, t'as un DSN ODBC "bidule".

Ouvre Excel.

Va dans "Data" et fait "Import External Data > Import Data..."

Choisi "New Source..."
"ODBC DSN"
Choisi dans la liste "bidule"
Et hop, t'as plus qu'à choisir la table que tu veux importer (à refaire pour chaque table)

Après, tu ouvres cette nouvelle connection dans l'écran qui suit.

PS: Avec Excel 2003, j'ai l'impression que c'est un peu différent des anciennes version, donc là fin dépends peut-être un peu. En tout cas, sûr et certain, c'est faisable.

Dans le pire des cas, tu peux toujours créer un fichier VBS qui va aller piocher dans la base, et extraire les données dans des fichiers CSV.

FlorentG

Unité de Masse

Dans Excel 2003, chez moi faut faire comme ça :

Tu lances Excel, puis tu fait Fichier\Ouvrir. Dans la liste de s fichiers, tu prend "Bases de données Access", puis tu ouvre ton .mdb.

Une boite de dialogue s'ouvre, et tu rentre compte et mot de passe s'il le faut. Si t'as pas de mot de passe, fait juste Ok. Ensuite il te propose de choisir la table à importer.

C'est tout

Arjuna

Aircraft Ident.: F-MBSD

Truc un peu plus automatisé :

Code :

Const DSN = "DSN=bidule;UID=root;pwd="
Const adSchemaTables = 20
Dim tablesCpt
Dim linesCpt
Dim cnx
Dim rs
Dim schema
Dim fic
Dim el
Dim str
Dim fso
tablesCpt = 0
linesCpt = 0
Set cnx = CreateObject("ADODB.Connection" )
cnx.Open DSN
Set rs = CreateObject("ADODB.RecordSet" )
Set rs.ActiveConnection = cnx
Set schema = cnx.OpenSchema(adSchemaTables)
Set fso = CreateObject("Scripting.FileSystemObject" )
Do While Not schema.EOF
If schema("TABLE_TYPE" ) = "TABLE" Then
tablesCpt = tablesCpt + 1
Set fic = fso.CreateTextFile(schema("TABLE_NAME" ) & ".csv", true)
rs.Open "select * from " & schema("TABLE_NAME" )
str = ""
For Each el in rs.Fields
str = str & Replace(el.Name, ";", "," ) & ";"
Next
fic.WriteLine(left(str, len(str) - 1))
Do While Not rs.EOF
linesCpt = linesCpt + 1
str = ""
For Each el in rs.Fields
On Error Resume Next
str = str & Replace(Replace(Replace(Replace(CStr("" & el.Value), ";", "," ), vbCr, "\n" ), vbLf, "" ), vbTab, "\t" ) & ";"
If Err <> 0 Then
str = str & "#ERROR#;"
Err.Clear
End If
On Error Goto 0
Next
if len(str) > 1 then
fic.WriteLine(left(str, len(str) - 1))
else
fic.WriteLine("" )
end if
rs.MoveNext
Loop
rs.Close
fic.Close
Set fic = Nothing
End If
schema.MoveNext
Loop
schema.Close
cnx.Close
Set fso = Nothing
Set rs = Nothing
Set schema = Nothing
Set cnx = Nothing
MsgBox("Ce script grandiose vous a été offert par MagicBuzz." & vbCrLf & linesCpt & " lignes réparties dans " & tablesCpt & " ont été correctement exportées." )

Tu fais le truc précédent jusqu'à ce que le DSN "bidule" soit créé.

Puis copie-colle ce script dans un fichier "toto.vbs" que tu vas enregistrer dans un répertoire.

Double-click sur le script.

Et zou ! T'as toutes les tables qui sont extraites sous forme de CSV dans le répertoire.

PS: Ca devrait marcher avec n'importe quel pont ODBC (Une base Access tout comme une base SQL Server, MySQL, Oracle pour tarte-aux-pruneaux)

Chercher l'intrus

Message édité par Arjuna le 21-12-2004 à 16:35:10

Arjuna

Aircraft Ident.: F-MBSD

FlorentG a écrit :

Ouais, mais je donnais la solution générique, parceque y'a que 2003 qui sait ouvrir directement une base Access.

FlorentG

Unité de Masse

Arjuna a écrit :

Ouais, mais je donnais la solution générique, parceque y'a que 2003 qui sait ouvrir directement une base Access.

Ah ok...

Arjuna

Aircraft Ident.: F-MBSD

J'ai corrigé le script, parceque sinon il ne fitrait pas correctement les tables système sur les bases autres qu'Access.

Message édité par Arjuna le 21-12-2004 à 14:32:58

Publicité

pains-aux-raisins

Fatal error

Bravo Arjuna
Ca pourra sans doute me servir

Arjuna

Aircraft Ident.: F-MBSD

Correction finale.

En effet, ça patatouillait avec MySQL

piedbleu

OK merci à tous.
En effet ma version d'Excel ne permet pas la manip proposée pour ouvrir directement le .mdb.
J'étais sur la piste des sources ODBC, ss doute une erreur de procédure, je reprends avec ton descriptif Arjuna.
Pour le script je m'y penche plus tard, mais je sens le truc bien utile, donc bien joué et merci encore.

Arjuna

Aircraft Ident.: F-MBSD

Si tu as des problèmes avec mon script (pas pu tester dans de super bonnes conditions ), voici un lien qui je pense te sera très utile.

En tout cas, moi il m'a bien servi pour écrire le script

http://forum.hardware.fr/forum2.ph [...] 0&subcat=0

piedbleu

Voilà de quoi approfondir la question. C'est noté !

FORUM HardWare.fr

Programmation

SQL/NoSQL

Lire fichier access....sans acess

Sujets relatifs
[JS] écrire dans un fichier côté client ?	[VB] Enregistrer une base access en cours dexecution
Ecrire dans un fichier avec TFileStream...	effacer un ligne d'une table access en vba
Question sur traitement de données ACCESS	Perl : est il possible de lire un fichier sans le bloquer en écriture?
[access][MS SQL Serveur] migration	obtenir un fichier .c a partir d'une librairie .a
[VBA-SQL] Requete entre une table SQL Server et une table Access
Plus de sujets relatifs à : Lire fichier access....sans acess

Page générée en 0.071 secondes