掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBからAccessのフィールドプロパティを設定するには (ID：76989)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Unicode圧縮ですが、これは ADOX.Columnオブジェクトの カスタムプロパティ"Jet OLEDB:Compressed UNICODE Strings"が 相当します。 例えば、こんな感じです。 Dim oConnection As ADODB.Connection Dim oCatalog As ADOX.Catalog Dim oTable As ADOX.Table (中略) Set oCatalog = CreateObject("ADOX.Catalog") Set oCatalog.ActiveConnection = oConnection oTable.Name = "MyNewTable" With oTable.Columns .Append "AAA", adInteger .Append "BBB", adWChar, 50 With .Item("BBB") Set .ParentCatalog = oCatalog .Properties("Jet OLEDB:Compressed UniCode Strings").Value = True End With End With oCatalog.Tables.Append oTable
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.