Discussion :

[sovo]

Titre : Afficher les tables et champs d'une base de données
Auteur : sovo

description :
Ce code permet d'afficher toutes les tables et champs d'une base de données, ceci peut entre pratique si l'on veux connaitre sa base. Ce code fonctionne 100 % avec des bases ACCESS.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
'tout d'abord il faut bien videment ouvrir une connexion avec la base de donne
dim CNX as adodb.connection
dim Schema as adodb.recordset
 
'Connexion avec une base de donnee
Public Sub ACS_Connect()
    Set CNX = New ADODB.Connection
 
    CNX.Provider = "Microsoft.Jet.Oledb.4.0"
    CNX.ConnectionString = DBPath  'Le de ta base de donnee
 
    CNX.Open
End Sub
 
'Tout d'abord il faut deux ListBox
'Tables : qui va avoir toutes les Tables
'Champs : qui va avoir tous les champs d'une table donne
 
'Recuperation et affichage des tables dans Tables, cette procedure 
Public sub ViewTables()
 
 Set Schema = cnx.OpenSchema(adSchemaTables)
    Do Until Schema.EOF
        If Schema!TABLE_TYPE = "TABLE" Then
            Tables.AddItem Schema!TABLE_NAME   
        End If
        Schema.MoveNext
    Loop
    Schema.Close
End Sub
 
'Maintenant lorsqu'on clique sur une table (dans le listbox Tables), on affiche les champs
 'dans le Listbox Champs
 Private Sub Tables_Click()
    Champs.Clear
    Set Schema = cnx.OpenSchema(adSchemaColumns)
 
    While Not Schema.EOF
        If Schema!TABLE_NAME = Tables.Text Then 
			Champs.AddItem Schema!COLUMN_NAME
		End If
        Schema.MoveNext
    Wend
    Schema.Close
End Sub

[liquideshark]

Salut **

ta pas une idée comment faire sur ORACLE 10G???

[sovo]

Slut

J'ai pas tester car je n'ai pas oracle, mais je crois bien qu'en changans cette procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
Public Sub ACS_Connect()
    Set CNX = New ADODB.Connection
 
    CNX.Provider = "Microsoft.Jet.Oledb.4.0"
    CNX.ConnectionString = DBPath  'Le de ta base de donnee
 
    CNX.Open
End Sub

et en l'adaptant pour une connexion oracle alors je crois bien que le resultat devrais etre le meme.

PS: tu trouveras ici comment ce connecter a une base oracle Connectionstrings

[Vld44]

pour oracle, une fois que tu as branché ADO il faut exploiter les tables suivantes:

- ALL_TABLES
- ALL_COLUMNS

A chaque fois en spécifiant le user souhaité (where owner='monuser')

On peut aussi utiliser USER_TABLES et USER_COLUMNS


_________
Services à domicile, assistance aux personnes et soutien scolaire

[eagleleader]

Salut,

Juste pour dire que dans ton petit code, il y a une faute de frappe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim  as adodb.recordset

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim SCHEMA as adodb.recordset

Merci pour ce code et ta réponse SOVO !!!!