Accès: Comment trouver un champ dans une base de données entière?

J'ai une base de données access avec de nombreux tableaux. Je suis à la recherche d'un terrain qui peut ou ne peut pas exister dans un ou plusieurs tableaux. Comment puis-je vérifier s'il existe ou pas? (sans interroger chaque table de cours)

InformationsquelleAutor tksy | 2008-12-22
  1. 2

    Il y a un schéma pour les champs:

    Set cn = CurrentProject.Connection

SelectFieldName = "SomeFieldName" 

'Get names of all tables that have a column = SelectFieldName '
Set rs = cn.OpenSchema(adSchemaColumns, _
Array(Empty, Empty, Empty, SelectFieldName))

    À partir de: MS Access: Comment contourner/supprimer une erreur?

    InformationsquelleAutor Fionnuala
  2. 3

    Si vous vraiment ne veux pas ouvrir une table, une solution est d'utiliser le tabledefs la collecte de l'objet de base de données. Chaque tabledef élément a son propre fields collection que vous pouvez parcourir. Cela donnerait quelque chose comme ça:

    Public function findFieldInDatabase(p_myFieldName)
    dim db as database, _
        tb as tabledef, _
        fd as field

    set db = currentDb
    for each tb in db.tabledefs
        for each fd in tb.fields
            if fd.name = p_myFieldName then
                debug.print tb.name, fd.name
            end if
        next fd
    next tb
    set fd = nothing
    set tb = nothing
    set db = nothing
end function

    Ce code peut être facilement adapté à accepter une option p_myTableName comme un argument pour limiter la recherche à une table/gamme de tables.

    • Philippe, Pourquoi faites-vous cela ", _" trick avec les dim s? Est-il un énorme avantage sur les multiples de gpd?
    • BIBD, c'est juste un moyen propre à empiler les déclarations à la verticale sans avoir à le répéter "Dim" mot-clé.
    InformationsquelleAutor Philippe Grondier
  3. 2

    Voici ce que je ferais si je voulais voir si une colonne particulière (identifié dans strSearch) dans un tableau particulier.

    Public Sub search()

Dim db As Database
Dim strSearch As String
Dim strSQL As String
Dim rsResults As Recordset
Dim i As Integer
Dim cols As Integer

    strSearch = "a3"

    Set db = CurrentDb
    strSQL = "select * from bar"
    Set rsResults = db.OpenRecordset(strSQL, dbOpenDynaset, dbReadOnly)
    If Not rsResults.BOF Then
        rsResults.MoveFirst
    End If

    cols = rsResults.Fields.Count - 1 ' -1 because we start counting cols at 0
    For i = 0 To cols
        If rsResults(i).Name = strSearch Then
            MsgBox "Found the seach string"
        End If
    Next
    MsgBox "end of script"

End Sub

    Maintenant, je sais que vous ne voulez pas écrire l'un de ceux pour chaque table. La prochaine chose à faire serait de faire une boucle par toutes les tables. Vous pouvez trouver une liste de toutes les tables avec le SQL suivant

    SELECT 
    name
FROM 
    MSysObjects 
