構文エラーが発生するALTER TABLEステートメントのDEFAULT句

Question

データベースエンジンとしてAccess 97データベースとJet 3.5を使用する古いVisual Basic 5アプリケーションのカスタマイズを希望する顧客がいます。

目的のカスタマイズでは、既存のテーブルに列を追加する必要があります。次はうまくいきます：

strSQL = "ALTER TABLE Users ADD COLUMN Status BYTE" 
pdbDatabase.Execute strSQL 

ただし、新しい列にはデフォルト値（0または1）を設定します。

strSQL = "ALTER TABLE Users ADD COLUMN Status BYTE DEFAULT 1" 

しかし、彼らは、私は、というエラーですべての結果

、この問題を調査中で」「ALTER TABLE文で構文エラーを（3293）を。」：私は、次および多くのバリエーションを試してみましたAccess 97とJet 3.5の古い構成でサポートされていないDEFAULT句には表示されない情報があります。

誰でもこれを確認することができますか、これを正しく動作させるには正しい方向に向いていますか？

ありがとうございました。

Answer 1

Access 97/Jet 3.5のSQLドキュメントDEFAULT句の記述は、ALTER TABLEステートメントまたはCREATE TABLEステートメントの記述時に行われません。これは、Jet 4.0の新機能としてここに記載されています：http://support.microsoft.com/kb/275561

私が確かに知っている唯一の方法は、デフォルト値を設定することです。GUIのテーブルデザインを開き、次にフィールドのプロパティをデフォルト値。 Access 97のインストールにアクセスできますか？

VB/VBAでは、おそらくフィールドのデフォルト値プロパティにアクセスして設定や変更を行うことができます.Sqlを使用しないでください。

Answer 2

これは、DAOオブジェクトを使用して行うことができます。

Microsoftがアクセステーブルを変更する方法について、これを言う：また

、そのようなフィールドのValidationRuleとのDefaultValueプロパティなどのMicrosoft Access固有の性質、特定のタイプは、唯一のMicrosoft Accessユーザーインターフェイスを介して設定することができ、またはコードでDAOを使用します。

以下のリンクから詳細を読むことができます。例がありますが、DefaultValueプロパティを使用して具体的にどこに表示されるか分かりませんでした。 http://technet.microsoft.com/en-us/library/cc966376.aspx