Discussion :

[tanaka59]

Bonjour,

Je dispose d'access 2010 et d'une connexion ODBC à une base distante qui est sur SQLServer.

Depuis mon access avec la connexion odbc je souhaite sortir l’équivalent d'un information_schema que l'on peut avoir sur MySQL ou SAS.

Je souhaite avec le nom de toutes les tables + les champs et leurs types (integer , float , char , varchar ... )

J'ai bien testé un code VBA pour générer un état . Le code tourne mais rien n’apparait au final ... Si vous aviez une requête SQL que je peux lancer ou même des info sql manipulable je prend ...

Merci de m'aiguiller .

[Jean-Philippe André]

Salut,

une partie du tuto suivant devrait t'etre tres utile :
http://ledzeppii.developpez.com/odbc-access/
http://ledzeppii.developpez.com/odbc-access/#LV-B-2

[tanaka59]

Bonjour,

En parcourant les tables via la connexion odbc je suis tombé sur la table "sys_sysdatabase" . Je retrouve bien l'ensemble de la liste des tables.

Par contre je ne trouve pas comment liste les champs d'une table.

Merci de m'aiguiller

[Jean-Philippe André]

Salut,
un fois que tu as mis la table en question dans une variable de type TableDef tu peux faire une boucle for Each

Code :

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

1
2
3
4
5
6
dim tbl as tableDef
'affectation de variable
Dim fld As Field
For each fld in tbl.Fields
     MsgBox fld.Name
Next

[tanaka59]

Bonjour,

Votre code ne fonctionne pas voici l'utilisation en VBA :

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
25
Public Sub pgm()
 
' chaine 
 
Dim TableDef As String
 
' table
 
Dim tbl As TableDef
 
' champs de table
 
Dim fld As Field
 
' champs à saisir
 
TableDef = InputBox("Saisir le nom de la table des champs à lister.", "Fenetre de saisie")
 
'affectation de variable
 
For Each fld In tbl.Fields
     MsgBox fld.Name
Next
 
End Sub

Le code erreur : " Code erreur 91 : variable objet ou variable de bloc with non définie "

[Jean-Philippe André]

Tu n'as pas le droit de nommer une variable du nom d'un type de variable

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
Public Sub pgm()
 
' chaine 
 
Dim TableName As String
 
' table
 
Dim tbl As TableDef
 
' champs de table
 
Dim fld As Field
 
' champs à saisir
 
TableName = InputBox("Saisir le nom de la table des champs à lister.", "Fenetre de saisie")
 
'affectation de variable
set tbl = CurrentDb.tableDefs(TableName)
 
For Each fld In tbl.Fields
     MsgBox fld.Name
Next
 
End Sub

[Invité]

Bonsoir,
Pourquoi ne pas utiliser une connexion ADO?

https://msdn.microsoft.com/en-us/lib...v=bts.10).aspx

[tanaka59]

Bonsoir ,

Tu n'as pas le droit de nommer une variable du nom d'un type de variable

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
Public Sub pgm()
 
' chaine 
 
Dim TableName As String
 
' table
 
Dim tbl As TableDef
 
' champs de table
 
Dim fld As Field
 
' champs à saisir
 
TableName = InputBox("Saisir le nom de la table des champs à lister.", "Fenetre de saisie")
 
'affectation de variable
set tbl = CurrentDb.tableDefs(TableName)
 
For Each fld In tbl.Fields
     MsgBox fld.Name
Next
 
End Sub

Le code plante sur cette instruction " For Each fld In tbl.Fields " qui est considérée non déclarée.

Bonsoir,
Pourquoi ne pas utiliser une connexion ADO?

https://msdn.microsoft.com/en-us/lib...v=bts.10).aspx

Je vais me pencher sur la question ado. La première méthode ne fonctionne pas .

[tanaka59]

Bonjour ,

J'ai cherché à récupéré dans un premier les noms des champs.

Voici le code :

Code vbe :

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
Public Function FieldNames() As String
 
    Dim sTable As String
    Dim rs As DAO.Recordset
    Dim n As Long
    Dim sResult As String
 
    sTable = InputBox("Name of table?")
    If sTable = "" Then
        Exit Function
    End If
 
    Set rs = CurrentDb.OpenRecordset(sTable)
 
    With rs
        For n = 0 To .Fields.Count - 1
            sResult = sResult & .Fields(n).Name & vbCrLf
        Next 'n
        .Close
    End With
 
    Set rs = Nothing
 
    InputBox "Result:" & vbCrLf & vbCrLf _
            & "Copy this text (it looks jumbled, but it has one field on each line)", _
            "FieldNames()", sResult
 
