\u6700\u7d42\u6bb5\u968e\u306e\u5404\u751f\u5f92\u306e\u5404\u79d1\u76ee\u306e\u6210\u7e3e\u3092\u30c6\u30fc\u30d6\u30eb\u306b\u30bb\u30c3\u30c8\u3057\u3066\u3044\u304f\u51e6\u7406\u3067\u3042\u308b\u3002
Recordset\u306f4\u3064\u5fc5\u8981\u3067\u3042\u308b\u3002
r1\u2014T_seiseki \u5404\u79d1\u76ee\u306e\u6210\u7e3e\u3092\u53c2\u7167\u3059\u308b\u30c6\u30fc\u30d6\u30eb
r2\u2014T_ichiran \u5404\u79d1\u76ee\u306e\u6210\u7e3e\u3092\u66f8\u304d\u8fbc\u3080\u30c6\u30fc\u30d6\u30eb
r3\u2014T_kamoku \u79d1\u76ee\u3092\u53c2\u7167\u3059\u308b\u30c6\u30fc\u30d6\u30eb(\u65e2\u306b\u914d\u5217k_name(i)\u306b\u8aad\u8fbc\u6e08\u307f)
r4\u30fcT_seito \u751f\u5f92\u540d\u3092\u53c2\u7167\u3059\u308b\u30c6\u30fc\u30d6\u30eb
\u5358\u72ec\u306e\u6a5f\u80fd\u3068\u3057\u3066\u8aac\u660e\u306e\u90fd\u5408\u4e0a\u3001\u91cd\u8907\u3057\u305f\u8a18\u8ff0\u3068\u306a\u3063\u3066\u3044\u308b\u304c(\u4eca\u56de\u306f\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3cmd3\u3068\u3057\u3066\u3044\u308b)\u3001\u4eca\u56de\u306e\u30b3\u30fc\u30c9\u304c\u6700\u7d42\u7684\u306a\u4e00\u62ec\u3057\u305f\u30b3\u30fc\u30c9\u3067\u3042\u308b\u3002
\u524d\u56de\u307e\u3067\u306e\u78ba\u8a8d\u3092\u3059\u308b\u3068
\u9023\u8f093\u3067\u306f
r3\u3092\u53c2\u7167\u3057\u3066\u3001\u79d1\u76ee\u540d\u3092\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\u3057T_ichiran\u3092\u4f5c\u6210\u3059\u308b\u51e6\u7406
\u9023\u8f094\u3067\u306f
r4\u3092\u53c2\u7167\u3057\u3066\u3001\u4f5c\u6210\u3057\u305fT_ichiran(r2)\u306b\u751f\u5f92\u540d\u3092\u30bb\u30c3\u30c8<\/p>\n\n\n\n
\u4eca\u56de\u306f
\u751f\u5f92\u540d\u3068\u79d1\u76ee\u540d\u304c\u4e00\u81f4\u3059\u308b\u30c7\u30fc\u30bf\u3092\u9806\u306b\u66f8\u304d\u8fbc\u3093\u3067\u3044\u3051\u3070\u3088\u3044\u3002(\u5168\u79d1\u76ee\u30eb\u30fc\u30d7)
\u70b9\u6570\u304c\u683c\u7d0d\u3055\u308c\u308b\u30d5\u30a3\u30fc\u30eb\u30c9\u306f1\u756a\u76ee\u304b\u3089\u3001(\u79d1\u76ee\u6570-1)\u756a\u76ee\u307e\u3067\u306a\u306e\u3067\u30eb\u30fc\u30d7\u3055\u305b\u308b\u3002
0\u756a\u76ee\u30d5\u30a3\u30fc\u30eb\u30c9\u306f\u751f\u5f92\u540d\u3001\u6700\u7d42\u30d5\u30a3\u30fc\u30eb\u30c9\u306f\u5e73\u5747\u70b9\u3067\u3042\u308b\u3002<\/p>\n\n\n
Private Sub cmd3_Click()\n\nDim cnn As ADODB.Connection\n\n'---- 4\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\nDim r4 As ADODB.Recordset\n'-----------------------------------\n\nDim h_avg As Double '\u5e73\u5747\u70b9\nDim i, j, k '\u30ab\u30a6\u30f3\u30bf\u30fc\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 '\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_h 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 k_name(30) As String '\u79d1\u76ee\u540d\u3092\u5165\u308c\u308b\u914d\u5217\nDim k_n As Integer '\u79d1\u76ee\u6570\u3092\u5165\u308c\u308b\u5909\u6570\n\n'\u79d1\u76ee\u6570\u3092\u53d6\u5f97\nk_n = DCount(\"*\", \"T_kamoku\")\n\nall_k_i = \"\u751f\u5f92\u540d varchar,\" '\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\nall_k_h = \"\u5e73\u5747\u70b9 Double\" '\u30d5\u30a3\u30fc\u30eb\u30c9\u5b9a\u7fa9\n\nSet cnn = CurrentProject.Connection\n\nSet r1 = New ADODB.Recordset\nSet r2 = New ADODB.Recordset\nSet r3 = New ADODB.Recordset\nSet r4 = New ADODB.Recordset\n\n\n\nr1.Open \"T_seiseki\", cnn, adOpenStatic, adLockReadOnly '\u5f97\u70b9\u30c6\u30fc\u30d6\u30eb\nr3.Open \"T_kamoku\", cnn, adOpenStatic, adLockReadOnly '\u79d1\u76ee\u540d\u30c6\u30fc\u30d6\u30eb\n\ni = 1\n\n'\u79d1\u76ee\u540d\u3092\u53d6\u5f97\nDo Until r3.EOF\n\n k_name(i) = r3!\u79d1\u76ee\u540d\n r3.MoveNext\n i = i + 1\n\nLoop\n\n'-----------------------\ni = 1\n\n'\u79d1\u76ee\u540d\u3092\u4e00\u822c\u5316\u3057\u3066\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u5165\u308c\u308b\u6e96\u5099\nFor i = 1 To 25\n all_k = all_k & \"kn\" & i & \" double,\"\nNext\n\n\n'\u6700\u7d42\u7684\u306b\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u3068\u3059\u308b\u305f\u3081\u306e\u51e6\u7406\nall_k = all_k_i & all_k & all_k_h\n\n\n'\u51e6\u7406\u524d\u306b\u30c6\u30fc\u30d6\u30eb\u3092\u524a\u9664\nOn Error Resume Next\nDoCmd.DeleteObject acTable, \"T_ichiran\"\nOn Error GoTo 0\n\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\nr2.Open \"T_ichiran\", cnn, adOpenKeyset, adLockOptimistic '\u65b0\u898f\u306b\u4f5c\u6210\u3057\u305f\u30c6\u30fc\u30d6\u30eb\n\n\n'\u751f\u5f92\u540d\u3092\u53d6\u308a\u51fa\u3057\u3001\u65b0\u898f\u30c6\u30fc\u30d6\u30eb\u306b\u767b\u9332\u3059\u308b\u51e6\u7406\n\nr4.Open \"T_seito\", cnn, adOpenStatic, adLockReadOnly '\u751f\u5f92\u540d\u3092\u53c2\u7167\u3059\u308b\u30c6\u30fc\u30d6\u30eb\n\n Do Until r4.EOF\n r2.AddNew\n r2!\u751f\u5f92\u540d = r4!\u751f\u5f92\u540d\n r2.Update\n r4.MoveNext\n Loop\n\n'-------------------------------------------------------\n'\u3053\u3053\u304b\u3089\u70b9\u6570\u3092\u66f8\u304d\u8fbc\u3080\u51e6\u7406 \u53c2\u7167\u30c6\u30fc\u30d6\u30eb\u306f\u6210\u7e3e\u30c6\u30fc\u30d6\u30eb\n T_seideki\uff08r1.open\uff09 \u2192 T_ichiran\uff08r2.open\uff09\n'-------------------------------------------------------\nr1.MoveFirst\nr2.MoveFirst\n\nDo Until r2.EOF\n\n h_avg = 0\n k = 0\n r1.MoveFirst\n \n Do Until r1.EOF\n \n j = 1\n \n Do Until j > r2.Fields.Count - 1\n \n If r1!\u751f\u5f92\u540d = r2!\u751f\u5f92\u540d And k_name(j) = r1!\u79d1\u76ee\u540d Then\n \n 'r2.Fields(j) = r1!\u70b9\u6570\n r2(\"kn\" & j) = r1!\u70b9\u6570\n h_avg = h_avg + Nz(r1!\u70b9\u6570)\n k = k + 1\n If h_avg <> 0 Then r2!\u5e73\u5747\u70b9 = Round((h_avg \/ k), 2)\n r2.Update\n Else\n\n End If\n\n j = j + 1\n \n Loop\n\n r1.MoveNext\n Loop\n\n\nr2.MoveNext\nLoop\n\n'-------\u958b\u3044\u305f\u3082\u306e\u306f\u9589\u3058\u308b------\nr1.Close\nSet r1 = Nothing\nr2.Close\nSet r2 = Nothing\nr3.Close\nSet r3 = Nothing\nr4.Close\nSet r4 = Nothing\ncnn.Close\nSet cnn = Nothing\n\nEnd Sub\n\n<\/pre>\n\u00a0<\/p>\n\n\n
\u5e73\u5747\u70b9\u306f\u5358\u7d14\u306b\u79d1\u76ee\u6570\u3067\u5272\u308a\u7b97\u3057\u3066\u3044\u308b\u3060\u3051\u3067\u3042\u308b\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u6700\u7d42\u6bb5\u968e\u306e\u5404\u751f\u5f92\u306e\u5404\u79d1\u76ee\u306e\u6210\u7e3e\u3092\u30c6\u30fc\u30d6\u30eb\u306b\u30bb\u30c3\u30c8\u3057\u3066\u3044\u304f\u51e6\u7406\u3067\u3042\u308b\u3002Recordset\u306f4\u3064\u5fc5\u8981\u3067\u3042\u308b\u3002 r1\u2014T_se… read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":209,"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\/225"}],"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=225"}],"version-history":[{"count":11,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/225\/revisions"}],"predecessor-version":[{"id":300,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/225\/revisions\/300"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/media\/209"}],"wp:attachment":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=225"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=225"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=225"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}