)
Microsoft Access ã®ãƒ†ãƒ¼ãƒ–ルを使用ã—ãŸä½œæ¥
以下ã®ä¾‹ã§ã¯ã€ListAccessTables プãƒã‚·ãƒ¼ã‚¸ãƒ£ã¯ã€ strDBPath 引数ã§æŒ‡å®šã•ã‚Œã‚‹ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã«å«ã¾ã‚Œã‚‹ã™ã¹ã¦ã®ãƒ†ãƒ¼ãƒ–ルåã‚’ VBA ã®ã‚¤ãƒŸãƒ‡ã‚£ã‚¨ã‚¤ãƒˆ ウィンドウã«å‡ºåŠ›ã—ã¾ã™ã€‚ Sub ListAccessTables(strDBPath As String) Dim catDB As ADOX.Catalog Dim tblList As ADOX.Table Set catDB = New ADOX.Catalog ' ã‚«ã‚¿ãƒã‚°ã‚’é–‹ãã¾ã™ã€‚ catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & strDBPath ' ã™ã¹ã¦ã®ãƒ†ãƒ¼ãƒ–ルをループã—ã¾ã™ãŒã€ã‚¯ã‚¨ãƒªã¯è¡Œã„ã¾ã›ã‚“。 ' テーブルåã¨ç¨®é¡žã‚’出力ã—ã¾ã™ã€‚ For Each tblList In catDB
1
ãŠçŸ¥ã‚‰ã›
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
Microsoft サãƒãƒ¼ãƒˆå¯¾è±¡ã‚µãƒ¼ãƒ“ス パック
https://support.microsoft.com/ja-jp/help/825796
方法: Windows Phone Marketplace 用ã®ã‚¹ã‚¯ãƒªãƒ¼ãƒ³ã‚·ãƒ§ãƒƒãƒˆã‚’作æˆã™ã‚‹
{{#tags}}- {{label}}
{{/tags}}