End Function

C'est somme toute très artisanal . J'aimerai mettre la main sur un requête avec du "select columns_name ... " Pas possible sans passer par du VBA ?

[Jean-Philippe André]

Une astuce de code serait de faire ca en deux temps :
- requeteA = SELECT A,B,C,D FROM TaTable
- requeteB =

Code :

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

1
2
3
SELECT Expression 
FROM MSysQueries INNER JOIN MSysObjects ON MSysQueries.ObjectId = MSysObjects.Id
WHERE MSysQueries.Attribute = 6 AND MSysObjects.Name='requeteA'

qui te sort la liste des champs avec le nom de la table

[tanaka59]

Bonsoir ,

J'ai fait comme vous préconisez.

Un requête A que j'ai enregistré. J'ai fait un requête B qui appelle la requête A . Problème ... la table généré par la requête B est vide

Etes vous sur de votre requête ? Elle est bien pour Access et non SQL Server ?

[Jean-Philippe André]

Je suis tres etonne, cela fonctionne bien avec une table liee, donc aucune raison pour que cela ne soit pas le cas dans Access.

Peux-tu nous afficher le SQL de ta requeteA et celui de ta requeteB stp ?

[tanaka59]

Bonjour,

Je suis tres etonne, cela fonctionne bien avec une table liee, donc aucune raison pour que cela ne soit pas le cas dans Access.

Avant de lancer les requêtes tu as fait lien entre les 2 requetes ? Comment est ce possible sachant que mes requetes ne sont pas lancé donc la table temporaire n'est pas lancé ?

Peux-tu nous afficher le SQL de ta requeteA et celui de ta requeteB stp ?

Je vous ai fait un imprime écran pour montrer ce que j'ai fait comme requête :



Vous noterez si je note lst_field_part1 j'ai une table avec ces 4 lignes , si je met dbo_fournisseur j'ai une table vide en sortie.

Merci de l'aiguillage

[Jean-Philippe André]

Salut,

Ok, mais tu n'as pas fait ce que je t'ai demande

Au lieu de ton SELECT *, je t'ai dit d'ecrire SELECT A,B,C,D = = SELECT avec tous les champs derriere

[tanaka59]

Au lieu de ton SELECT *, je t'ai dit d'ecrire SELECT A,B,C,D = = SELECT avec tous les champs derriere

Je viens de changer * par la liste des champs de la table, j'ai le même résultat . 4 lignes avec - 21 miliards et des brouettes ...

La je sèche

[Jean-Philippe André]

OK

alors on va deja verifier les donnees dans la table MSysQueries.

Peux tu l'ouvrir (c'est une table systeme, donc tu peux soit passer par une requete SELECT * FROM MSysQueries soit ouvrir la table une fois celle ci affichee (Options))


et a noter que tu avais oublie la partie

Code SQL :

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

MSysQueries.Attribute = 6

dans le WHERE

[tanaka59]

OK

alors on va deja verifier les donnees dans la table MSysQueries.

Peux tu l'ouvrir (c'est une table systeme, donc tu peux soit passer par une requete SELECT * FROM MSysQueries soit ouvrir la table une fois celle ci affichee (Options))

Je viens de faire la requête j'ai bien des paramètres dedans pour " SELECT * FROM MSysQueries" :

et a noter que tu avais oublie la partie

Code SQL :

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

MSysQueries.Attribute = 6

dans le WHERE

Correction faite pour cela

[Jean-Philippe André]

OK,

et du coup si tu fais ceci :

Code :

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

1
2
3
SELECT MSysQueries.*
FROM MSysQueries INNER JOIN MSysObjects ON MSysQueries.ObjectId = MSysObjects.Id
WHERE MSysQueries.Attribute = 6 AND MSysObjects.Name='requeteA'

[tanaka59]

Code vbe :

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

1
2
3
SELECT MSysQueries.*
FROM MSysQueries INNER JOIN MSysObjects ON MSysQueries.ObjectId = MSysObjects.Id
WHERE MSysQueries.Attribute = 6 AND MSysObjects.Name='requeteA'

La requête renvoie une table vide.

[Jean-Philippe André]

avec le bon nom de requete ?