★ADO æ“作ã€SELECT SQL実行 サンプルリスト】 '************************************************************************** '  MS-Accessã®DBã«æŽ¥ç¶šã—ã¦ã€SELECT文を実行後ã€ãƒ‡ãƒ¼ã‚¿ã‚’抽出ã—ã¦ã€DBを切æ–ã™ã‚‹ '************************************************************************** Private Sub getSQL() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection Set rs = New ADODB.Recordset Dim strSQL strSQL = "SELECT * FR
{{#tags}}- {{label}}
{{/tags}}