Liste tables et propriété colonnes

Liste tables et propriété colonnes - VB/VBA/VBS - Programmation

Marsh Posté le 30-08-2005 à 20:23:14    

Salut,
 
J'ai dressé la liste des tables de ma base par la fonction Tabledefs.
Je souhaite récupérer les types de chaque colonne.
 
Pour l'instant je procède par une requete générique sur les tables et je test le type de chaque FIELD par la propriété TYPE qui retourne par exemple le code 203 pour un type DBMEMO.
 
Merci pour vos réponses....

Reply

Marsh Posté le 30-08-2005 à 20:23:14   

Reply

Marsh Posté le 31-08-2005 à 09:23:05    

Bonjour,
 
Un truc comme ça ?
 
 ' Définition des types de champs
 Function GetFieldType(FieldType)
  Select Case FieldType
   Case 200
    GetFieldType= "VarChar"
   Case 139
    GetFieldType= "Number"
   Case 131, 2, 3, 5
    GetFieldType= "Number"
   Case 135
    GetFieldType= "Date"
   Case 201
    GetFieldType= "Clob"
   Case Else
    GetFieldType= "Unknown"
  End Select
 End Function
 
 Set Conn = Server.CreateObject("ADODB.Connection" )
 Set FieldsRs = Server.CreateObject("ADODB.Recordset" )
 Conn.Open MonDSN
 ' Récupération des noms de champs
 SQL = "Select * from MaTable where 1=2"
 fieldsrs.Open SQL, Conn, 0, 1
 For j = 0 to fieldsrs.Fields.count-1
  ' Remplissage de la liste
                msgbox "MaTable." & lcase(fieldsrs.Fields(j).Name) & " (" & GetFieldType(FieldsRs.Fields(j).type) & " )"
 Next
 fieldsrs.Close
 Conn.Close
 Set Conn = Nothing

Reply

Sujets relatifs:

Leave a Replay

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