Welcome to SPN

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

Sign Up Now!

Delete all records in a table

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

  1. j

    j
    Expand Collapse
    Guest

    I am trying to delete/clear all records in a table using visual basic. How do
    I do this? Thanks.
     
  2. Loading...


  3. fredg

    fredg
    Expand Collapse
    Guest

    On Fri, 23 Jun 2006 14:01:02 -0700, j wrote:

    > I am trying to delete/clear all records in a table using visual basic. How do
    > I do this? Thanks.


    Dim strSQL as String
    strSQL = "Delete YourTableName.* from YourTableName;"
    CurrentDb.Execute strSQL, dbFailOnError

    --
    Fred
    Please respond only to this newsgroup.
    I do not reply to personal e-mail
     
  4. Wolfgang Kais

    Wolfgang Kais
    Expand Collapse
    Guest

    Hi J.

    "j" wrote:
    > I am trying to delete/clear all records in a table using visual basic.
    > How do I do this? Thanks.


    Using dao in vba:
    CurrentDb.Execute "Delete From [a tablename]"

    --
    Regards,
    Wolfgang
     
  5. j

    j
    Expand Collapse
    Guest

    Thanks so much. Sorry to bug you again, but do you know how to change a field
    from unindexed to indexed using VB?

    "Wolfgang Kais" wrote:

    > Hi J.
    >
    > "j" wrote:
    > > I am trying to delete/clear all records in a table using visual basic.
    > > How do I do this? Thanks.

    >
    > Using dao in vba:
    > CurrentDb.Execute "Delete From [a tablename]"
    >
    > --
    > Regards,
    > Wolfgang
    >
    >
    >
     
  6. Wolfgang Kais

    Wolfgang Kais
    Expand Collapse
    Guest

    Hi J.

    "j" wrote:
    >>> I am trying to delete/clear all records in a table using visual basic.
    >>> How do I do this? Thanks.


    >> Using dao in vba:
    >> CurrentDb.Execute "Delete From [a tablename]"


    > Thanks so much. Sorry to bug you again, but do you know how to
    > change a field from unindexed to indexed using VB?


    Have you checked online help? You can use dao code too.
    The following code segment creates an index named indexname
    for a field named fieldname in a table named tablename:

    Dim dbs As Database, tdf As TableDef, idx As Index
    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs("tablename")
    With tdf
    Set idx = .CreateIndex("indexname")
    With idx
    .Fields.Append .CreateField("fieldname")
    ' you could use ".Unique = True" here
    End With
    .Indexes.Append idx
    End With
    Set idx = Nothing
    Set tdf = Nothing
    Set dbs = Nothing

    --
    Regards,
    Wolfgang
     

Share This Page