récupérer tous les champs de toutes de mes tables de ma base

Question

bonjour,

je souhaiterai récupérer tous les champs de toutes de mes tables de toutes mes bases dans sql server à l'aide d'une requête.

C urgent. je suis entrain de galérer depuis 2 jours.

Merci beaucoup de votre aide

VB23 · Answer

Set rs = Db.OpenSchema(adSchemaTables)
num = 1
Do Until rs.EOF
    message = rs.Fields("TABLE_NAME").Value

    Open App.Path & "\erreur.txt" For Append As #num
    Print #num, message
    Close #num
    num = num + 1

    rs.MoveNext
Loop

ca pour les nom de table

ensuite requete avec du 

for i=0 to rs.fields.count
   rs.fields.item(i).name 'nom des champs
next

dsl c pas tres precis mais en attendant ke kelkun te fasse mieux

mohamed222222 · Answer

je mets ce code ou?comment faire la connection aux bases?

excuse moi mais c vraiment flou

cs_Nicko11 · Answer

Salut,

je sais pas si ca marche car moi je suis pas en .net mais ce qui est sur c'est qu'une erreur risque de ce produire avec ce code:

for i = 0 to rs.fields.count - 1
   rs.fields.item(i).name 'nom des champs
next

cs_Nicko11 · Answer

En plus, c'est du code visual et pas une requete.

mohamed222222, ca te derange si tu passes par un module VB au lieu d'une requete ?

mohamed222222 · Answer

non ça me dérange pas mais je sais pas du tout comment faire!!!

Je te remercie de ton aide.

cs_Nicko11 · Answer

Tu crée un module et tu y mets ce code (attention, il faut adapter en .net):

Public Sub test8()


'Aller dans projet -> référence puis cocher ADO Ext 2.8 For DLL and Security




Dim bdd As New ADOX.Catalog
Dim table As ADOX.table
Dim col As ADOX.Column
Dim str As String


Set bdd.ActiveConnection = ta_connection
For Each table In bdd.Tables
    For Each col In bdd.Tables(table.Name).Columns    
       MsgBox col.name
    Next
Next

End Sub

mohamed222222 · Answer

je vais essayer et je te tiens au courant.

merci

Gwendal3 · Answer

Salut,

Je crois que tu trouveras ta réponse deux posts plus bas...
http://www.vbfrance.com/infomsg_RECUPERER-CARACTERISTIQUES-CHAMPS-TOUTE-TABLES-DANS-DB-ACCESS_969213.aspx#2

Gwendal

mohamed222222 · Answer

Salut,

je trouves toujours pas ce que je recherche.je voudrai afficher toutes mes bases, mes tables, mes champs dans une seule table.

Merci d'avance de votre aide.
 
Bonne journée

Renfield · Answer

Est-ce que l'un de vous a vu qu'il s'agissait d'un post   .Net ?




Vous êtes ici :
Thèmes / VB.NET et VB 2005 / Base de données / ADO.NET /

je n'ai fait que lire du code VB6...

répondre, ok, mais tacher de pas répondre hors sujet,
vous risquez d'embrouillez les gens plus que de les aider.

y'a bien Gwendal3, qui a indiqué un lien en .Net ...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Récupérer tous les champs de toutes de mes tables de ma base

10 réponses

Votre réponse

Discussions similaires