Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!
  1.   Become a Supporter    ::   Make a Contribution   
    Target (Recurring Monthly): $200 :: Achieved: $98

Check Column is exist

Discussion in 'Information Technology' started by Goh, Jul 28, 2006.

  1. Goh

    Goh
    Expand Collapse
    Guest

    Hi,
    How can we check column in MS Access database table is exist or not?
    The action that I would like to do is when the column is not exist in the
    database then I will alert add column to that database. But I found know why
    for me check the column exist or not.


    Please help
    Thanks in advance,
    Goh
     
  2. Loading...


  3. david epsom dot com dot au

    david epsom dot com dot au
    Expand Collapse
    Guest

    dim db as dao.database
    dim rs as dao.recordset
    dim fld as dao.field

    set rs = db.openrecordsource("tablename")
    for each fld in rs.fields
    if fld.name = "fred" then blnFound = true
    next fld

    if not blnFound then msgbox "not found"


    (david)

    "Goh" <goh@noemail.noemail> wrote in message
    news:On%232VE8oGHA.4988@TK2MSFTNGP04.phx.gbl...
    > Hi,
    > How can we check column in MS Access database table is exist or
    > not? The action that I would like to do is when the column is not exist in
    > the database then I will alert add column to that database. But I found
    > know why for me check the column exist or not.
    >
    >
    > Please help
    > Thanks in advance,
    > Goh
    >
     
  4. Brendan Reynolds

    Brendan Reynolds
    Expand Collapse
    Guest

    There are several ways to do this. Here's one of them ...

    Public Function DoesColExist( _
    ByVal TableName As String, _
    ByVal ColName As String) As Boolean

    Dim rst As ADODB.Recordset
    Set rst = CurrentProject.Connection.OpenSchema( _
    adSchemaColumns, Array(Null, Null, TableName, ColName))
    If rst.BOF And rst.EOF Then
    DoesColExist = False
    Else
    DoesColExist = True
    End If

    End Function

    Examples of use, in Immediate Window ...

    ? doescolexist("Table1", "TestText")
    True
    ? doescolexist("Table1", "NoSuchCol")
    False

    --
    Brendan Reynolds
    Access MVP

    "Goh" <goh@noemail.noemail> wrote in message
    news:On%232VE8oGHA.4988@TK2MSFTNGP04.phx.gbl...
    > Hi,
    > How can we check column in MS Access database table is exist or
    > not? The action that I would like to do is when the column is not exist in
    > the database then I will alert add column to that database. But I found
    > know why for me check the column exist or not.
    >
    >
    > Please help
    > Thanks in advance,
    > Goh
    >
     
Since you're here... we have a small favor to ask...

More people are visiting & reading SPN than ever but far fewer are paying to sustain it. Advertising revenues across the online media have fallen fast. So you can see why we need to ask for your help. Donating to SPN's is vote for free speech, for diversity of opinions, for the right of the people to stand up to religious bigotry. Without any affiliation to any organization, this constant struggle takes a lot of hard work to sustain as we entirely depend on the contributions of our esteemed writers/readers. We do it because we believe our perspective matters – because it might well be your perspective, too... Fund our efforts and together we can keep the world informed about the real Sikh Sikhi Sikhism. If everyone who writes or reads our content, who likes it, helps us to pay for it, our future would be much more secure. Every Contribution Matters, Contribute Generously!

    Become a Supporter      ::     Make a Contribution     



Share This Page