\u4eca\u56de\u306e\u9023\u8f09\u306fVBA\u306e\u57fa\u672c\u3092\u78ba\u8a8d\u3059\u308b\u3053\u3068\u306b\u3042\u308b\u3002
\u524d\u56de\u3001\u30af\u30ed\u30b9\u96c6\u8a08\u30af\u30a8\u30ea\u3092\u4f5c\u6210\u3059\u308c\u3070\u6210\u7e3e\u51e6\u7406\u3068\u3057\u3066\u306f\u76ee\u7684\u3092\u9054\u6210\u3067\u304d\u308b\u3068\u3044\u3046\u8a71\u3092\u3057\u305f\u3002\u3057\u304b\u3057\u3001\u305d\u308c\u3067\u306f\u5b9f\u969b\u306e\u73fe\u5834\u3067\u306e\u904b\u7528\u306f\u3067\u304d\u306a\u3044\u306e\u3067\u3042\u308b\u3002\u306a\u305c\u306a\u3089\u3001\u6700\u7d42\u7684\u306b\u30ec\u30dd\u30fc\u30c8\u6a5f\u80fd\u3067\u6210\u7e3e\u4e00\u89a7\u8868\u3092\u5370\u5237\u3059\u308b\u3053\u3068\u306b\u306a\u308b\u304c\u3001\u4e00\u89a7\u8868\u306e\u898b\u51fa\u3057\u306b\u306a\u308b\u79d1\u76ee\u540d\u3068\u79d1\u76ee\u6570\u306f1\u7a2e\u985e\u3067\u306f\u306a\u3044\u304b\u3089\u3060\u3002<\/p>\n\n\n\n
\u5c0f\u751f\u304c\u95a2\u4fc2\u3057\u305f\u9ad8\u6821\u3067\u306f\u3001\u591a\u3044\u6642\u30673\u5b66\u5e74\u3067\u4e00\u89a7\u8868\u306e\u30d1\u30bf\u30fc\u30f3(\u79d1\u76ee\u540d\u306e\u4e26\u3073)\u306f10\u7a2e\u985e\u4ee5\u4e0a\u306b\u3082\u306a\u308b\u3002\u5e74\u5ea6\u306b\u3088\u3063\u3066\u3082\u307e\u305f\u5909\u5316\u3059\u308b\u3002\u305d\u306e\u3088\u3046\u306a\u30d1\u30bf\u30fc\u30f3\u3059\u3079\u3066\u306b\u5bfe\u5fdc\u3059\u308b\u30ec\u30dd\u30fc\u30c8\u306e\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u3092\u4f5c\u6210\u3057\u306a\u3051\u308c\u3070\u306a\u3089\u306a\u3044\u3002<\/p>\n\n\n\n
\u30af\u30ed\u30b9\u96c6\u8a08\u30af\u30a8\u30ea\u3092\u5143\u306b\u3057\u305f\u30ec\u30dd\u30fc\u30c8\u3067\u306f\u3001\u79d1\u76ee\u540d\u898b\u51fa\u3057\u3084\u6210\u7e3e\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u304c\u56fa\u5b9a\u3057\u3066\u3057\u307e\u3046\u30021\u7a2e\u985e\u306e\u30ec\u30dd\u30fc\u30c8\u5f62\u5f0f\u3067\u6e08\u3080\u306a\u3089\u3088\u3044\u304c\u3001\u304a\u305d\u3089\u304f\u305d\u3046\u3044\u3046\u30b1\u30fc\u30b9\u306f\u307e\u308c\u3067\u3042\u308d\u3046\u3002\u9ad8\u6821\u3067\u5358\u4e00\u8ab2\u7a0b\u3067\u5168\u54e1\u304c\u540c\u3058\u79d1\u76ee\u3092\u5c65\u4fee\u3057\u305f\u3068\u3057\u3066\u3082\u30013\u5b66\u5e74\u306a\u306e\u3067\u6700\u4f4e\u3067\u30823\u7a2e\u985e\u306f\u5fc5\u8981\u3067\u3042\u308b\u3002\u6559\u80b2\u8ab2\u7a0b\u306e\u6539\u8a02\u304c\u3042\u308c\u3070\u305d\u306e\u90fd\u5ea6\u5909\u5316\u3059\u308b\u53ef\u80fd\u6027\u3082\u3042\u308b\u3002<\/p>\n\n\n\n
\u3068\u308a\u3042\u3048\u305a\u5358\u7d14\u5316\u3057\u305f\u4f8b\u3067\u8aac\u660e\u3092\u9032\u3081\u308b\u304c\u3001\u5b9f\u969b\u306e\u904b\u7528\u5834\u9762\u3067\u5f79\u306b\u7acb\u3064\u8aac\u660e\u3082\u6700\u5f8c\u306b\u4ed8\u3051\u52a0\u3048\u308b\u3064\u3082\u308a\u3060\u3002\u307e\u305a\u306f\u57fa\u672c\u306eVBA\u3092\u3057\u3063\u304b\u308a\u304a\u3055\u3048\u3066\u3044\u3053\u3046\u3002<\/p>\n\n\n\n
\u30d5\u30a9\u30fc\u30e0\u3092\u4f5c\u6210\u3057\u3001\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\u30921\u3064\u914d\u7f6e\u3057\u3001\u30af\u30ea\u30c3\u30af\u30a4\u30d9\u30f3\u30c8\u306b\u6b21\u306e\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\u3059\u308b\u3068\u3001T_ichiran\u30c6\u30fc\u30d6\u30eb\u304c\u4f5c\u6210\u3055\u308c\u308b\u3002<\/p>\n\n\n
Private Sub cmd1_Click()\n \nDim cn As ADODB.Connection\n \n'---- \u3053\u306e\u9023\u8f09\u3067\u306f\u6700\u7d42\u7684\u306b4\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u3092\u4f7f\u7528\u3057\u307e\u3059 ----\nDim r1 As ADODB.Recordset\nDim r2 As ADODB.Recordset\nDim r3 As ADODB.Recordset '\u4eca\u56de\u306f\u3053\u308c\u3060\u3051\nDim r4 As ADODB.Recordset\n'-----------------------------------\n \nDim i, j, k '\u30ab\u30a6\u30f3\u30bf\u30fc\nDim kname(30) '\u79d1\u76ee\u540d\u3092\u5165\u308c\u308b\u914d\u5217\n \n \nDim st_SQL As String 'sql\u7528\u6587\u5b57\u5217\nDim all_k As String '\u79d1\u76ee\u540d\u3092\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u3059\u308b\u305f\u3081\u306e\u6587\u5b57\u5217\u3001sql\u6587\u3067\u4f7f\u7528\nDim all_k_i As String '\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u3059\u308b\u305f\u3081\u306e\u6587\u5b57\u5217\u3001sql\u6587\u3067\u4f7f\u7528\nDim all_k_h As String '\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u3059\u308b\u305f\u3081\u306e\u6587\u5b57\u5217\u3001sql\u6587\u3067\u4f7f\u7528\n \nDim k_name(30) As String\n \nDim k_n As Integer '\u79d1\u76ee\u6570\u3092\u5165\u308c\u308b\u5909\u6570\nk_n = DCount(\"*\", \"T_kamoku\") '\u79d1\u76ee\u6570\u3092\u53d6\u5f97\n \nall_k_i = \"\u751f\u5f92\u540d varchar,\" '\u751f\u5f92\u540d\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\u309b\nall_k_h = \"\u5e73\u5747\u70b9 Double\" '\u5e73\u5747\u70b9\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\n \nSet cn = CurrentProject.Connection\n \nSet r3 = New ADODB.Recordset\n \n'---\u3000\u79d1\u76ee\u540d\u3092\u53d6\u308a\u51fa\u3057\u3001\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\u7528\u6587\u5b57\u5217\u3092\u4f5c\u6210\u3059\u308b\u51e6\u7406 ---\n'---\u3000\u79d1\u76ee\u540d\u30c6\u30fc\u30d6\u30eb\u3092\u958b\u304f\nr3.Open \"T_kamoku\", cn, adOpenForwardOnly, adLockReadOnly \n \ni = 1\nDo Until r3.EOF\n k_name(i) = r3!\u79d1\u76ee\u540d\n all_k = all_k & k_name(i) & \" Double,\"\n r3.MoveNext\n i = i + 1\nLoop\n' ----------------------------------------------------------\n \n'\u6700\u7d42\u7684\u306b\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u3068\u3059\u308b\u305f\u3081\u306e\u51e6\u7406 \n'\u5148\u982d\u306b\u751f\u5f92\u540d\u3001\u6700\u5f8c\u306b\u5e73\u5747\u70b9\u3092\u4ed8\u52a0\n \nall_k = all_k_i & all_k & all_k_h\n \n'\u51e6\u7406\u524d\u306b\u30c6\u30fc\u30d6\u30eb\u3092\u524a\u9664\nOn Error Resume Next\n \nDoCmd.DeleteObject acTable, \"T_ichiran\"\n \nOn Error GoTo 0\n \n'\u30c6\u30fc\u30d6\u30eb\u4f5c\u6210\u306eSQL\u6587\u304a\u3088\u3073SQL\u5b9f\u884c\nst_SQL = \"CREATE TABLE T_ichiran(\" & all_k & \");\"\nDoCmd.RunSQL st_SQL\n \n'-------\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u9589\u3058\u308b--------------------------------\nr3.Close\nSet r3 = Nothing\ncn.Close\nSet cn = Nothing\nEnd Sub<\/pre>\n\u00a0<\/p>\n\n\n
\u3053\u306e\u51e6\u7406\u3067\u3001\u4e00\u89a7\u8868\u306e\u898b\u51fa\u3057\u3068\u306a\u308b
\u751f\u5f92\u540d\u3000\u56fd\u8a9e\u3000\u7b97\u6570\u3000\u7406\u79d1\u3000\u793e\u4f1a\u3000\u82f1\u8a9e\u3000\u5e73\u5747\u70b9
\u3068\u3044\u3046\u30d5\u30a3\u30fc\u30eb\u30c9\u4e26\u3073\u306e\u30c6\u30fc\u30d6\u30eb\u304c\u4f5c\u6210\u3055\u308c\u308b\u3002
\u5b9f\u969b\u306e\u5b66\u6821\u73fe\u5834\u3067\u306f\u3001\u79d1\u76ee\u306b\u306f\u30b3\u30fc\u30c9\u304c\u632f\u3089\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u30b3\u30fc\u30c9\u9806\u306b\u4e26\u3079\u308b\u306a\u3069\u306e\u51e6\u7406\u304c\u5fc5\u8981\u3068\u306a\u308b\u3002<\/p>\n\n\n\n\u5c1a\u3001\u3053\u306e\u30c6\u30fc\u30d6\u30eb\u306f\u4e00\u6642(\u4f5c\u696d\u7528)\u30c6\u30fc\u30d6\u30eb\u3067\u306a\u306e\u3067\u3001\u4f5c\u6210\u524d\u306b\u65e2\u5b58\u3092\u524a\u9664\u51e6\u7406\u3092\u884c\u3046\u3002\u306a\u305c\u4e00\u6642\u30c6\u30fc\u30d6\u30eb\u306a\u306e\u304b\u3068\u8a00\u3048\u3070\u3001\u70b9\u6570\u5165\u529b\u7b49\u306b\u8aa4\u308a\u304c\u3042\u3063\u305f\u5834\u5408\u3001\u6700\u65b0\u306e\u30c7\u30fc\u30bf\u3092\u547c\u3073\u51fa\u3059\u5fc5\u8981\u304c\u3042\u3063\u305f\u308a\u3001\u8907\u6570\u306e\u30af\u30e9\u30b9\u7b49\u304c\u3042\u3063\u305f\u5834\u5408\u306b\u306f\u30d1\u30e9\u30e1\u30fc\u30bf\u3092\u5207\u308a\u66ff\u3048\u9023\u7d9a\u51e6\u7406\u3092\u3059\u308b\u305f\u3081\u306b\u305d\u306e\u90fd\u5ea6\u30c6\u30fc\u30d6\u30eb\u3092\u65b0\u898f\u306b\u4f5c\u6210\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u304b\u3089\u3060\u3002<\/p>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
\u4eca\u56de\u306e\u9023\u8f09\u306fVBA\u306e\u57fa\u672c\u3092\u78ba\u8a8d\u3059\u308b\u3053\u3068\u306b\u3042\u308b\u3002\u524d\u56de\u3001\u30af\u30ed\u30b9\u96c6\u8a08\u30af\u30a8\u30ea\u3092\u4f5c\u6210\u3059\u308c\u3070\u6210\u7e3e\u51e6\u7406\u3068\u3057\u3066\u306f\u76ee\u7684\u3092\u9054\u6210\u3067\u304d\u308b\u3068\u3044\u3046\u8a71… read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":212,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,13],"tags":[5,7,8],"_links":{"self":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/206"}],"collection":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=206"}],"version-history":[{"count":6,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/206\/revisions"}],"predecessor-version":[{"id":302,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/206\/revisions\/302"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/media\/212"}],"wp:attachment":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=206"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=206"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=206"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}