Nom Table de base de donnée.

Version imprimable

Bonjour tous le monde.

Je viens demander votre aide pour un petit problème que je rencontre.

Je programme sur Visual Studio 2010 et en Vb.net. Je programme sur base de donnée en ADO,,, et je n'ai aucun problème pour me connecter à ma base de donnée Access, que ce soit pour lire, ecrire, rechercher des données. La dessus aucun problème. Pourquoi ADO, car certains m'ont déjà dit que ce n'était plus vraiment utilisé..... Parce que j'ai appris et apprend tout seul la programmation, que ça marche et que je sais le faire .... ;););)

Mais aujourd'hui, je rencontre un problème que je n'arrive pas à résoudre :oops::oops::oops: et j'ai beau chercher sur le net, je n'ai pas trouvé de réponse. J'ai trouvé des exemples en VBA mais je n'arrive pas à le convertir en Vbnet,, et encore je ne sais même pas si ça marche.

Mon problème :oops::oops::oops:
Récupérer le nom de toutes les tables dans ma base de donnée.
Je sais qu'il faut utiliser "adSchemaTables" mais rien n'y fait.

Voici un petit bout de code...........
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 conna.Provider = "Microsoft.Jet.OLEDB.4.0" conna.ConnectionString = Form1.lien_bdd.Text conna.Open() sqla1.ActiveConnection = conna orsa1 = conna.OpenSchema(ADODB.SchemaEnum.adSchemaTables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) Do Until orsa1.EOF If orsa1.Fields("TABLE_TYPE") = "TABLE" Then arr(0) = orsa1!TABLE_NAME itm = New ListViewItem(arr) Form1.ListView1.Items.Add(itm) End If Loop orsa1.Close() orsa1 = Nothing sqla1 = Nothing 'fermer la BDD conna.Close() conna = Nothing
Si vous auriez une réponse, aide à m'apporter ce serait super sympa.
Merci d'avance.

Citation:

Envoyé par kitcarflo

Bonjour tous le monde.

Pourquoi ADO, car certains m'ont déjà dit que ce n'était plus vraiment utilisé.....

Mais aujourd'hui, je rencontre un problème que je n'arrive pas à résoudre :oops::oops::oops:

Si vous auriez une réponse, aide à m'apporter ce serait super sympa.
Merci d'avance.

Pourquoi ADO,vlà le problème.
Parce que tu est le "Dernier des Mohicans"(les Mohicans sont une tribu d'Indiens Peaux Rouges du Canada aujourd’hui disparue et particulièrement féroce) .
code behind .vb exemple :

Code:

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
 
Imports ADODB
 
Public Class FormAdoDb
    '1. Using ADODB.Connection and OpenSchema method
    Private stringCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\kitcarflo\Desktop\BD\YourBD.mdb"
 
    Private Sub FormAdoDb_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListTablesADO()
 
    End Sub
    Sub ListTablesADO()
        Dim Conn As New Connection
        Dim liste As New List(Of String)
        'Open connection you want To get database objects
 
        Conn.ConnectionString = stringCon
        Conn.Open()
 
       'Get all database tables.
        Dim rsTbl As Recordset = Conn.OpenSchema(SchemaEnum.adSchemaTables)
        Do While Not rsTbl.EOF
            Dim s As String = rsTbl("TABLE_NAME").Value.ToString
 
            'Get all table columns.
            Dim rsCol As Recordset =
                Conn.OpenSchema(SchemaEnum.adSchemaColumns, _
             New Object() {Nothing, Nothing, Nothing, Nothing})
            Do While Not rsCol.EOF
                s += ", " + rsCol("COLUMN_NAME").Value.ToString
                rsCol.MoveNext()
 
            Loop
            liste.Add(s)
            rsTbl.MoveNext()
        Loop
        ListBox1.DataSource = liste
    End Sub
End Class

Bon code..

25/01/2020, 17h41
MABROUKI

rebonjour

voici un lien sur le film "le dernier des mohicans"
https://www.youtube.com/watch?v=ztwj...?v=ztwjQux14bY
31/01/2020, 18h20
kitcarflo

Bonsoir.

Merci pour l'information. Ça marche et ça fait comme j'ai besoin.

Après pour ce qui est du dernier des Mohicans,,,, personnellement, j'ai appris et apprend encore seul la prog. Donc quand je trouve un truc qui marche.... Pourquoi changer. Si tu as mieux,,,, donne mois les documents. Je regarderais.

Merci