Discussion :

[hellalaboy]

bonjour
voici un petit bout de code qui permet d'afficher tous les tables contenues dans une base de données!!or quand j execute rien la liste box est vide

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
Option Explicit
 
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
    Set cn = New ADODB.Connection
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "C:\Documents and Settings\simo\My Documents\essaie.mdf.accdb"
        '.Provider = "Microsoft.Jet.OLEDB.4.0"
        '.ConnectionString = "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
        .Open
    End With
 
    Set rs = cn.OpenSchema(adSchemaTables)
    Do While Not rs.EOF
        If rs!table_type = "TABLE" Then
            List1.AddItem rs!table_name
        End If
        rs.MoveNext
    Loop
 
    rs.Close
    Set rs = Nothing
 
    cn.Close
    Set cn = Nothing
End Sub

y a un probleme dans le code?
merci

[=JBO=]

Bonjour,

y a un probleme dans le code?

A première vue pas de problème.

As-tu essayé de remplir la liste sans filtrer sur le type de table, juste pour voir ?

Code VBA :

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
 
Private Sub Form_Load()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
 
    Set cn = New ADODB.Connection
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "C:\Documents and Settings\simo\My Documents\essaie.mdf.accdb"
        .Open
    End With
 
    Set rs = cn.OpenSchema(adSchemaTables)
    Do While Not rs.EOF
        List1.AddItem rs!table_name
        rs.MoveNext
    Loop
 
    rs.Close
    Set rs = Nothing
 
    cn.Close
    Set cn = Nothing
End Sub

Peut-être que la base de données est vide ?
_

[hellalaboy]

ça marche pas mais une fois je l ai enlevé du load et je l ai consideré comme une procedure a part,ça a marché!!bizarre