\u6211\u4eec\u5df2\u7ecf\u719f\u6089\u5728 ASP \u4e2d\u901a\u8fc7\u8c03\u7528 SQL Server \u5b58\u50a8\u8fc7\u7a0b\u6765\u6267\u884c\u6570\u636e\u5e93\u64cd\u4f5c\uff0c\u4e0d\u8fc7\u5927\u5bb6\u662f\u5426\u77e5\u9053\uff0c\u5728\u684c\u9762\u7ea7\u6570\u636e\u5e93 Access \u4e2d\uff0c\u6211\u4eec\u4e5f\u80fd\u591f\u521b\u5efa\u5e76\u4f7f\u7528\u201c\u5b58\u50a8\u8fc7\u7a0b\u201d\uff1f<\/p>\n
Access + ASP \u662f\u5f00\u53d1\u8f7b\u91cf\u7ea7 Web \u5e94\u7528\u7a0b\u5e8f\u7684\u7edd\u4f73\u7ec4\u5408\uff1a\u7b80\u5355\uff0c\u5feb\u901f\uff0c\u517c\u5bb9\u6027\u597d\uff0c\u4f46\u662f\u6027\u80fd\u901a\u5e38\u4e0d\u9ad8\u3002\u5e76\u4e14\uff0c\u7528 ADODB.Connection \u548c Recordset \u5bf9\u8c61\u6765\u6267\u884c SQL \u8bed\u53e5\u7684\u65b9\u5f0f\uff0c\u4e5f\u6709\u4e00\u4e9b\u4e0d\u65b9\u4fbf\uff0c\u56e0\u4e3a\u5e26\u53c2\u6570\u7684 SQL \u8bed\u53e5\u7684\u53c2\u6570\u503c\u4e5f\u5e38\u5e38\u662f\u62fc\u63a5\u5230\u5b57\u7b26\u4e32\u4e2d\uff0c\u4e8e\u662f\u4fbf\u6709\u4e86\u8bf8\u5982\u201c\u5355\u5f15\u53f7\u95ee\u9898\u201d\u8fd9\u6837\u7684\u9ebb\u70e6\u3002\u4f7f\u7528\u5b58\u50a8\u8fc7\u7a0b\u7684\u4e00\u4e2a\u597d\u5904\u5c31\u662f\uff0c\u652f\u6301 SQL \u8bed\u53e5\u53c2\u6570\u503c\u7684\u53e6\u5916\u63d0\u4f9b\u3002<\/p>\n
\u4e8b\u5b9e\u4e0a\uff0cAccess\uff082000 \u53ca\u4ee5\u4e0a\u7248\u672c\uff09\u4e2d\u6240\u8c13\u201c\u5b58\u50a8\u8fc7\u7a0b\u201d\uff0c\u548c SQL Server \u4e2d\u7684 Stored Procedure \u662f\u4e0d\u80fd\u6bd4\u7684\u3002\u5b83\u53ea\u80fd\u7b97\u662f\u201cStored Procedure Lite\u201d\uff0c\u4e0d\u652f\u6301\u591a\u6761 SQL \u8bed\u53e5\uff0c\u4e0d\u652f\u6301\u903b\u8f91\u8bed\u53e5\uff08\u5475\u5475\uff0c\u6bd5\u7adf\u4e0d\u662f T-SQL\uff09\u7b49\u7b49\uff0c\u6211\u4e5f\u8fd8\u4e0d\u6e05\u695a\u5b83\u662f\u4e0d\u662f\u9884\u7f16\u8bd1\u4e86\u3002\u4e0d\u8fc7\uff0c\u6b63\u5982\u540c VBScript \u5b9e\u73b0\u7684\u6240\u8c13\u201c\u7c7b\u201d\u4ec5\u4ec5\u5177\u6709\u5c01\u88c5\u6027\uff0c\u5bf9\u4e8e\u4ee3\u7801\u7ed3\u6784\u7684\u201c\u7f8e\u5316\u201d\u548c\u7a0b\u5e8f\u91cd\u7528\u6027\u5177\u6709\u5f88\u5927\u4fc3\u8fdb\u4e00\u6837\uff0cAccess \u7684\u201c\u8f7b\u91cf\u5b58\u50a8\u8fc7\u7a0b\u201d\uff0c\u5bf9\u4e8e\u89c4\u8303\uff0c\u5c0f\u51fa\u9519\u51e0\u7387\u7684\u6570\u636e\u5e93\u64cd\u4f5c\u5e94\u8be5\u4e5f\u6709\u5e2e\u52a9\uff0c\u5e76\u4e14\u6027\u80fd\u53ef\u80fd\u4f1a\u6709\u63d0\u9ad8\u3002<\/p>\n
\u4e0b\u9762\u6211\u8bd1 step by step \u7684\u65b9\u5f0f\uff0c\u4ecb\u7ecd\u5982\u4f55\u5728 Access \u4e2d\u521b\u5efa\u5b58\u50a8\u8fc7\u7a0b\uff0c\u7136\u540e\u5728 ASP \u7a0b\u5e8f\u4e2d\u4f7f\u7528\u5b83\u3002<\/p>\n
\uff08\u4e00\uff09\u5728 Access \u4e2d\u521b\u5efa\u201c\u5b58\u50a8\u8fc7\u7a0b\u201d<\/p>\n
\u4e0d\u77e5\u9053\u5927\u5bb6\u7684 Access \u5e94\u7528\u6c34\u5e73\u5982\u4f55\uff0c\u53cd\u6b63\u5b83\u5bf9\u4e8e\u6211\u6765\u8bf4\uff0c\u4ec5\u4ec5\u5c31\u662f\u4e00\u4e2a MDB \u6570\u636e\u5e93\u6587\u4ef6\u7684\u521b\u5efa\u5de5\u5177\uff0c\u6211\u53ea\u4f1a\u65b0\u5efa MDB \u6587\u4ef6\uff0c\u7136\u540e\u5728 Access \u7684\u754c\u9762\u4e2d\u521b\u5efa\u8868\uff0c\u7d22\u5f15\uff0c\u7ea6\u675f\u7b49\u7b49\uff0cover\uff5e<\/p>\n
Access \u4e2d\u7684\u201c\u67e5\u8be2\u201d\uff0c\u5c31\u626e\u6f14\u4e86\u5b58\u50a8\u8fc7\u7a0b\u7684\u89d2\u8272\u3002\u4e0b\u6587\u4e2d\u6211\u63d0\u5230\u7684 Access \u7684\u201c\u5b58\u50a8\u8fc7\u7a0b\u201d\u6216\u8005\u201c\u67e5\u8be2\u201d\u90fd\u662f\u6307\u8fd9\u4e2a\u4e1c\u897f<\/p>\n
\u5bf9\u4e8e\u201c\u67e5\u8be2\u201d\u7684\u521b\u5efa\uff0cAccess \u63d0\u4f9b\u4e86\u4e00\u4e2a\u50bb\u74dc\u5de5\u5177\uff0c\u7c7b\u4f3c VS.NET \u91cc\u8fb9\u5efa\u7acb DataAdapter \u65f6\u7684\u5411\u5bfc\u3002\u4e0d\u8fc7\u6211\u559c\u6b22\u76f4\u63a5\u5199 SQL \u4ee3\u7801<\/p>\n
\u7136\u540e\u5728 Access \u4e3b\u754c\u9762\u4e0a\u70b9\u51fb\u5de6\u4fa7\u7684\u201c\u67e5\u8be2\u201d\u6309\u94ae\uff0c\u518d\u5728\u53f3\u8fb9\u53cc\u51fb\u201c\u5728\u8bbe\u8ba1\u89c6\u56fe\u4e2d\u521b\u5efa\u67e5\u8be2\u201d\uff0c\u4ee5\u6253\u5f00\u67e5\u8be2\u8bbe\u8ba1\u89c6\u56fe\u3002<\/p>\n
\u8fd9\u65f6\u5f39\u51fa\u7684\u662f\u53ef\u89c6\u5316\u7684\u67e5\u8be2\u751f\u6210\u5668\uff0c\u6211\u4eec\u9996\u5148\u6dfb\u52a0 SQL \u8bed\u53e5\u9700\u8981\u6d89\u53ca\u7684\u8868\u3002<\/p>\n
\u6dfb\u52a0\u8868\u4e4b\u540e\uff0c\u5728\u8bbe\u8ba1\u89c6\u56fe\u4e0a\u70b9\u51fb\u9f20\u6807\u53f3\u952e\uff0c\u9009\u62e9\u201cSQL \u89c6\u56fe\u201d\uff0c\u4ee5\u5207\u6362\u5230 SQL \u4ee3\u7801\u7f16\u8f91\u7a97\u53e3\u3002<\/p>\n
\u597d\uff0c\u4e0b\u9762\u8bf4\u8bf4 Access \u7684\u5b58\u50a8\u8fc7\u7a0b\u7684\u7279\u70b9\u3002<\/p>\n
Access \u7684\u67e5\u8be2\uff0c\u6211\u76ee\u524d\u7684\u611f\u89c9\u662f\u5bf9 SQL \u8bed\u53e5\u7684\u4e00\u4e2a\u5305\u88c5\uff0c\u6216\u8bb8\u8fdb\u884c\u4e86\u67d0\u79cd\u4f18\u5316\u5982\u9884\u7f16\u8bd1\u3002\u6211\u4eec\u4e0d\u80fd\u50cf\u5199 SQL Server \u5b58\u50a8\u8fc7\u7a0b\u90a3\u6837\u4f7f\u7528\u591a\u91cd\u64cd\u4f5c\uff0c\u4e8b\u52a1\uff0c\u903b\u8f91\u5224\u65ad\uff0c\u5faa\u73af\u7b49\u7b49\u2026\u2026<\/p>\n
\u4f46\u662f\u6211\u4eec\u4f7f\u7528 Access \u5b58\u50a8\u8fc7\u7a0b\u7684\u4e3b\u8981\u76ee\u7684\uff0c\u5c31\u662f\u4f7f\u7528\u53c2\u6570\u989d\u5916\u63d0\u4f9b\u7684\u67e5\u8be2\uff0c\u4f7f\u7528\u5b58\u50a8\u8fc7\u7a0b\uff0c\u6211\u4eec\u4e0d\u5fc5\u518d\u9762\u5bf9\u5c06\u53c2\u6570\u503c\u62fc\u63a5\u5230 SQL \u8bed\u53e5\u5b57\u7b26\u4e32\u4e2d\u65f6\u9047\u5230\u7684\u5404\u79cd\u9ebb\u70e6\uff0c\u6bd4\u5982\uff1a<\/p>\n
\u4ee3\u7801:
\nDim sql
\nsql = "SELECT * FROM Users WHERE UserName = '" & userName & "'"<\/p>\n
\u4ee5\u4e0a\u4ee3\u7801\u4e2d\uff0c\u5982\u679c\u5b57\u7b26\u4e32\u53d8\u91cf userName \u4e2d\u542b\u6709\u201c'\u201d\u5355\u5f15\u53f7\uff0c\u5219\u4f1a\u62a5\u9519\u3002\u6211\u4eec\u5fc5\u987b\u624b\u5de5\u8f6c\u5316\uff1a<\/p>\n
\u4ee3\u7801:
\nDim sql
\nsql = "SELECT * FROM Users WHERE UserName = '" & Replace(userName, "'", "''") & "'" '\u8f6c\u5316\u4e3a\u8fde\u7eed\u4e24\u4e2a\u5355\u5f15\u53f7<\/p>\n
\u800c\u4f7f\u7528\u5e26\u53c2\u6570\u67e5\u8be2\uff0c\u6211\u4eec\u7684 SQL \u8bed\u53e5\u53ef\u4ee5\u5199\u4e3a\uff1a<\/p>\n
\u4ee3\u7801:
\nDim sql
\nsql = "SELECT * FROM Users WHERE UserName = @userName"<\/p>\n
\u7136\u540e\u628a\u53c2\u6570 @userName \u7684\u503c\u4ee5 Command \u5bf9\u8c61\u7684 Parameter \u5c5e\u6027\u6765\u4f20\u5165\u5373\u53ef\uff0c\u5f88\u65b9\u4fbf\u76f4\u89c2\u3002<\/p>\n
\u4ee3\u7801:
\nWith cmd
\n '\u521b\u5efa\u53c2\u6570\u5bf9\u8c61
\n .Parameters.Append .CreateParameter("@userName")<\/p>\n
'\u7ed9\u5404\u53c2\u6570\u6307\u5b9a\u503c
\n .Parameters("@userName") = userName
\nEnd With<\/p>\n
\u8fd9\u91cc\u8fd8\u8981\u8bf4\u660e Access \u5b58\u50a8\u8fc7\u7a0b\u4e2d\u53c2\u6570\u7684\u4f7f\u7528\u3002\u548c SQL Server \u7684\u5b58\u50a8\u8fc7\u7a0b\u4e2d\u7528 @ \u53d8\u91cf\u6307\u5b9a\u53c2\u6570\uff0c\u7136\u540e\u540c\u540d\u4f20\u5165\u53c2\u6570\u5bf9\u8c61\u4e0d\u540c\uff0cAccess \u4e2d\u7684\u53c2\u6570\uff0c\u662f\u4ee5\u201c\u987a\u5e8f\u201d\u800c\u975e\u201c\u540d\u5b57\u201d\u6765\u8bc6\u522b\u7684\u3002\u4f20\u5165\u7684\u53c2\u6570\u65e0\u9700\u6307\u5b9a\u540d\u5b57\uff0c\u968f\u4fbf\u8d77\uff0cSQL \u4e2d\u7684\u53c2\u6570\u540d\u5b57\u4e5f\u53ef\u4ee5\u968f\u4fbf\u8d77\uff0c\u53ea\u8981\u4f20\u5165\u53c2\u6570\u503c\u65f6\uff0c\u6309\u7167 SQL \u8bed\u53e5\u4e2d\u7684\u53c2\u6570\u51fa\u73b0\u987a\u5e8f\u6307\u5b9a\u5c31\u884c\u4e86\u3002\u901a\u5e38\uff0c\u6211\u4eec\u4f7f\u7528 Command \u5bf9\u8c61\u7684 Execute \u65b9\u6cd5\uff0c\u76f4\u63a5\u4f20\u5165\u53c2\u6570\u503c\u6570\u7ec4\u6765\u6267\u884c\uff5e<\/p>\n
\u4ee3\u7801:
\ncmd.Execute , Array(userName)<\/p>\n
\u518d\u6bd4\u5982\uff0c\u4f60\u7684\u4e00\u4e2a Access \u5b58\u50a8\u8fc7\u7a0b\u8fd9\u4e48\u5199\uff1a<\/p>\n
\u4ee3\u7801:
\nselect * from Users where UserName = p_UserName and BookTitle = p_bookTitle<\/p>\n
\u4f60\u53ef\u4ee5\u5c31\u8fd9\u4e48\u6267\u884c\uff0c\u901a\u8fc7\u4f20\u5165\u53c2\u6570\u503c\u6570\u7ec4\uff0c\u4f46\u662f\u987a\u5e8f\u8981\u5bf9\u5e94\uff1a<\/p>\n
\u4ee3\u7801:
\ncmd.Execute , Array(userName, bookTitle)<\/p>\n
OK\uff0c\u770b\u770b\u6211\u4eec\u7684\u4f8b\u5b50\u4e2d\u4f7f\u7528\u7684\u4e24\u4e2a\u67e5\u8be2\uff0c\u4e00\u4e2a\u662f\u5199\u5165\u6570\u636e\u3002\u5199\u597d SQL \u8bed\u53e5\u540e\u4fdd\u5b58\u5e76\u547d\u540d\u3002<\/p>\n
\u53e6\u4e00\u4e2a\u8bfb\u53d6\u6570\u636e\u7684\u5b58\u50a8\u8fc7\u7a0b\u4ee3\u7801\u3002<\/p>\n
\uff08\u4e8c\uff09\u4f7f\u7528\u5b58\u50a8\u8fc7\u7a0b<\/p>\n
\u7136\u540e\u6211\u4eec\u53ef\u4ee5\u5728 ASP \u7a0b\u5e8f\u4e2d\u8c03\u7528\u8fd9\u4e9b\u5b58\u50a8\u8fc7\u7a0b\u4e86\u3002<\/p>\n
\u8fd9\u91cc\u53ef\u4ee5\u770b\u5230\u4e3a\u4ec0\u4e48\u6211\u8bf4 Access \u4e2d\u7684\u67e5\u8be2\u5c31\u662f\u5b83\u7684\u5b58\u50a8\u8fc7\u7a0b\u2014\u2014\u6211\u4eec\u7684 Command \u5bf9\u8c61\u7684 CommandType \u5c5e\u6027\u8bbe\u7f6e\u7684\u662f 4\uff0c\u5373 Stored Proc\uff01<\/p>\n
so…<\/p>\n
\u4ee5\u4e0b\u7684\u4ee3\u7801\u5f88\u7b80\u5355\uff1a<\/p>\n
\u4ee3\u7801:
\n<%
\nOption Explicit<\/p>\n
Dim s
\nRandomize
\ns = Rnd * 100<\/p>\n
Dim conn, cmd
\nSet conn = Server.CreateObject("ADODB.Connection")
\nSet cmd = Server.CreateObject("ADODB.Command")<\/p>\n
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("sp.mdb")<\/p>\n
With cmd
\n .ActiveConnection = conn
\n .CommandType = &H0004 '\u5b58\u50a8\u8fc7\u7a0b
\n .CommandText = "AddNewData"
\nEnd With<\/p>\n
cmd.Execute , Array(CStr(Now()), CSng(s))<\/p>\n
With cmd
\n .ActiveConnection = conn
\n .CommandType = &H0004 '\u5b58\u50a8\u8fc7\u7a0b
\n .CommandText = "GetData"
\nEnd With<\/p>\n
Dim resultRS, resultArray
\nSet resultRS = cmd.Execute(, Null)<\/p>\n
If Not resultRS.EOF Then
\n resultArray = resultRS.GetRows()
\nEnd If<\/p>\n
Set resultRS = Nothing
\nSet cmd = Nothing
\nconn.Close
\nSet conn = Nothing<\/p>\n
Response.Write "<ul>"
\nDim i
\nFor i = 0 To UBound(resultArray, 2)
\n Response.Write "<li>" & resultArray(0, i)
\n Response.Write " " & resultArray(1, i)
\n Response.Write " " & resultArray(2, i)
\n Response.Write "<\/li>"
\nNext
\nResponse.Write "<\/ul>"
\n%><\/p>\n","protected":false},"excerpt":{"rendered":"
\u6211\u4eec\u5df2\u7ecf\u719f\u6089\u5728 ASP \u4e2d\u901a\u8fc7\u8c03\u7528 SQL Server \u5b58\u50a8\u8fc7\u7a0b\u6765\u6267\u884c\u6570\u636e\u5e93\u64cd\u4f5c\uff0c\u4e0d\u8fc7\u5927\u5bb6\u662f\u5426\u77e5\u9053\uff0c\u5728\u684c\u9762\u7ea7 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","footnotes":""},"categories":[],"tags":[],"class_list":["post-466","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/posts\/466","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=466"}],"version-history":[{"count":0,"href":"https:\/\/www.mudone.com\/index.php?rest_route=\/wp\/v2\/posts\/466\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=466"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=466"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.mudone.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=466"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}