Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18 / 9994

←次へ　｜　前へ→


	【13293】Re:SQLの規定値設定時に実行時エラー3293がでる

たらっち - 19/6/21(金) 18:56 -


	引用なし

	パスワード

よろずや様

ご回答ありがとうございます。
以下のようにADOを使用してSQLを実行したら、
cn.Execute strSQLのところで(SQL実行時)
「80004005　テーブルレベル入力規則の構文エラー。」
とエラーがでました。
strSQL内の"DEFAULT 0" を消すとエラーなく実行され、当該フィールドは数値型に変わります。
何か設定が悪いのか、プロバイダが違うのか...。
原因お分かりでしたらお教えください。よろしくお願いいたします。

↓以下ソース一部

Dim strCnString As String
Dim cn As ADODB.Connection
strCnString = "Provider=Microsoft.ACE.OLEDB.12.0;"
strCnString = strCnString & "Data Source=" & Application.CurrentDb.Name

Set cn = CreateObject("ADODB.Connection")
cn.Open (strCnString)

strSQL = "ALTER TABLE [T_106100] ALTER COLUMN [" & strYMDFld(i) & "] INTEGER DEFAULT 0;"
　　　　cn.Execute strSQL
Set cn = Nothing

▼よろずやさん：
>DEFAULT ステートメントは、Access OLE DB プロバイダーおよび ADO 経由でのみ実行できます。 Access の [SQL ビュー] ユーザーインターフェイスからこのステートメントを使用すると、エラーメッセージが返されます。
>
>ht tps://docs.microsoft.com/ja-jp/office/vba/access/concepts/structured-query-language/modify-a-table-s-design-using-access-sql
>
>だそうです。

2,378 hits

▼

【13290】SQLの規定値設定時に実行時エラー3293がでる たらっち 19/6/19(水) 14:52