テーブル

「テーブル」の編集履歴（バックアップ）一覧はこちら

「テーブル」(2011/05/31 (火) 14:30:20) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

*インポートエラーテーブル削除
    Dim dbs As Database
    Dim tbl As TableDef
    Dim j As Long
    
    Set dbs = CurrentDb
    dbs.TableDefs.Refresh
    
    For j = dbs.TableDefs.Count - 1 To 0 Step -1
    If dbs.TableDefs(j).Name Like "*インポート エラー*" Then
    dbs.TableDefs.Delete dbs.TableDefs(j).Name
    End If
    Next j
    
    dbs.Close
    Set dbs = Nothing

*変数テーブル削除
  例1)
  strSQL = "DELETE * FROM " & strTbl    //テーブル名に(カッコ)は使わないように
                         ↑スペースが入る
  例2) 
  strSQL = "DELETE * FROM t_A" & i

*テーブルにフィールド追加
  strSQL = "ALTER TABLE テーブル名 ADD COLUMN フィールド名 INTEGER"
  DoCmd.RunSQL strSQL
  
  'フィールド名が記号の場合[]で囲む
  strSQL = "ALTER TABLE テーブル名 ADD COLUMN [<>] INTEGER"

*テーブルからフィールド削除
  'Microsoft ADO　Ext.2.8 for DDL and Security 参照設定
  Dim tbl As New ADOX.Table
  Dim cat As New ADOX.Catalog
  　
  cat.ActiveConnection = CurrentProject.Connection
  Set tbl = cat.Tables("テーブル名")
  
  tbl.Columns.Delete "フィールド名"
  
  Set tbl = Nothing
  Set cat = Nothing

*インポートエラーテーブル削除
    Dim dbs As Database
    Dim tbl As TableDef
    Dim j As Long
    
    Set dbs = CurrentDb
    dbs.TableDefs.Refresh
    
    For j = dbs.TableDefs.Count - 1 To 0 Step -1
    If dbs.TableDefs(j).Name Like "*インポート エラー*" Then
    dbs.TableDefs.Delete dbs.TableDefs(j).Name
    End If
    Next j
    
    dbs.Close
    Set dbs = Nothing

*変数テーブル削除
  例1)
  strSQL = "DELETE * FROM " & strTbl    //テーブル名に(カッコ)は使わないように
                         ↑スペースが入る
  例2) 
  strSQL = "DELETE * FROM t_A" & i

*テーブルにフィールド追加
  strSQL = "ALTER TABLE テーブル名 ADD COLUMN フィールド名 INTEGER"
  DoCmd.RunSQL strSQL
  
  'フィールド名が記号の場合[]で囲む
  strSQL = "ALTER TABLE テーブル名 ADD COLUMN [<>] INTEGER"

*テーブルからフィールド削除
  strSQL = "ALTER TABLE テーブル名 DROP COLUMN [<>]"
  DoCmd.RunSQL strSQL