{"id":194937,"date":"2024-11-13T10:50:20","date_gmt":"2024-11-13T02:50:20","guid":{"rendered":"https:\/\/server.hk\/cnblog\/194937\/"},"modified":"2024-11-13T10:50:21","modified_gmt":"2024-11-13T02:50:21","slug":"%e7%94%a8vb6%e5%af%a6%e7%8f%be%e9%ab%98%e6%95%88%e6%95%b8%e6%93%9a%e5%ba%ab%e6%93%8d%e4%bd%9c%ef%bc%9a%e5%af%a6%e9%ab%94%e9%a1%9e%e8%88%87%e4%bd%a0%e4%b8%8d%e5%8f%af%e9%8c%af%e9%81%8e%e7%9a%84","status":"publish","type":"post","link":"https:\/\/server.hk\/cnblog\/194937\/","title":{"rendered":"\u7528VB6\u5be6\u73fe\u9ad8\u6548\u6578\u64da\u5eab\u64cd\u4f5c\uff1a\u5be6\u9ad4\u985e\u8207\u4f60\u4e0d\u53ef\u932f\u904e\u7684\u7d44\u5408\uff01 (\u57fa\u65bcvb6\u5be6\u9ad4\u985e\u64cd\u4f5c\u6578\u64da\u5eab)"},"content":{"rendered":"

\u7528VB6\u5be6\u73fe\u9ad8\u6548\u6578\u64da\u5eab\u64cd\u4f5c\uff1a\u5be6\u9ad4\u985e\u8207\u4f60\u4e0d\u53ef\u932f\u904e\u7684\u7d44\u5408\uff01<\/h1>\n

\u5728\u7576\u4eca\u7684\u8edf\u4ef6\u958b\u767c\u4e2d\uff0c\u6578\u64da\u5eab\u64cd\u4f5c\u662f\u4e0d\u53ef\u6216\u7f3a\u7684\u4e00\u90e8\u5206\u3002Visual Basic 6\uff08VB6\uff09\u4f5c\u70ba\u4e00\u7a2e\u7d93\u5178\u7684\u7de8\u7a0b\u8a9e\u8a00\uff0c\u96d6\u7136\u5df2\u7d93\u4e0d\u518d\u662f\u4e3b\u6d41\uff0c\u4f46\u4ecd\u7136\u5728\u67d0\u4e9b\u7279\u5b9a\u9818\u57df\u4e2d\u767c\u63ee\u8457\u91cd\u8981\u4f5c\u7528\u3002\u672c\u6587\u5c07\u63a2\u8a0e\u5982\u4f55\u5229\u7528VB6\u4e2d\u7684\u5be6\u9ad4\u985e\u4f86\u5be6\u73fe\u9ad8\u6548\u7684\u6578\u64da\u5eab\u64cd\u4f5c\uff0c\u4e26\u63d0\u4f9b\u4e00\u4e9b\u5be6\u7528\u7684\u793a\u4f8b\u548c\u4ee3\u78bc\u7247\u6bb5\u3002<\/p>\n

\u4ec0\u9ebc\u662f\u5be6\u9ad4\u985e\uff1f<\/h2>\n

\u5be6\u9ad4\u985e\uff08Entity Class\uff09\u662f\u4e00\u7a2e\u7528\u65bc\u8868\u793a\u6578\u64da\u5eab\u4e2d\u5be6\u9ad4\u7684\u985e\u3002\u5b83\u901a\u5e38\u5305\u542b\u8207\u6578\u64da\u5eab\u8868\u5c0d\u61c9\u7684\u5c6c\u6027\uff0c\u4e26\u63d0\u4f9b\u65b9\u6cd5\u4f86\u64cd\u4f5c\u9019\u4e9b\u6578\u64da\u3002\u4f7f\u7528\u5be6\u9ad4\u985e\u7684\u597d\u8655\u5728\u65bc\uff0c\u5b83\u80fd\u5920\u5c07\u6578\u64da\u5eab\u64cd\u4f5c\u8207\u696d\u52d9\u908f\u8f2f\u5206\u96e2\uff0c\u5f9e\u800c\u63d0\u9ad8\u4ee3\u78bc\u7684\u53ef\u7dad\u8b77\u6027\u548c\u53ef\u8b80\u6027\u3002<\/p>\n

VB6\u4e2d\u7684\u6578\u64da\u5eab\u64cd\u4f5c<\/h2>\n

\u5728VB6\u4e2d\uff0c\u6578\u64da\u5eab\u64cd\u4f5c\u901a\u5e38\u901a\u904eADO\uff08ActiveX Data Objects\uff09\u4f86\u5be6\u73fe\u3002ADO\u63d0\u4f9b\u4e86\u4e00\u500b\u7c21\u55ae\u7684\u63a5\u53e3\u4f86\u9023\u63a5\u548c\u64cd\u4f5c\u5404\u7a2e\u6578\u64da\u5eab\u3002\u4ee5\u4e0b\u662f\u4f7f\u7528ADO\u9023\u63a5\u5230Access\u6578\u64da\u5eab\u7684\u57fa\u672c\u793a\u4f8b\uff1a<\/p>\n

Dim conn As ADODB.Connection\nSet conn = New ADODB.Connection\nconn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.mdb;\"\nconn.Open\n<\/code><\/pre>\n
\u4e00\u65e6\u9023\u63a5\u6210\u529f\uff0c\u6211\u5011\u5c31\u53ef\u4ee5\u4f7f\u7528SQL\u8a9e\u53e5\u4f86\u57f7\u884c\u67e5\u8a62\u3001\u63d2\u5165\u3001\u66f4\u65b0\u548c\u522a\u9664\u64cd\u4f5c\u3002<\/p>\n
\u5be6\u9ad4\u985e\u7684\u8a2d\u8a08<\/h2>\n
\u8a2d\u8a08\u4e00\u500b\u5be6\u9ad4\u985e\u7684\u904e\u7a0b\u76f8\u5c0d\u7c21\u55ae\u3002\u5047\u8a2d\u6211\u5011\u6709\u4e00\u500b\u540d\u70ba\u201cUser\u201d\u7684\u6578\u64da\u8868\uff0c\u5305\u542b\u201cID\u201d\u3001\u201cName\u201d\u548c\u201cEmail\u201d\u4e09\u500b\u5b57\u6bb5\u3002\u6211\u5011\u53ef\u4ee5\u5275\u5efa\u4e00\u500b\u5c0d\u61c9\u7684\u5be6\u9ad4\u985e\u5982\u4e0b\uff1a<\/p>\n
Public Class User\n    Public ID As Integer\n    Public Name As String\n    Public Email As String\n\n    ' \u69cb\u9020\u51fd\u6578\n    Public Sub New(ByVal id As Integer, ByVal name As String, ByVal email As String)\n        Me.ID = id\n        Me.Name = name\n        Me.Email = email\n    End Sub\n\n    ' \u4fdd\u5b58\u5230\u6578\u64da\u5eab\u7684\u65b9\u6cd5\n    Public Sub Save()\n        Dim conn As ADODB.Connection\n        Set conn = New ADODB.Connection\n        conn.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.mdb;\"\n        conn.Open\n\n        Dim sql As String\n        sql = \"INSERT INTO Users (Name, Email) VALUES ('\" & Me.Name & \"', '\" & Me.Email & \"')\"\n        conn.Execute sql\n        conn.Close\n    End Sub\nEnd Class\n<\/code><\/pre>\n
\u4f7f\u7528\u5be6\u9ad4\u985e\u9032\u884c\u6578\u64da\u5eab\u64cd\u4f5c<\/h2>\n
\u73fe\u5728\u6211\u5011\u53ef\u4ee5\u4f7f\u7528\u9019\u500b\u5be6\u9ad4\u985e\u4f86\u9032\u884c\u6578\u64da\u5eab\u64cd\u4f5c\u3002\u4f8b\u5982\uff0c\u5275\u5efa\u4e00\u500b\u65b0\u7684\u7528\u6236\u4e26\u5c07\u5176\u4fdd\u5b58\u5230\u6578\u64da\u5eab\uff1a<\/p>\n
Dim newUser As User\nSet newUser = New User(0, \"John Doe\", \"john@example.com\")\nnewUser.Save\n<\/code><\/pre>\n
\u9019\u6a23\uff0c\u6211\u5011\u5c31\u80fd\u5920\u901a\u904e\u7c21\u55ae\u7684\u4ee3\u78bc\u4f86\u5be6\u73fe\u6578\u64da\u5eab\u7684\u63d2\u5165\u64cd\u4f5c\u3002\u985e\u4f3c\u5730\uff0c\u6211\u5011\u53ef\u4ee5\u70ba\u67e5\u8a62\u3001\u66f4\u65b0\u548c\u522a\u9664\u64cd\u4f5c\u5275\u5efa\u76f8\u61c9\u7684\u65b9\u6cd5\u3002<\/p>\n
\u7e3d\u7d50<\/h2>\n
\u901a\u904e\u4f7f\u7528VB6\u4e2d\u7684\u5be6\u9ad4\u985e\uff0c\u6211\u5011\u53ef\u4ee5\u6709\u6548\u5730\u7ba1\u7406\u6578\u64da\u5eab\u64cd\u4f5c\uff0c\u5f9e\u800c\u63d0\u9ad8\u4ee3\u78bc\u7684\u53ef\u7dad\u8b77\u6027\u548c\u53ef\u8b80\u6027\u3002\u5118\u7ba1VB6\u7684\u4f7f\u7528\u9010\u6f38\u6e1b\u5c11\uff0c\u4f46\u5728\u67d0\u4e9b\u7279\u5b9a\u7684\u61c9\u7528\u5834\u666f\u4e2d\uff0c\u5b83\u4ecd\u7136\u662f\u4e00\u500b\u6709\u50f9\u503c\u7684\u5de5\u5177\u3002\u5982\u679c\u4f60\u6b63\u5728\u5c0b\u627e\u9ad8\u6548\u7684\u6578\u64da\u5eab\u89e3\u6c7a\u65b9\u6848\uff0c\u8003\u616e\u4f7f\u7528VB6\u548c\u5be6\u9ad4\u985e\u7684\u7d44\u5408\uff0c\u5c07\u6703\u662f\u4e00\u500b\u4e0d\u932f\u7684\u9078\u64c7\u3002<\/p>\n
\u5982\u679c\u4f60\u5c0d\u65bc\u66f4\u9ad8\u6548\u7684\u6578\u64da\u5eab\u64cd\u4f5c\u6709\u8208\u8da3\uff0c\u4e26\u5e0c\u671b\u5728\u9999\u6e2f\u5c0b\u627e\u5408\u9069\u7684 VPS<\/a> \u89e3\u6c7a\u65b9\u6848\uff0cServer.HK \u63d0\u4f9b\u591a\u7a2e\u9078\u64c7\uff0c\u5e6b\u52a9\u4f60\u8f15\u9b06\u7ba1\u7406\u4f60\u7684\u6578\u64da\u5eab\u548c\u61c9\u7528\u7a0b\u5e8f\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u63a2\u7d22\u5982\u4f55\u4f7f\u7528VB6\u5be6\u9ad4\u985e\u9ad8\u6548\u64cd\u4f5c\u6578\u64da\u5eab\uff0c\u63d0\u5347\u958b\u767c\u6548\u7387\uff0c\u5be6\u73fe\u6578\u64da\u7ba1\u7406\u7684\u6700\u4f73\u5be6\u8e10\uff0c\u8b93\u4f60\u4e0d\u53ef\u932f\u904e\uff01<\/p>\n","protected":false},"author":0,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[101],"tags":[],"class_list":["post-194937","post","type-post","status-publish","format-standard","hentry","category-database"],"_links":{"self":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/194937","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/types\/post"}],"replies":[{"embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/comments?post=194937"}],"version-history":[{"count":1,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/194937\/revisions"}],"predecessor-version":[{"id":194938,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/posts\/194937\/revisions\/194938"}],"wp:attachment":[{"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/media?parent=194937"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/categories?post=194937"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/server.hk\/cnblog\/wp-json\/wp\/v2\/tags?post=194937"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}