{"id":852,"date":"2016-01-07T10:36:47","date_gmt":"2016-01-07T01:36:47","guid":{"rendered":"https:\/\/curecode.jp\/tech\/?p=852"},"modified":"2016-01-07T10:36:47","modified_gmt":"2016-01-07T01:36:47","slug":"access_environmentally_dependent_character_garbled_ado_odbc_oledb","status":"publish","type":"post","link":"https:\/\/curecode.jp\/tech\/access_environmentally_dependent_character_garbled_ado_odbc_oledb\/","title":{"rendered":"Microsoft Access2013\u3000\u74b0\u5883\u4f9d\u5b58\u6587\u5b57\u304c\u6587\u5b57\u5316\u3051"},"content":{"rendered":"<p>Microsoft Access2013 \u306eaccdb\u30d5\u30a1\u30a4\u30eb\u3092\u30c6\u30fc\u30d6\u30eb\u7528\u3001\u30d5\u30a9\u30fc\u30e0\u7528\u3068\u5206\u3051\u3066\u4f5c\u6210\u3057\u3066DB\u64cd\u4f5c\u3092\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u3057\u305f\u3068\u304d\u3001\u74b0\u5883\u4f9d\u5b58\u6587\u5b57\uff08\u300c\u7acb\u6cd5\u30e1\u30fc\u30c8\u30eb\u300d\u7b49\uff09\u304c\u6587\u5b57\u5316\u3051\u3057\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3002<\/p>\n<ul>\n<li>VBA\u306b\u3066ADO\u3092\u4f7f\u7528<\/li>\n<li>\u63a5\u7d9a\u306fODBC<\/li>\n<li>\u30d1\u30e9\u30e1\u30fc\u30bf\u30af\u30a8\u30ea\u3092\u4f7f\u7528<\/li>\n<\/ul>\n<p>\u76f4\u63a5\u30c6\u30fc\u30d6\u30eb\u306b\u74b0\u5883\u4f9d\u5b58\u6587\u5b57\u3092\u767b\u9332\u3057\u305f\u3082\u306e\u3092\u691c\u7d22\u3092\u3059\u308b\u5834\u5408\u306f\u4e0a\u8a18\u6761\u4ef6\u3067\u3082\u7279\u306b\u652f\u969c\u306a\u304f\u74b0\u5883\u4f9d\u5b58\u6587\u5b57\u3067\u3082\u8868\u793a\u3055\u308c\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u74b0\u5883\u4f9d\u5b58\u6587\u5b57\u3092\u30d1\u30e9\u30e1\u30fc\u30bf\u30af\u30a8\u30ea\u3092\u4ecb\u3057\u3066\u767b\u9332\u3059\u308b\u969b\u306b\u4f55\u304b\u304c\u4f5c\u7528\u3057\u3066\u3044\u308b\u3088\u3046\u3067\u3057\u305f\u3002<\/p>\n<pre class=\"lang:vb decode:true \" >\r\n        Dim sql As String\r\n        Dim oCon As ADODB.Connection\r\n        Dim command As ADODB.command\r\n        Dim param As ADODB.Parameter\r\n        Dim count As Integer\r\n        \r\n        ' \u65b0\u898f\u8ffd\u52a0\u30af\u30a8\u30ea\u4f5c\u6210\r\n        sql = \"INSERT INTO m_tani(\" _\r\n                &amp; \" kbn_id\" _\r\n                &amp; \", tani\" _\r\n                &amp; \" ) VALUES (\" _\r\n                &amp; \", ?\" _\r\n                &amp; \", ?\" _\r\n                &amp; \")\"\r\n    \r\n        ' DB\u63a5\u7d9a\u3059\u308b\r\n        Set oCon = New ADODB.Connection\r\n        Call connect_db(oCon)\r\n        \r\n        ' \u30b3\u30de\u30f3\u30c9\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u751f\u6210\r\n        Set command = New ADODB.command\r\n        command.ActiveConnection = oCon\r\n        command.CommandText = sql\r\n        \r\n        ' \u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u8a2d\u5b9a\r\n        Set param = command.CreateParameter(\"kbn_id\", adInteger, adParamInput, , 1)\r\n        command.Parameters.Append param\r\n        \r\n        Set param = command.CreateParameter(\"tani\", adVarChar, adParamInput, 255, \"\u33a5\")\r\n        command.Parameters.Append param\r\n        \r\n        ' \u30af\u30a8\u30ea\u5b9f\u884c\r\n        command.Execute count\r\n        \r\n        oCon.Close\r\n        Set oCon = Nothing\r\n        Set command = Nothing\r\n        \r\n        ' \u767b\u9332\u5b8c\u4e86\u30e1\u30c3\u30bb\u30fc\u30b8\r\n        If (count &gt; 0) Then\r\n            MsgBox \"\u767b\u9332\u3057\u307e\u3057\u305f\u3002\", vbInformation\r\n            \r\n            ' \u4e00\u89a7\u3092\u8868\u793a\r\n            DoCmd.BrowseTo acBrowseToForm, \"\u5358\u4f4d\u4e00\u89a7\"\r\n            \r\n        Else\r\n            \r\n            MsgBox \"\u767b\u9332\u3067\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002\", vbInformation\r\n        End If<\/pre>\n<p>\u63a5\u7d9a\u95a2\u4fc2\u304c\u602a\u3057\u3044\u306a\u3001\u3068\u601d\u3063\u305f\u306e\u3067\u5f53\u305f\u308a\u3092\u3064\u3051\u3066\u8a66\u3057\u305f\u3068\u3053\u308d\u3001\u7406\u7531\u306f\u672a\u8abf\u67fb\u3067\u3059\u304c\u3001\u4ee5\u4e0b\u3067\u89e3\u6c7a\u3057\u307e\u3057\u305f\u3002<\/p>\n<ul>\n<li>\u63a5\u7d9a\u3092OLE DB\u306b\u5909\u66f4<\/li>\n<\/ul>\n<p>ODBC\u63a5\u7d9a<\/p>\n<pre class=\"lang:vb decode:true \" >Function connect_db(oCon)\r\n    oCon.ConnectionString = \"Driver={Microsoft Access Driver (*.mdb, *.accdb)};\" _\r\n            &amp; \"DBQ=\" &amp; CurrentProject.Path &amp; \"\\\u30c6\u30fc\u30d6\u30eb\u7528\u30d5\u30a1\u30a4\u30eb.accdb;\"\r\n    oCon.Open\r\nEnd Function\r\n<\/pre>\n<p>\u3000\u3000\u2193<br \/>\nOLE DB\u63a5\u7d9a<\/p>\n<pre class=\"lang:vb decode:true \" >Function connect_db(oCon)\r\n    oCon.ConnectionString = \"Provider=Microsoft.ACE.OLEDB.12.0;\" _\r\n            &amp; \"Data Source=\" &amp; CurrentProject.Path &amp; \"\\\u30c6\u30fc\u30d6\u30eb\u7528\u30d5\u30a1\u30a4\u30eb.accdb;\"\r\nEnd Function\r\n<\/pre>\n<p>\n\u306a\u304a\u3001OLE DB\u306b\u5909\u66f4\u3057\u305f\u3068\u304d\u3001\uff08\u4e0a\u8a18\u3068\u306f\u5225\u306e\u7b87\u6240\u3067\u3059\u304c\uff09ADO\u3067\u30c7\u30fc\u30bf\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b\u8a18\u8ff0\u306e\u90e8\u5206\u3067ODBC\u3067\u306f\u51fa\u3066\u3044\u306a\u304b\u3063\u305f\u3001\u4e88\u7d04\u8a9e\u306e\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"lang:default decode:true \" >SELECT COUNT(*) AS count FROM m_jigyosho WHERE id=0<\/pre>\n<p>\u3053\u3061\u3089\u3001\u4e88\u7d04\u8a9e\u300ccount\u300d\u3092\u30a8\u30a4\u30ea\u30a2\u30b9\u3067\u4f7f\u7528\u3057\u3066\u3044\u305f\u306e\u3067\u3001\u300crow_count\u300d\u3068\u4fee\u6b63\u3057\u305f\u3089\u30a8\u30e9\u30fc\u306f\u51fa\u305a\u3001\u7121\u4e8b\u691c\u7d22\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"lang:default decode:true \" >SELECT COUNT(*) AS row_count FROM m_jigyosho WHERE id=0<\/pre>\n<h3>IT\u30a8\u30f3\u30b8\u30cb\u30a2\u52df\u96c6\u4e2d\uff01<\/h3>\n<p>\u30ad\u30e5\u30a2\u30b3\u30fc\u30c9\u682a\u5f0f\u4f1a\u793e\u306fIT\u30a8\u30f3\u30b8\u30cb\u30a2\u3092\u52df\u96c6\u3057\u3066\u304a\u308a\u307e\u3059\u3002\u5c11\u4eba\u6570\u306e\u8077\u5834\u306a\u306e\u3067\u3001\u4e0a\u6d41\u30fb\u4e0b\u6d41\u3084\u30b5\u30fc\u30d0\u30fc\u30fb\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5bfe\u5fdc\u306e\u57a3\u6839\u306a\u304f\u3001\u3042\u306a\u305f\u306e\u5f37\u307f\u3092\u6d3b\u304b\u3057\u306a\u304c\u3089 \u3044\u308d\u3044\u308d\u306a\u3053\u3068\u306b\u30c1\u30e3\u30ec\u30f3\u30b8\u53ef\u80fd\u3067\u3059\u3002\u30a8\u30f3\u30b8\u30cb\u30a2\u3068\u3057\u3066\u306e\u672a\u7d4c\u9a13\u306e\u65b9\u3001\u7d4c\u9a13\u304c\u5c11\u306a\u3044\u65b9\u3082\u6b53\u8fce\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u4e0b\u8a18\u3088\u308aIT\u30a8\u30f3\u30b8\u30cb\u30a2\u52df\u96c6\u306e\u63a1\u7528\u60c5\u5831\u3092\u3054\u89a7\u3044\u305f\u3060\u3051\u307e\u3059\u3002<\/p>\n<div class=\"curecode_recruit_bn\">\n\t\t\t\t<a href=\"https:\/\/curecode.jp\/recruit\/itengineer\/\" target=\"_blank\" rel=\"noopener noreferrer\"><br \/>\n\t\t\t\t\t\t<img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/curecode.jp\/tech\/wp-content\/themes\/tech\/images\/it_recruit.png?20241220\" alt=\"\u4e8b\u696d\u62e1\u5927\u306b\u4f34\u3044\u65b0\u3057\u3044\u9818\u57df\u306b\u4e00\u7dd2\u306b\u53d6\u308a\u7d44\u3093\u3067\u3044\u304f\u30e1\u30f3\u30d0\u30fc\u3092\u52df\u96c6\u3057\u307e\u3059\u3002\"  width=\"500\" height=\"180\"\/><br \/>\n\t\t\t\t<\/a>\n\t\t<\/div>\n<h3>\u30ad\u30e5\u30a2\u30b3\u30fc\u30c9\u516c\u5f0f\u30a4\u30f3\u30b9\u30bf\u30b0\u30e9\u30e0<\/h3>\n<p>\u30ad\u30e5\u30a2\u30b3\u30fc\u30c9\u682a\u5f0f\u4f1a\u793e\u306e\u65b0\u30b5\u30fc\u30d3\u30b9\u60c5\u5831\u3084\u3001\u30aa\u30d5\u30a3\u30b9\u30e9\u30a4\u30d5\u306e\u7d20\u6575\u306a\u77ac\u9593\u307e\u3067\u3002\u79c1\u305f\u3061\u306e\u65e5\u3005\u306e\u55b6\u307f\u3092\u3054\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n<div class=\"curecode_recruit_bn\">\n\t\t\t\t<a href=\"https:\/\/www.instagram.com\/curecode\/\" target=\"_blank\" rel=\"noopener noreferrer\"><br \/>\n\t\t\t\t\t\t<img loading=\"lazy\" decoding=\"async\" src=\"https:\/\/curecode.jp\/tech\/wp-content\/themes\/tech\/images\/insta_bn.png?20241220\" alt=\"\u4e8b\u696d\u62e1\u5927\u306b\u4f34\u3044\u65b0\u3057\u3044\u9818\u57df\u306b\u4e00\u7dd2\u306b\u53d6\u308a\u7d44\u3093\u3067\u3044\u304f\u30e1\u30f3\u30d0\u30fc\u3092\u52df\u96c6\u3057\u307e\u3059\u3002\"  width=\"500\" height=\"180\"\/><br \/>\n\t\t\t\t<\/a>\n\t\t<\/div>\n","protected":false},"excerpt":{"rendered":"<p>Microsoft Access2013 \u306eaccdb\u30d5\u30a1\u30a4\u30eb\u3092\u30c6\u30fc\u30d6\u30eb\u7528\u3001\u30d5\u30a9\u30fc\u30e0\u7528\u3068\u5206\u3051\u3066\u4f5c\u6210\u3057 [&hellip;]<\/p>\n","protected":false},"author":3,"featured_media":596,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[100],"tags":[105,101,102,103,106,104],"class_list":["post-852","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-access","tag-access","tag-ado","tag-odbc","tag-oledb","tag-vba","tag-104"],"_links":{"self":[{"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/posts\/852","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/comments?post=852"}],"version-history":[{"count":31,"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/posts\/852\/revisions"}],"predecessor-version":[{"id":883,"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/posts\/852\/revisions\/883"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/media\/596"}],"wp:attachment":[{"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/media?parent=852"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/categories?post=852"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/curecode.jp\/tech\/wp-json\/wp\/v2\/tags?post=852"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}