WHERE 
    (Left([Name],1)<>"~") 
    AND (Left([Name],4) <> "MSys") 
    AND ([Type] In (1, 4, 6))

    Le raccordement de ces deux pièces ensemble, je vais le laisser comme un exercice pour l'étudiant 🙂

    • Il y a un moyen plus facile à l'aide d'ADO Schémas
    • Mais si le code est exécuté dans l'Accès nécessite un supplément de référence de la bibliothèque (sauf si vous utilisez la liaison tardive, je suppose). Le contexte dans lequel le code sera exécuté n'était pas précisé par le premier interlocuteur. Pour moi, DAO est manifestement le premier choix pour Jet de données si vous travaillez dans l'Accès lui-même.
    • ma ', _' truc, c'est juste une règle de mise en forme pour la déclaration de la variable. Rend les choses plus lisibles. Vous pouvez également utiliser la même astuce lors de l'énumération d'une fonction des paramètres. Une autre "école" est http://www.stackoverflow.com/questions/166657/do-you-have-your-own-dnutndt-do-not-use-thisnever-do-that-list#166717
    • Oui, j'ai souvent le faire avec des fonctions où les paramètres qui l'étendent au-delà de 80 caractères. Je suis toujours enclin à faire un distinct dim sur chaque ligne. J'espérais juste il y a quelques notable avantage pour elle (comme la vitesse d'exécution), mais chacun à son propre.
    • "Pour moi, le DAO est manifestement le premier choix pour Jet de données". Mais dans ce cas particulier, sûrement l'ADO solution est préférable, car la méthode OpenSchema renvoie un jeu d'enregistrements comprenant uniquement des matchs. Le DAO implique beaucoup de bouclage pour trouver les matches de vous-même. Le supplément de référence n'est pas cher!
    InformationsquelleAutor BIBD
  4. 0

    Voici comment accéder au schéma de la table dans microsoft Access à l'aide de VBScript:

    TestData = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=c:\somefolder\YOURDB.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open TestData

Set rs = Conn.OpenSchema(4)

do until Rs.eof
    tn = RS("TABLE_NAME")
    fn = RS("COLUMN_NAME")
    ' your script goes here
loop
    • Il y a un schéma de colonne.
    InformationsquelleAutor Diodeus - James MacFarlane
  5. 0

    Ici, vous allez:

    Public Function fTableExists(ByVal vstrTable As String) As Boolean
    Dim rs As ADODB.Recordset
    Set rs = CurrentProject.Connection.OpenSchema( _
           adschematables, Array(Empty, Empty, vstrTable))
    fTableExists = Not rs.EOF
    rs.Close
    Set rs = Nothing
End Function

Public Function fColumnExists(ByVal vstrTable As String, _
                              ByVal vstrColumn As String) As Boolean
    Dim rs As ADODB.Recordset
    Set rs = CurrentProject.Connection.OpenSchema(adSchemaColumns, _
      Array(Empty, Empty, vstrTable, vstrColumn))
    fColumnExists = Not rs.EOF
    rs.Close
    Set rs = Nothing
End Function
    • Et peut-être une petite explication sur comment utiliser ces fonctions seraient utiles. Surtout ces fonctions semblent assumer une base de données ouverte de connexion.
    InformationsquelleAutor Larry Wilson
  6. -1

    MSSQL
    La recherche de ADRESSE1 colonne:
    sélectionnez donc.nom de sysobjects donc
    où donc.id in (select sc.id de syscolumns sc where name like 'ADRESSE1')

    ORACLE
    http://en.wikipedia.org/wiki/Oracle_metadata

    Google va trouver la syntaxe pour les autres DBs...

    • La base de données ms-access. Il le dit dans le post original.
    InformationsquelleAutor ericp
  7. -1

    Quel type de base de données est-il? Si c'est SQL Server, vous pouvez essayer ceci:

    SELECT * FROM sysobjects WHERE xtype = 'U' AND name = 'myTable'

    Mais puisque c'est la colonne qui vous intéresse, et pas une table (merci Brian), essayez ceci:

    SELECT 
    DISTINCT
    so.[name] AS 'Table',
    sc.[name] AS 'Column' 
    FROM 
        syscolumns sc
    JOIN
        sysobjects so
        ON
            so.id = sc.id
    WHERE 
        sc.[name] = 'myTable'
    • Il est à la recherche d'une colonne qui n'a pas un tableau. Proche cependant.
    • Bon point. Modifié pour refléter ce fait.
    • La base de données ms-access. Il le dit dans le post original.
    • Non, il le dit dans la modification post. Le post original (ne pas le dire.
    InformationsquelleAutor Paul Mitchell