IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Nom Table de base de donnée. [Débutant]


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Avril 2008
    Messages
    136
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 136
    Par défaut Nom Table de base de donnée.
    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 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
    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 : 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
     
            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.

  2. #2
    Membre extrêmement actif
    Inscrit en
    Avril 2008
    Messages
    2 573
    Détails du profil
    Informations personnelles :
    Âge : 65

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 573
    Par défaut
    Citation Envoyé par kitcarflo Voir le message
    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


    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 : 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
     
    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..

  3. #3
    Membre extrêmement actif
    Inscrit en
    Avril 2008
    Messages
    2 573
    Détails du profil
    Informations personnelles :
    Âge : 65

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 573
    Par défaut
    rebonjour

    voici un lien sur le film "le dernier des mohicans"

  4. #4
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Avril 2008
    Messages
    136
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 136
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [MySQL] Nom d'une table de base de donné phpmyadmin dans condition if
    Par Invité dans le forum PHP & Base de données
    Réponses: 9
    Dernier message: 30/01/2010, 12h49
  2. Réponses: 4
    Dernier message: 19/09/2005, 15h59
  3. Changement du nom d'une base de donnée
    Par SILO dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 20/12/2004, 15h20
  4. Transfert de table entre base de données sous delphi
    Par gregcommune dans le forum Bases de données
    Réponses: 3
    Dernier message: 27/07/2004, 07h56
  5. Modifier le nom d'une base de donnée avec erreur sy
    Par mmn dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 25/11/2003, 10h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo