Access VBA質問箱 IV

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

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


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

7012 / 9994

←次へ　｜　前へ→


	【6179】Re:SQLでも…

小僧 - 05/9/6(火) 19:54 -


	引用なし

	パスワード

▼くまさん：
こんばんは。

>sql文のようにインデックスを連続で設定もできないのですね。
>「CREATE [ UNIQUE ] INDEX index
>ON table (field [ASC|DESC][, field [ASC|DESC], ...])
>[WITH { PRIMARY | DISALLOW NULL | IGNORE NULL }]」

うーん、SQL でも同じようですね。

Sub SQLで()
'要参照設定 Microsoft DAO x.x Object Library

Dim TName As String
Dim strSQL As String

　　TName = "T_Branch"

　　If DCount("*", "MSysObjects", "Name = '" & TName & "'") > 0 Then _
　　　　DoCmd.DeleteObject acTable, TName

　　strSQL = "CREATE TABLE " & TName & " ( " _
　　　　　 & "Company Text, " _
　　　　　 & "Branch Text, " _
　　　　　 & "Post Text, " _
　　　　　 & "Address Text);"
　　
　　CurrentDb.Execute strSQL, dbFailOnError

　　strSQL = "CREATE UNIQUE INDEX idx1 " _
　　　　　 & "ON " & TName & " ( Company, Branch) " _
　　　　　 & "WITH PRIMARY;"
　　
　　CurrentDb.Execute strSQL, dbFailOnError

End Sub

「UNIQUE」を指定しても、複数フィールドだと無理でした。
(単独だといけます。)

とはいえ、TableDef オブジェクトだけでなく SQL でもいけそうですね。

745 hits

▼

【6165】VBAでのCreateIndex くま 05/9/6(火) 10:50