récupérer les parametre d'un table MySQL avec VB

récupérer les parametre d'un table MySQL avec VB - SQL/NoSQL - Programmation

Marsh Posté le 15-04-2005 à 15:52:55    

bonjour,
 
je développe une applicationn en vb6 avec une base de donné MySQL 4.1.1
j ai besoin de récupérer les infos concernant les tables : nom de la table, nom des champs, le type du champs, NOT NULL (ou pas), la clé primaire....
 
quels criteres dois-je selectionner dans ma requete??

Reply

Marsh Posté le 15-04-2005 à 15:52:55   

Reply

Marsh Posté le 15-04-2005 à 17:03:31    

Essaie ça (c'est du VBS, ça demande adaptation)
 
C'est un script que j'avais fait à mon taff pour récupérer les infos de bases divers (Access, SQL Server, MySQL et PostGre). Ca à l'air de marcher quelque soit le DSN utilisé.
Attention cependant : là le script extrait les données des tables pour les mettres dans des fichiers d'import SQL. Faut donc bidouiller un peu pour récupérer ce que tu veux ;)
 

Code :
  1. Option Explicit
  3. ' Changez uniquement cette ligne, afin de mettre le nom du driver ODBC, et le login/pass de la base
  4. Const DSN = "DSN=bidule;UID=root;pwd="
  7. ' Déclaration des constantes
  8. Const adSchemaTables = 20
  10. ' Déclaration des variables (non typées en VBS)
  11. Dim tablesCpt
  12. Dim linesCpt
  13. Dim cnx
  14. Dim rs
  15. Dim schema
  16. Dim fic
  17. Dim el
  18. Dim str
  19. Dim fso
  21. ' Initialisation des compteurs
  22. tablesCpt = 0
  23. linesCpt = 0
  25. ' Création de l'objet de connection
  26. Set cnx = CreateObject("ADODB.Connection" )
  27. cnx.Open DSN
  29. ' Création de l'objet recordset
  30. Set rs = CreateObject("ADODB.RecordSet" )
  31. Set rs.ActiveConnection = cnx
  33. ' Interrogation de la base afin d'obtenir son shema. Correspondra à un "select * from systables" sous SQL Server par exemple
  34. ' sauf que cette syntaxe générique fonctionnera avec n'importe quelle base de données.
  35. Set schema = cnx.OpenSchema(adSchemaTables)
  37. ' Création de l'objet de gestion des fichiers
  38. Set fso = CreateObject("Scripting.FileSystemObject" )
  40. ' Parcours des tables du schema
  41. Do While Not schema.EOF
  42.    ' On ne prend en compte que les objets "TABLE" : on laisse de côté les vues et les tables système par exemple.
  43.    If schema("TABLE_TYPE" ) = "TABLE" Then
  44.       tablesCpt = tablesCpt + 1
  45.       ' On crée le fichier CSV correspondant les données de la table en cours
  46.       Set fic = fso.CreateTextFile(schema("TABLE_NAME" ) & ".csv", true)
  48.       ' On interroge la table et on en récupère la liste des données
  49.       rs.Open "select * from " & schema("TABLE_NAME" )
  50.       str = ""
  52.       ' Parcours des headers de la table, et on génère la première ligne du fichier CSV
  53.       For Each el in rs.Fields
  54.          str = str & Replace(el.Name, ";", "," ) & ";"
  55.       Next
  56.       fic.WriteLine(left(str, len(str) - 1))
  58.       ' Parcours de chaque ligne de la table
  59.       Do While Not rs.EOF
  60.          linesCpt = linesCpt + 1
  61.          str = ""
  62.          ' Récupération des données, et conversion pour les rendre compatibles avec le format CSV
  63.          For Each el in rs.Fields
  64.             On Error Resume Next
  65.             str = str & Replace(Replace(Replace(Replace(CStr("" & el.Value), ";", "," ), vbCr, "\n" ), vbLf, "" ), vbTab, "\t" ) & ";"
  66.             If Err <> 0 Then
  67.               ' Attention : Le type de données n'est pas supporté (BLOB, LONG, TEXT) ou on a trouvé une valeur nulle
  68.               If isNull(el.Value) Then
  69.                  str = str & "NULL;"
  70.               Else
  71.                  str = str & "#UNSUPPORTED DATA TYPE#;"
  72.               End If
  73.               Err.Clear
  74.             End If
  75.             On Error Goto 0
  76.          Next
  77.          ' Ecriture de la ligne dans le fichier CSV
  78.          if len(str) > 1 then
  79.             fic.WriteLine(left(str, len(str) - 1))
  80.          else
  81.             fic.WriteLine("" )
  82.          end if
  84.          ' Passage à la ligne suivante
  85.          rs.MoveNext
  86.       Loop
  87.       rs.Close
  88.       fic.Close
  89.       Set fic = Nothing
  90.    End If
  92.    ' Passage à la table suivante
  93.    schema.MoveNext
  94. Loop
  96. ' Fermeture et destruction des objets de la base de données et de gestion des fichiers.
  97. schema.Close
  98. cnx.Close
  100. Set fso = Nothing
  101. Set rs = Nothing
  102. Set schema = Nothing
  103. Set cnx = Nothing
  105. MsgBox(CStr(linesCpt) & " lignes réparties dans " & CStr(tablesCpt) & " ont été correctement exportées." )

Reply

Marsh Posté le 18-04-2005 à 08:43:03    

merci je vais essayer, je te tiens au courant

Reply

Marsh Posté le 18-04-2005 à 09:28:21    

merci pour ton aide, mais récupérer les occurences de la tables je le fais déjà...
ce qu il me faut c'est les paramètres des tables genre nombre et nom des champs, le type de donnée (text, int, bool,...), valeur par défaut, ...

Reply

Marsh Posté le 18-04-2005 à 10:48:53    

Mise à part les valeurs par défaut, mon script récupère déjà le type et le nom des champs :o (par contre, les types sont sous forme numérique, et correspondent à des constantes ADO, c'est à dire que ce sont les types "génériques" qui sont donnés)

Reply

Marsh Posté le 19-04-2005 à 10:53:27    

ok j ai trouvé mon bonheur avec  
 
show create table <matable>
il me donne l export de la crétaion de base.
mais ca ne donne pas les INSERT INTO...
connais tu une commande mysql me permettant de les obtenir, car j utilise une procedure qui est vraiment galere a gerer...
 
si qql un peu tm aider... merci

Reply

Marsh Posté le 19-04-2005 à 14:18:55    

Mon truc le fait :o

Reply

Marsh Posté le 19-04-2005 à 14:19:17    

(sauf qu'il fait pas des insert into, mais des fichiers CSV, ça demande 30 secondes à modifier)

Reply

Marsh Posté le 19-04-2005 à 16:23:58    

y a un probleme avec les fichier CSV c est qu ils sont carrément plus volumineux que des fichiers text...de plus ma table contient plus de 300 000 enregistrements, et c est vraiment pas pratique a manipuler...si tu vois ce que j veux dire.
cette table n est qu une table de test, la vrai contient des millions d enregistrements...

Reply

Marsh Posté le 19-04-2005 à 17:20:27    

Rien compris.
 
Déjà un fichier CSV, c'est au contraire le format d'extraction le plus petit possible (à côté d'un fichier à pas fixe, le nombre de caractères supplémentaires est minime).
Ensuite, tu demandes à générer des requêtes "INSERT" à la place du CSV, ce qui est au TRES GRAND MINIMUM deux fois plus volumineux qu'un CSV.
 
Comprend rien à ton truc.
 
Le CSV, c'est pas du XML hein :o

Reply

Marsh Posté le 19-04-2005 à 17:20:27   

Reply

Marsh Posté le 20-04-2005 à 09:51:26    

c est pas grave merci de ton aide, j ai trouvé une autre solution pour contourné ce problème.
 
merci, bon courage pour la suite

Reply

Sujets relatifs:

Leave a Replay

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