{"id":1660,"date":"2017-11-27T11:45:39","date_gmt":"2017-11-27T02:45:39","guid":{"rendered":"http:\/\/jamfunk.jp\/wp\/?page_id=1660"},"modified":"2020-12-16T11:47:36","modified_gmt":"2020-12-16T02:47:36","slug":"concat","status":"publish","type":"page","link":"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/","title":{"rendered":"1\u30ab\u30e9\u30e0\u8907\u6570\u30ec\u30b3\u30fc\u30c9\u30921\u30ab\u30e9\u30e01\u30ec\u30b3\u30fc\u30c9\u306b\u7d50\u5408\u3059\u308bAccess\u30de\u30af\u30ed"},"content":{"rendered":"<div id=\"ez-toc-container\" class=\"ez-toc-v2_0_82_2 ez-toc-wrap-right-text counter-hierarchy ez-toc-counter ez-toc-grey ez-toc-container-direction\">\n<p class=\"ez-toc-title\" style=\"cursor:inherit\">Table of Contents<\/p>\n<label for=\"ez-toc-cssicon-toggle-item-69f1598c0c86a\" class=\"ez-toc-cssicon-toggle-label\"><span class=\"ez-toc-cssicon\"><span class=\"eztoc-hide\" style=\"display:none;\">Toggle<\/span><span class=\"ez-toc-icon-toggle-span\"><svg style=\"fill: #999;color:#999\" xmlns=\"http:\/\/www.w3.org\/2000\/svg\" class=\"list-377408\" width=\"20px\" height=\"20px\" viewBox=\"0 0 24 24\" fill=\"none\"><path d=\"M6 6H4v2h2V6zm14 0H8v2h12V6zM4 11h2v2H4v-2zm16 0H8v2h12v-2zM4 16h2v2H4v-2zm16 0H8v2h12v-2z\" fill=\"currentColor\"><\/path><\/svg><svg style=\"fill: #999;color:#999\" class=\"arrow-unsorted-368013\" xmlns=\"http:\/\/www.w3.org\/2000\/svg\" width=\"10px\" height=\"10px\" viewBox=\"0 0 24 24\" version=\"1.2\" baseProfile=\"tiny\"><path d=\"M18.2 9.3l-6.2-6.3-6.2 6.3c-.2.2-.3.4-.3.7s.1.5.3.7c.2.2.4.3.7.3h11c.3 0 .5-.1.7-.3.2-.2.3-.5.3-.7s-.1-.5-.3-.7zM5.8 14.7l6.2 6.3 6.2-6.3c.2-.2.3-.5.3-.7s-.1-.5-.3-.7c-.2-.2-.4-.3-.7-.3h-11c-.3 0-.5.1-.7.3-.2.2-.3.5-.3.7s.1.5.3.7z\"\/><\/svg><\/span><\/span><\/label><input type=\"checkbox\"  id=\"ez-toc-cssicon-toggle-item-69f1598c0c86a\"  aria-label=\"Toggle\" \/><nav><ul class='ez-toc-list ez-toc-list-level-1 ' ><li class='ez-toc-page-1 ez-toc-heading-level-1'><a class=\"ez-toc-link ez-toc-heading-1\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/#%E3%81%AA%E3%81%AB%E3%82%92%E3%81%97%E3%81%9F%E3%81%84%E3%81%AE%EF%BC%9F\" >\u306a\u306b\u3092\u3057\u305f\u3044\u306e\uff1f<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-1'><a class=\"ez-toc-link ez-toc-heading-2\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/#%E6%96%B9%E9%87%9D\" >\u65b9\u91dd<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-1'><a class=\"ez-toc-link ez-toc-heading-3\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/#%E5%AE%9F%E8%A3%85\" >\u5b9f\u88c5<\/a><ul class='ez-toc-list-level-2' ><li class='ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-4\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/#%E5%8F%82%E7%85%A7%E8%A8%AD%E5%AE%9A\" >\u53c2\u7167\u8a2d\u5b9a<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-5\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/#%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%B3%E3%83%BC%E3%83%89\" >\u30de\u30af\u30ed\u30b3\u30fc\u30c9<\/a><\/li><li class='ez-toc-page-1 ez-toc-heading-level-2'><a class=\"ez-toc-link ez-toc-heading-6\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/#%E3%82%AF%E3%82%A8%E3%83%AA\" >\u30af\u30a8\u30ea<\/a><\/li><\/ul><\/li><li class='ez-toc-page-1 ez-toc-heading-level-1'><a class=\"ez-toc-link ez-toc-heading-7\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/#%E5%8F%82%E8%80%83\" >\u53c2\u8003<\/a><\/li><\/ul><\/nav><\/div>\n<h1><span class=\"ez-toc-section\" id=\"%E3%81%AA%E3%81%AB%E3%82%92%E3%81%97%E3%81%9F%E3%81%84%E3%81%AE%EF%BC%9F\"><\/span>\u306a\u306b\u3092\u3057\u305f\u3044\u306e\uff1f<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>\u3053\u3046\u3044\u3046\u30ec\u30b3\u30fc\u30c9\u3092<\/p>\n<table>\n<thead>\n<tr>\n<td>&nbsp;\u30ab\u30e9\u30e0\uff11<\/td>\n<\/tr>\n<\/thead>\n<tbody>\n<tr>\n<td>&nbsp;\u5c71\u7530<\/td>\n<\/tr>\n<tr>\n<td>&nbsp;\u4f50\u85e4<\/td>\n<\/tr>\n<tr>\n<td>&nbsp;\u9234\u6728<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>\u3053\u3046\u3057\u305f\u3044\u3002<\/p>\n<table>\n<tbody>\n<tr>\n<td>expr1<\/td>\n<\/tr>\n<tr>\n<td>\u5c71\u7530,\u4f50\u85e4,\u9234\u6728<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<h1><span class=\"ez-toc-section\" id=\"%E6%96%B9%E9%87%9D\"><\/span>\u65b9\u91dd<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>Microsoft ActiveX DAO + \u30de\u30af\u30ed \u3067\u3084\u308b\u305e<\/p>\n<h1><span class=\"ez-toc-section\" id=\"%E5%AE%9F%E8%A3%85\"><\/span>\u5b9f\u88c5<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<h2><span class=\"ez-toc-section\" id=\"%E5%8F%82%E7%85%A7%E8%A8%AD%E5%AE%9A\"><\/span>\u53c2\u7167\u8a2d\u5b9a<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p>\u30de\u30af\u30ed\uff08\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\uff09\u7de8\u96c6\u4e2d\u306b \u30c4\u30fc\u30eb\u2192\u53c2\u7167\u8a2d\u5b9a \u3067&#8221;Microsoft ActiveX Data Objects 6.1 Library<\/p>\n<h2><span class=\"ez-toc-section\" id=\"%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%B3%E3%83%BC%E3%83%89\"><\/span>\u30de\u30af\u30ed\u30b3\u30fc\u30c9<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p><code>Public Function DBSelect(ByVal strQuerySQL As String, _<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Optional ByVal strSeparator As String = \";\") As String<\/code><br \/>\n<code>On Error GoTo Err_DBSelect<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim I&nbsp;&nbsp;&nbsp;&nbsp; As Integer<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim J&nbsp;&nbsp;&nbsp;&nbsp; As Integer<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim R&nbsp;&nbsp;&nbsp;&nbsp; As Integer<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim C&nbsp;&nbsp;&nbsp;&nbsp; As Integer<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim M&nbsp;&nbsp;&nbsp;&nbsp; As Integer<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim N&nbsp;&nbsp;&nbsp;&nbsp; As Integer<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim rst&nbsp;&nbsp; As ADODB.Recordset<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim fld&nbsp;&nbsp; As ADODB.Field<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Dim Datas As String<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Set rst = New ADODB.Recordset<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; ' =================<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; '&nbsp; Begin With: rst<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; ' -----------------<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; With rst<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Open strQuerySQL, _<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CurrentProject.Connection, _<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; adOpenStatic, _<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; adLockReadOnly<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not .BOF Then<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; M = .RecordCount - 1<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; N = .Fields.Count - 1<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .MoveFirst<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For R = 0 To M<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For C = 0 To N<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Datas = Datas &amp; .Fields(C) &amp; strSeparator<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next C<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .MoveNext<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next R<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; End With<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; ' ---------------<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; '&nbsp; End With: rst<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; ' ===============<\/code><\/p>\n<p><code>Exit_DBSelect:<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; On Error Resume Next<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; DBSelect = Left(Datas, Len(Datas) + (Len(Datas) &gt; 0))<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Exit Function<\/code><\/p>\n<p><code>Err_DBSelect:<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; MsgBox \"SELECT \u6587\u306e\u5b9f\u884c\u6642\u306b\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002(DBSelect)\" &amp; Chr$(13) &amp; Chr$(13) &amp; _<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \"\u30fbErr.Description=\" &amp; Err.Description &amp; Chr$(13) &amp; _<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \"\u30fbSQL Text=\" &amp; strQuerySQL, _<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; vbExclamation, \" \u95a2\u6570\u30a8\u30e9\u30fc\u30e1\u30c3\u30bb\u30fc\u30b8\"<\/code><br \/>\n<code>&nbsp;&nbsp;&nbsp; Resume Exit_DBSelect<\/code><br \/>\n<code>End Function<\/code><\/p>\n<h2><span class=\"ez-toc-section\" id=\"%E3%82%AF%E3%82%A8%E3%83%AA\"><\/span>\u30af\u30a8\u30ea<span class=\"ez-toc-section-end\"><\/span><\/h2>\n<p><code>expr1: dbselect(\"SELECT \u30ab\u30e9\u30e0\uff11 FROM \u30b3\u30fc\u30c9\u8868 WHERE 1 ORDER BY \u30bd\u30fc\u30c8\u30ad\u30fc;\",\",\")<\/code><\/p>\n<p>\u6700\u5f8c\u306e&#8221;,&#8221;\u3092\u5909\u66f4\u3059\u308c\u3070\u30bb\u30d1\u30ec\u30fc\u30bf\u3092\u5909\u66f4\u3067\u304d\u308b<\/p>\n<h1><span class=\"ez-toc-section\" id=\"%E5%8F%82%E8%80%83\"><\/span>\u53c2\u8003<span class=\"ez-toc-section-end\"><\/span><\/h1>\n<p>Access VBA \u5165\u9580\u8b1b\u5ea7<a href=\"http:\/\/accessvba.pc-users.net\/ado\/\" target=\"_blank\" rel=\"noopener noreferrer\">http:\/\/accessvba.pc-users.net\/ado\/<\/a><\/p>\n<p>\u6559\u3048\u3066\uff01\uff47\uff4f\uff4f \u30a2\u30af\u30bb\u30b9 \u540c\u3058\u30d5\u30a3\u30fc\u30eb\u30c9\uff08\u30c6\u30ad\u30b9\u30c8\u578b\uff09\u306e\u30ec\u30b3\u30fc\u30c9\u3092\u9023\u7d50\u3055\u305b\u305f\u3044 <a href=\"https:\/\/oshiete.goo.ne.jp\/qa\/3023548.html\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/oshiete.goo.ne.jp\/qa\/3023548.html<\/a><\/p>\n<p>&nbsp;<\/p>\n\n<div class=\"twitter-share\"><a href=\"https:\/\/twitter.com\/intent\/tweet?via=sunagawahiroyuk\" class=\"twitter-share-button\">\u30c4\u30a4\u30fc\u30c8<\/a><\/div>\n","protected":false},"excerpt":{"rendered":"<p>\u306a\u306b\u3092\u3057\u305f\u3044\u306e\uff1f \u3053\u3046\u3044\u3046\u30ec\u30b3\u30fc\u30c9\u3092 &nbsp;\u30ab\u30e9\u30e0\uff11 &nbsp;\u5c71\u7530 &nbsp;\u4f50\u85e4 &nbsp;\u9234\u6728 \u3053\u3046\u3057\u305f\u3044\u3002 expr1 \u5c71\u7530,\u4f50\u85e4,\u9234\u6728 \u65b9\u91dd Microsoft ActiveX DAO + \u30de\u30af\u30ed  &#8230; <a title=\"1\u30ab\u30e9\u30e0\u8907\u6570\u30ec\u30b3\u30fc\u30c9\u30921\u30ab\u30e9\u30e01\u30ec\u30b3\u30fc\u30c9\u306b\u7d50\u5408\u3059\u308bAccess\u30de\u30af\u30ed\" class=\"read-more\" href=\"https:\/\/jamfunk.jp\/wp\/works\/msaccess\/concat\/\" aria-label=\"1\u30ab\u30e9\u30e0\u8907\u6570\u30ec\u30b3\u30fc\u30c9\u30921\u30ab\u30e9\u30e01\u30ec\u30b3\u30fc\u30c9\u306b\u7d50\u5408\u3059\u308bAccess\u30de\u30af\u30ed \u306b\u3064\u3044\u3066\u3055\u3089\u306b\u8aad\u3080\">\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"parent":2117,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"inline_featured_image":false,"footnotes":""},"class_list":["post-1660","page","type-page","status-publish"],"_links":{"self":[{"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/pages\/1660","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/comments?post=1660"}],"version-history":[{"count":0,"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/pages\/1660\/revisions"}],"up":[{"embeddable":true,"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/pages\/2117"}],"wp:attachment":[{"href":"https:\/\/jamfunk.jp\/wp\/wp-json\/wp\/v2\/media?parent=1660"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}