Lire fichier access....sans acess

Lire fichier access....sans acess - SQL/NoSQL - Programmation

Marsh Posté le 17-12-2004 à 13:42:07    

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.

Reply

Marsh Posté le 17-12-2004 à 13:42:07   

Reply

Marsh Posté le 19-12-2004 à 20:31:19    

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

Code :
  1. Comment convertir une base de données Access à MySQL
  3.     * Télécharger et installer le connecteur MySQL ODBC
  4.     * Télécharger et installer le logiciel Access 2 MySQL
  7.     * 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.
  9.       Note : Si vous changez la sécurité, nous vous suggérons fortement de remettre votre base de données en mode privé.
  12.     * 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.

Reply

Marsh Posté le 19-12-2004 à 22:22:49    

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

Reply

Marsh Posté le 21-12-2004 à 13:35:21    

Oui, c'est possible.
 
Bouge pas, je fais un test avec Excel ;)

Reply

Marsh Posté le 21-12-2004 à 13:48:23    

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.

Reply

Marsh Posté le 21-12-2004 à 13:53:36    

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 :)

Reply

Marsh Posté le 21-12-2004 à 14:16:02    

Truc un peu plus automatisé :
 

Code :
  1. Const DSN = "DSN=bidule;UID=root;pwd="
  2. Const adSchemaTables = 20
  4. Dim tablesCpt
  5. Dim linesCpt
  6. Dim cnx
  7. Dim rs
  8. Dim schema
  9. Dim fic
  10. Dim el
  11. Dim str
  12. Dim fso
  14. tablesCpt = 0
  15. linesCpt = 0
  17. Set cnx = CreateObject("ADODB.Connection" )
  18. cnx.Open DSN
  20. Set rs = CreateObject("ADODB.RecordSet" )
  21. Set rs.ActiveConnection = cnx
  23. Set schema = cnx.OpenSchema(adSchemaTables)
  25. Set fso = CreateObject("Scripting.FileSystemObject" )
  27. Do While Not schema.EOF
  28.    If schema("TABLE_TYPE" ) = "TABLE" Then
  29.       tablesCpt = tablesCpt + 1
  30.       Set fic = fso.CreateTextFile(schema("TABLE_NAME" ) & ".csv", true)
  31.       rs.Open "select * from " & schema("TABLE_NAME" )
  32.       str = ""
  33.       For Each el in rs.Fields
  34.          str = str & Replace(el.Name, ";", "," ) & ";"
  35.       Next
  36.       fic.WriteLine(left(str, len(str) - 1))
  37.       Do While Not rs.EOF
  38.          linesCpt = linesCpt + 1
  39.          str = ""
  40.          For Each el in rs.Fields
  41.             On Error Resume Next
  42.             str = str & Replace(Replace(Replace(Replace(CStr("" & el.Value), ";", "," ), vbCr, "\n" ), vbLf, "" ), vbTab, "\t" ) & ";"
  43.             If Err <> 0 Then
  44.               str = str & "#ERROR#;"
  45.               Err.Clear
  46.             End If
  47.             On Error Goto 0
  48.          Next
  49.          if len(str) > 1 then
  50.             fic.WriteLine(left(str, len(str) - 1))
  51.          else
  52.             fic.WriteLine("" )
  53.          end if
  54.          rs.MoveNext
  55.       Loop
  56.       rs.Close
  57.       fic.Close
  58.       Set fic = Nothing
  59.   End If
  60.    schema.MoveNext
  61. Loop
  63. schema.Close
  64. cnx.Close
  66. Set fso = Nothing
  67. Set rs = Nothing
  68. Set schema = Nothing
  69. Set cnx = Nothing
  71. 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 :D


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

Marsh Posté le 21-12-2004 à 14:17:17    

FlorentG a écrit :

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 :)


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

Reply

Marsh Posté le 21-12-2004 à 14:17:57    

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...  :D

Reply

Marsh Posté le 21-12-2004 à 14:32:45    

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
Reply

Marsh Posté le 21-12-2004 à 14:32:45   

Reply

Marsh Posté le 21-12-2004 à 16:05:31    

Bravo Arjuna ;)
Ca pourra sans doute me servir

Reply

Marsh Posté le 21-12-2004 à 16:35:35    

Correction finale.
 
En effet, ça patatouillait avec MySQL :)

Reply

Marsh Posté le 22-12-2004 à 18:04:20    

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.

Reply

Marsh Posté le 22-12-2004 à 21:40:33    

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

Reply

Marsh Posté le 22-12-2004 à 22:34:14    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed