大変お世話になります。
Access 2007 ADPファイルにて SQL Server 2005 との接続でのシステムを運用しています。
テーブル情報のフィールド説明欄(Description) の値の一覧を取得したいと思い下記のプログラムを作ってみたのですが、Descriptionの値以外はおおむね取得できるのですが、説明欄のところがすべてエラーになってしまい説明欄の Description の取得ができません。
格納場所か、プロパティの参照の仕方が原因だと思うのですが、解決できません。
テーブルの説明欄(Description)値の参照の仕方をご存じの方がいらっしゃいましたら何卒ご教授いただければと存じます。
よろしくお願いいたします。
Dim Cn As ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim SQL As String
Dim i As Integer
Set Cn = CurrentProject.Connection
SQL = " SELECT dbo.テーブルA.* "
SQL = SQL & " FROM dbo.テーブルA"
Dim MyDB As New ADOX.Catalog
Dim MyTable As ADOX.Table
Dim MyField As ADOX.Column
MyDB.ActiveConnection = CurrentProject.Connection
Set MyTable = MyDB.Tables("テーブルA")
Rs.Open SQL, Cn, adOpenForwardOnly, adLockReadOnly
For i = 0 To Rs.Fields.Count - 1
MsgBox Rs.Fields(i).Name
'MsgBox MyTable.Columns(Rs.Fields(j).Name).Properties("Description").Value
MsgBox Rs.Fields(i).Properties("Description").Value
MsgBox Rs.Fields(i).ActualSize
MsgBox Rs.Fields(i).Attributes
'MsgBox Rs.Fields(i).DataFormat
MsgBox Rs.Fields(i).DefinedSize
MsgBox Rs.Fields(i).NumericScale
'MsgBox Rs.Fields(i).OriginalValue
MsgBox Rs.Fields(i).Precision
'MsgBox Rs.Fields(i).Properties("Description")
MsgBox Rs.Fields(i).Status
MsgBox Rs.Fields(i).Type
'MsgBox Rs.Fields(i).UnderlyingValue
MsgBox Rs.Fields(i).Value
Next
Set MyDB = Nothing
Rs.Close
Set Rs = Nothing
Cn.Close
Set Cn = Nothing
Exit Sub
No.2ベストアンサー
- 回答日時:
WHERE句の条件を設定?JOINの・・?かな?と思いますが、
ごめんなさい。私にゃ無理です。
こちらを閉じて、カテゴリを技術者向け→データベース→SQLServer にて
ご相談されるか、
餅は餅屋に
http://social.msdn.microsoft.com/Forums/ja-JP/ho …
でお尋ねされては?
全否定するつもりはありませんが、マルチポストはご遠慮くださいね。
nicotinism さん お世話になります。
すみません。
この場合はほぼ、SQL Server のカテゴリになりますね。
カテゴリを移して改めて質問しようと思っております。
質問にお付き合いいただきありがとうございました。
No.1
- 回答日時:
この回答への補足
nicotinism さん お世話になります。
情報ありがとうございます。
試してみたのですが、指定したコレクションが見つかりませんと表示されてしまいます。
これは表示されるのではと思ったのですが、残念です;;
SQL = " select t.name as TABLE_NAME ,c.name as COLUMN_NAME ,ep.value as COMMENT from sys.tables t ,sys.columns c ,sys.extended_properties ep "
SQL = SQL & " where t.name = '該当テーブル名' "
SQL = SQL & " and t.object_id = c.object_id "
SQL = SQL & " and c.object_id = ep.major_id "
SQL = SQL & " and c.column_id = ep.minor_id;"
上記のSQL文を実行して、COMMENT列が コメントとして取得できるような記述があったのですが、実行するとコメント(説明)以外のプロパティも参照されるようで、いろいろと不必要な物も表示されてしまいます。あくまでもテーブル内のフィールドの説明だけを取り出すにはどうしたらよいでしょうか?
もしおわかりになられるようでしたら、ぜひご教授いただければと存じます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
これって喉仏ですか? 私は女性...
-
甲状腺が腫れているが血液検査...
-
風俗店へ行く前のご飯
-
精子に血が・・・
-
精子が黄色?
-
至急!尿検査前日にオナニーし...
-
アクエリアスが苦く感じる
-
高三男子です。足の裏に画像の...
-
筋トレするとチンコが縮んじゃ...
-
口の中に黒い血の塊
-
EXCELで式からグラフを描くには?
-
精液の落とし方を教えてください
-
足がまだら模様になります。ど...
-
急に主人の性欲が強くなった
-
汚い話ですみません。 検便って...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
精子が黄色?
-
EXCELで条件付き書式で空白セル...
-
至急!尿検査前日にオナニーし...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
甲状腺が腫れているが血液検査...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
口の中に黒い血の塊
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
おすすめ情報