{"id":3845,"date":"2011-07-28T01:00:00","date_gmt":"2011-07-27T16:00:00","guid":{"rendered":"http:\/\/keuko.exp.jp\/diary\/?p=3845"},"modified":"2011-07-28T01:00:00","modified_gmt":"2011-07-27T16:00:00","slug":"%e7%94%bb%e5%83%8f%e3%83%87%e3%83%bc%e3%82%bf%e3%82%92%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%81%ab","status":"publish","type":"post","link":"https:\/\/keuko.exp.jp\/diary\/?p=3845","title":{"rendered":"\u753b\u50cf\u30c7\u30fc\u30bf\u3092\u30d5\u30a1\u30a4\u30eb\u306b"},"content":{"rendered":"<p>Access\u304b\u3089SQLServer\u306b\u767b\u9332\u3057\u305f\u753b\u50cf\u30c7\u30fc\u30bf\uff08varbinary\uff09\u3092\u3001\u30d5\u30a1\u30a4\u30eb\u3067\u4fdd\u5b58\u3057\u305f\u3044\u3068\u601d\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u3069\u3046\u306b\u3082\u3084\u308a\u65b9\u304c\u5206\u304b\u308a\u307e\u305b\u3093\u3002<br \/>\n\u3068\u308a\u3042\u3048\u305a\u4eca\u56de\u306f\u4ef6\u6570\u3082\u5c11\u306a\u3044\u306e\u3067\u3001\u3044\u3063\u305f\u3093Access\u306e\u30a4\u30e1\u30fc\u30b8\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306b\u8868\u793a\u3057\u3066\u3001\u305d\u308c\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u4fdd\u5b58\u3059\u308b\u3068\u3044\u3046\u3084\u308a\u65b9\u3067\u5bfe\u5fdc\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<br \/>\nDB\u304b\u3089Access\u306eImage\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u306ePictureData\u30d7\u30ed\u30d1\u30c6\u30a3\u306b\u30bb\u30c3\u30c8\u3057\u3001\u305d\u308c\u3092\u5916\u90e8\u30d5\u30a1\u30a4\u30eb\u306b\u4fdd\u5b58\u3057\u307e\u3059\u3002<br \/>\n\u5143\u306e\u753b\u50cf\u304c\u3001BMP\u5f62\u5f0f\u3068BMP\u4ee5\u5916\uff08PNG, JPG, GIF\uff09\u306e\u3068\u304d\u3067\u4fdd\u5b58\u306e\u4ed5\u65b9\u3092\u5909\u3048\u306a\u3044\u3068\u3060\u3081\u307f\u305f\u3044\u3067\u3057\u305f\u3002<br \/>\n\u3042\u3068\u3001BMP\u30d5\u30a1\u30a4\u30eb\u306f\u3001\u5143\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u8272\u6570\u306b\u3088\u3063\u3066bfOffBits\u306e\u5024\u3092\u8abf\u6574\u3059\u308b\u5fc5\u8981\u304c\u3042\u308b\u3088\u3046\u3067\u3059\u3002<br \/>\n\u51fa\u6765\u4e0a\u304c\u3063\u305f\u30d5\u30a1\u30a4\u30eb\u306f\u30da\u30a4\u30f3\u30c8\u30d6\u30e9\u30b7\u3067\u306f\u958b\u3051\u308b\u306e\u3067\u3059\u304c\u4ed6\u306e\u30bd\u30d5\u30c8\u3067\u958b\u3051\u306a\u304b\u3063\u305f\u308a\u3057\u305f\u306e\u3067\u3001\u30da\u30a4\u30f3\u30c8\u30d6\u30e9\u30b7\u3067\u4e00\u56de\u958b\u3044\u3066\u540d\u524d\u3092\u4ed8\u3051\u3066\u4fdd\u5b58\u3057\u306a\u3044\u3068\u3060\u3081\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<br \/>\n\u9069\u5f53\u3067\u3059\u3044\u307e\u305b\u3093\u3002\u3068\u308a\u3042\u3048\u305a\u3001\u85c1\u30ec\u30d9\u30eb\u306e\u30e1\u30e2\u3068\u3044\u3046\u3053\u3068\u3067\u3002<br \/>\n\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u5185\u306b\u8a18\u8ff0\u3002<\/p>\n<pre class=\"mycode\">\nType BITMAPFILEHEADER\nbfType As String * 2\nbfSize As Long\nbfReserved1 As Integer\nbfReserved2 As Integer\nbfOffBits As Long\nEnd Type\n<\/pre>\n<p>\u30d5\u30a9\u30fc\u30e0\u306b\u30a4\u30e1\u30fc\u30b8\u30b3\u30f3\u30c8\u30fc\u30eb\u3092\u300cimgZumen\u300d\u3068\u3044\u3046\u540d\u524d\u3067\u914d\u7f6e\u3002<br \/>\nDB\u304b\u3089\u753b\u50cf\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\u3057\u3066\u3001Me.imgZumen.PictureData\u306b\u30bb\u30c3\u30c8\u3059\u308b\u3068\u8868\u793a\u3055\u308c\u308b\u3068\u3044\u3046\u524d\u63d0\u3067\u3002<br \/>\n\u305d\u308c\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u4fdd\u5b58\u3057\u307e\u3059\u3002<br \/>\n\u4ee5\u4e0b\u3092\u30d5\u30a9\u30fc\u30e0\u5185\u306b\u8a18\u8ff0\u3057\u3066\u3001\u9069\u5f53\u306b\u547c\u3073\u51fa\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<pre class=\"mycode\">\n' \u5143\u30d5\u30a1\u30a4\u30eb\u304cBMP\u5f62\u5f0f\u306e\u5834\u5408\nPrivate Sub SaveBMP()\nDim cArray()    As Byte         ' \u753b\u50cf\u30d0\u30a4\u30ca\u30ea\u30c7\u30fc\u30bf\nDim nFileNo     As Integer      ' \u30d5\u30a1\u30a4\u30eb\u756a\u53f7\nDim i       As Long\nDim ln      As Long\nDim path    As String\nDim filenm  As String\nDim BMPfh As BITMAPFILEHEADER '\u30d8\u30c3\u30c0\u5b9a\u7fa9\npath = Application.CurrentProject.path\nIf path &#60;&#62; \"\" Then\nIf Right$(path, 1) &#60;&#62; \"\\\" Then path = path & \"\\\"\nEnd If\n' \u753b\u50cf\u30c7\u30fc\u30bf\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304d\u51fa\u3059\nnFileNo = FreeFile\nfilenm = \"output.bmp\"\ncArray() = Me.imgZumen.PictureData\nWith BMPfh\n.bfType = \"BM\"      ' \u56fa\u5b9a\n.bfSize = 14 + UBound(cArray) + 1 '\u30d5\u30a1\u30a4\u30eb\u30b5\u30a4\u30ba\n.bfReserved1 = 0    ' \u56fa\u5b9a\n.bfReserved2 = 0    ' \u56fa\u5b9a\n''        .bfOffBits = 62     ' \u767d\u9ed2\n.bfOffBits = 54     ' \u30ab\u30e9\u30fc\uff0824\u30d3\u30c3\u30c8\uff09\nEnd With\nOpen path & filenm For Binary As #nFileNo\nPut #nFileNo, , BMPfh ' \u30d8\u30c3\u30c0\u66f8\u304d\u8fbc\u307f\nPut #nFileNo, , cArray()\nClose #nFileNo\nEnd Sub\n' \u5143\u30d5\u30a1\u30a4\u30eb\u304cBMP\u5f62\u5f0f\u4ee5\u5916\u306e\u5834\u5408\nPrivate Sub SaveNotBMP()\nDim cArray()    As Byte         ' \u753b\u50cf\u30d0\u30a4\u30ca\u30ea\u30c7\u30fc\u30bf\nDim bArray()    As Byte         ' \u753b\u50cf\u30d0\u30a4\u30ca\u30ea\u30c7\u30fc\u30bf\nDim nFileNo     As Integer      ' \u30d5\u30a1\u30a4\u30eb\u756a\u53f7\nDim i       As Long\nDim ln      As Long\nDim path    As String\nDim filenm  As String\nDim sf      As Long\nsf = 8\npath = Application.CurrentProject.Path\nIf path &#60;&#62; \"\" Then\nIf Right$(path, 1) &#60;&#62; \"\\\" Then path = path & \"\\\"\nEnd If\n' \u753b\u50cf\u30c7\u30fc\u30bf\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304d\u51fa\u3059\nnFileNo = FreeFile\nfilenm = \"output.png\"    ' \u3068\u308a\u3042\u3048\u305a\u3002\u4f55\u3067\u3082\u3044\u3044\u307f\u305f\u3044\u3002\nbArray() = Me.imgZumen.PictureData\n' Copy the embedded EMF - SKIP first 8 bytes\nln = UBound(bArray)\nReDim cArray(ln - sf)\nFor i = sf To ln\ncArray(i - sf) = bArray(i)\nNext\nOpen path & filenm For Binary As #nFileNo\nPut #nFileNo, , cArray()\nClose #nFileNo\nEnd Sub\n<\/pre>\n<p>\u5148\u982d\u30928\u30d0\u30a4\u30c8\u305a\u3089\u3059\u3068\u3044\u3046\u306e\u306f\u3001\u3053\u3061\u3089\u306e\u30b5\u30a4\u30c8\u3092\u53c2\u8003\u306b\u3057\u307e\u3057\u305f\u3002<br \/>\n<a href=\"http:\/\/msmvps.com\/blogs\/nateoliver\/archive\/2010\/03\/10\/let-s-move-an-image-from-access-to-excel.aspx\" target=\"_blank\">http:\/\/msmvps.com\/blogs\/nateoliver\/archive\/2010\/03\/10\/let-s-move-an-image-from-access-to-excel.aspx<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Access\u304b\u3089SQLServer\u306b\u767b\u9332\u3057\u305f\u753b\u50cf\u30c7\u30fc\u30bf\uff08varbinary\uff09\u3092\u3001\u30d5\u30a1\u30a4\u30eb\u3067\u4fdd\u5b58\u3057\u305f\u3044\u3068\u601d\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u3069\u3046\u306b\u3082\u3084\u308a\u65b9\u304c\u5206\u304b\u308a\u307e\u305b\u3093\u3002 \u3068\u308a\u3042\u3048\u305a\u4eca\u56de\u306f\u4ef6\u6570\u3082\u5c11\u306a\u3044\u306e\u3067\u3001\u3044\u3063\u305f\u3093Access\u306e\u30a4\u30e1\u30fc\u30b8\u30b3\u30f3\u30c8<\/p>\n<p><a class=\"button\" href=\"https:\/\/keuko.exp.jp\/diary\/?p=3845\" title=\"More\">  \u7d9a\u304d\u3092\u8aad\u3080 \u2192<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"class_list":["post-3845","post","type-post","status-publish","format-standard","hentry","category-job"],"_links":{"self":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts\/3845","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3845"}],"version-history":[{"count":0,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts\/3845\/revisions"}],"wp:attachment":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3845"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3845"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3845"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}