![\"\"](\"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-content\/uploads\/2026\/02\/odbc-700x484.png\")
<\/a><\/p>\n <\/p>\n
<\/p>\n
VBA\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u306e\u5b9f\u88c5<\/h2>\n
\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n
\r\nSub ConnectToMySQL()\r\n ' ADO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u5ba3\u8a00\uff08\u5b9f\u884c\u6642\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\uff09\r\n Dim conn As Object\r\n Dim rs As Object\r\n Dim connectionString As String\r\n \r\n ' \u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306e\u751f\u6210\r\n Set conn = CreateObject("ADODB.Connection")\r\n Set rs = CreateObject("ADODB.Recordset")\r\n \r\n ' --- \u63a5\u7d9a\u6587\u5b57\u5217\u306e\u8a2d\u5b9a ---\r\n ' DRIVER: ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3067\u78ba\u8a8d\u3057\u305f\u6b63\u78ba\u306a\u540d\u79f0\u3092\u6307\u5b9a\r\n ' SERVER: \u30b5\u30fc\u30d0\u30fc\u306e\u30c9\u30e1\u30a4\u30f3\u540d\u307e\u305f\u306fIP\u30a2\u30c9\u30ec\u30b9\r\n connectionString = "DRIVER={MySQL ODBC 9.2 Unicode Driver};" & _\r\n "SERVER=satoshi71.com;" & _\r\n "DATABASE=database_name;" & _\r\n "USER=admin;" & _\r\n "PASSWORD=your_password;" & _\r\n "PORT=3306;" & _\r\n "OPTION=3;"\r\n\r\n On Error GoTo ErrorHandler\r\n \r\n ' \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u63a5\u7d9a\u958b\u59cb\r\n conn.Open connectionString\r\n \r\n ' SQL\u30af\u30a8\u30ea\u306e\u5b9f\u884c\uff08users\u30c6\u30fc\u30d6\u30eb\u304b\u3089\u5168\u4ef6\u53d6\u5f97\uff09\r\n rs.Open "SELECT * FROM users", conn\r\n \r\n ' \u30bb\u30ebA1\u3092\u8d77\u70b9\u306b\u3001\u53d6\u5f97\u3057\u305f\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u4e00\u62ec\u5c55\u958b\r\n If Not rs.EOF Then\r\n Sheet1.Range("A1").CopyFromRecordset rs\r\n End If\r\n \r\n MsgBox "\u30c7\u30fc\u30bf\u306e\u8aad\u307f\u8fbc\u307f\u306b\u6210\u529f\u3057\u307e\u3057\u305f\u3002", vbInformation\r\n \r\nCleanUp:\r\n ' \u5f8c\u51e6\u7406\uff1a\u63a5\u7d9a\u3092\u9589\u3058\u3066\u30e1\u30e2\u30ea\u3092\u89e3\u653e\r\n If Not rs Is Nothing Then If rs.State = 1 Then rs.Close\r\n If Not conn Is Nothing Then If conn.State = 1 Then conn.Close\r\n Set rs = Nothing\r\n Set conn = Nothing\r\n Exit Sub\r\n\r\nErrorHandler:\r\n ' \u30a8\u30e9\u30fc\u767a\u751f\u6642\u306e\u901a\u77e5\uff08\u63a5\u7d9a\u6587\u5b57\u5217\u306e\u30df\u30b9\u3084\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u30a8\u30e9\u30fc\u306a\u3069\uff09\r\n MsgBox "\u63a5\u7d9a\u5931\u6557: " & Err.Description, vbCritical\r\n Resume CleanUp\r\nEnd Sub\r\n \r\n<\/pre>\n <\/p>\n","protected":false},"excerpt":{"rendered":"
Excel VBA\u3092\u7528\u3044\u3066Xserver VPS\u4e0a\u306b\u69cb\u7bc9\u3055\u308c\u305fMySQL\u30c7\u30fc\u30bf\u30d9 … <\/p>\n","protected":false},"author":1,"featured_media":13115,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[23,6,63],"tags":[],"class_list":["post-13108","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel","category-vba","category-xserver-vps"],"aioseo_notices":[],"_links":{"self":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/13108","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/comments?post=13108"}],"version-history":[{"count":2,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/13108\/revisions"}],"predecessor-version":[{"id":13114,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/13108\/revisions\/13114"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media\/13115"}],"wp:attachment":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media?parent=13108"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/categories?post=13108"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/tags?post=13108"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"\"](\"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-content\/uploads\/2026\/02\/\u30b9\u30af\u30ea\u30fc\u30f3\u30b7\u30e7\u30c3\u30c8-2026-02-26-215730-700x514.png\")
<\/a><\/p>\n