{"id":50,"date":"2008-03-14T16:54:41","date_gmt":"2008-03-14T07:54:41","guid":{"rendered":"http:\/\/knowhow.hirohiro716.com\/?p=50"},"modified":"2017-02-21T17:02:56","modified_gmt":"2017-02-21T08:02:56","slug":"vb%e3%81%8b%e3%82%89dao%e3%81%a7mdb%e3%81%ab%e3%82%a2%e3%82%af%e3%82%bb%e3%82%b9%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/weblog.hirohiro716.com\/?p=50","title":{"rendered":"VB\u304b\u3089DAO\u3067MDB\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b"},"content":{"rendered":"<p>\u53c2\u7167\u8a2d\u5b9a\u3067\u300cMicrosoft Office X.X Access database engine Object Library\u300d\u3092\u8ffd\u52a0<br \/>\nDAO\u306fRecordset.Edit\u3067\u30ec\u30b3\u30fc\u30c9\u30ed\u30c3\u30af\u3055\u308c\u3001Recordset.Update\u3067\u30ed\u30c3\u30af\u89e3\u9664\u3055\u308c\u308b\u3002DAO\u306f\u30ed\u30c3\u30af\u95a2\u9023\u304c\u3068\u3066\u3082\u4f7f\u3044\u3084\u3059\u304f\u3066\u826f\u3044\u3002Access\u3067\u958b\u767a\u3092\u3059\u308b\u5834\u5408\u306fADO\u3067\u306f\u306a\u304fDAO\u3092\u4f7f\u3063\u3066\u304a\u3044\u305f\u65b9\u304c\u5f8c\u3005\u52a9\u304b\u308b\u4e8b\u304c\u591a\u3044\u306a\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nDim database As DAO.database\r\nDim recordset As DAO.recordset\r\nDim sql As String\r\n\r\n&#039;Access\u5916\u90e8\u304b\u3089\u306e\u5834\u5408\r\n&#039;Dim workspace As DAO.workspace\r\n&#039;Set workspace = DBEngine.Workspaces(0)\r\n&#039;Set database = workspace.OpenDatabase(&quot;C:\\test.mdb&quot;)\r\n\r\n&#039;Access\u5185\u90e8\u304b\u3089\u306e\u5834\u5408\r\nSet database = CurrentDb\r\n\r\nsql = &quot;SELECT * FROM test;&quot;\r\nSet recordset = database.OpenRecordset(sql, dbOpenDynaset)\r\n\r\nrecordset.Edit\r\n\r\nrecordset.Fields(&quot;column&quot;).Value = &quot;\u5024&quot;\r\nrecordset.Update\r\n\r\nrecordset.Close\r\ndatabase.Close\r\n&#039;workspace.Close\r\n\r\nSet recordset = Nothing\r\nSet database = Nothing\r\n&#039;Set workspace = Nothing\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u53c2\u7167\u8a2d\u5b9a\u3067\u300cMicrosoft Office X.X Access database engine Object Library\u300d\u3092\u8ffd\u52a0 DAO\u306fRecordset.Edit\u3067\u30ec\u30b3\u30fc\u30c9\u30ed\u30c3\u30af\u3055\u308c\u3001Recordset.Up [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[],"class_list":["post-50","post","type-post","status-publish","format-standard","hentry","category-vb-vba"],"views":9388,"_links":{"self":[{"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=\/wp\/v2\/posts\/50","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=50"}],"version-history":[{"count":1,"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=\/wp\/v2\/posts\/50\/revisions"}],"predecessor-version":[{"id":569,"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=\/wp\/v2\/posts\/50\/revisions\/569"}],"wp:attachment":[{"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=50"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=50"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/weblog.hirohiro716.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=50"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}