{"id":5893,"date":"2023-10-30T21:47:07","date_gmt":"2023-10-30T12:47:07","guid":{"rendered":"https:\/\/okamurax.com\/?p=5893"},"modified":"2023-10-31T00:04:18","modified_gmt":"2023-10-30T15:04:18","slug":"vba-access-sql%e4%b8%80%e6%8b%ac%e5%87%a6%e7%90%86","status":"publish","type":"post","link":"https:\/\/appbay.org\/?p=5893","title":{"rendered":"VBA Access SQL\u4e00\u62ec\u51e6\u7406"},"content":{"rendered":"<p>Excel\u306e\u30b7\u30fc\u30c8\u4e0a\u306b\u4fdd\u5b58\u3057\u3066\u3042\u308b\u30c7\u30fc\u30bf\u3092\u95a2\u6570\u306a\u3069\u3067SQL\u5316\u3057\u3001\u4e00\u62ec\u3067Access\u306b\u6d41\u3057\u8fbc\u3080\u5fc5\u8981\u304c\u3042\u3063\u305f\u306e\u3067\u3002<\/p>\n<pre class=\"lang:vb decode:true \">Sub test()\r\n\r\nWith ActiveSheet\r\n\r\nSet cn = CreateObject(\"adodb.connection\")\r\ncn.Open \"provider=microsoft.ace.oledb.12.0;data source=\" &amp; ThisWorkbook.Path &amp; \"\\x.mdb\"\r\n\r\nFor r = 1 To 138\r\n  q = ActiveSheet.Cells(r, 1).Value\r\n  cn.Execute q\r\nNext r\r\n\r\ncn.Close\r\nSet cn = Nothing\r\n\r\nMsgBox \"done\"\r\n\r\nEnd With\r\n\r\nEnd Sub\r\n<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Excel\u306e\u30b7\u30fc\u30c8\u4e0a\u306b\u4fdd\u5b58\u3057\u3066\u3042\u308b\u30c7\u30fc\u30bf\u3092\u95a2\u6570\u306a\u3069\u3067SQL\u5316\u3057\u3001\u4e00\u62ec\u3067Access\u306b\u6d41\u3057\u8fbc\u3080\u5fc5\u8981\u304c\u3042\u3063\u305f\u306e\u3067\u3002 Sub test() With ActiveSheet Set cn = CreateObject(&#8220;ado &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/appbay.org\/?p=5893\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;VBA Access SQL\u4e00\u62ec\u51e6\u7406&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[5],"class_list":["post-5893","post","type-post","status-publish","format-standard","hentry","category-1","tag-vba"],"_links":{"self":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/5893","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5893"}],"version-history":[{"count":4,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/5893\/revisions"}],"predecessor-version":[{"id":5897,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/5893\/revisions\/5897"}],"wp:attachment":[{"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5893"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5893"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5893"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}