{"id":82,"date":"2009-11-30T08:00:00","date_gmt":"2009-11-30T00:00:00","guid":{"rendered":"http:\/\/31.0.2.219:81\/?p=82"},"modified":"2014-03-11T16:37:06","modified_gmt":"2014-03-11T08:37:06","slug":"vb%e6%96%b0%e5%a2%9e%e8%ae%b0%e5%bd%95","status":"publish","type":"post","link":"http:\/\/www.huike007.cn\/?p=82","title":{"rendered":"VB\u65b0\u589e\u8bb0\u5f55"},"content":{"rendered":"<p>&#39;\u51c6\u5907\u5de5\u4f5c: \u6570\u636e\u5e93 D:\\Mydb.mdb \u6570\u636e\u5e93\u4e2d,\u5efa\u6570\u636e\u8868:UserInfo,\u6570\u636e\u8868\u4e2d,\u5efa\u5b57\u6bb5:User,Password,\u5e76\u6dfb\u52a0\u4e00\u6761\u8bb0\u5f55<br \/>\n&#39;\u70b9\u5de5\u7a0b->\u5f15\u7528 \u9009\u4e2d Microsoft Activex Data Objects 2.1 Library<br \/>\n&#39;\u63a7\u4ef6:\u6dfb\u52a0\u4e00\u4e2a\u6587\u672c\u6846,\u4e00\u4e2a\u547d\u4ee4\u6309\u94ae<br \/>\nPrivate Sub Command1_Click()<br \/>\nDim s As String<br \/>\nDim Conn As New ADODB.Connection<br \/>\nDim Rs As New ADODB.Recordset<br \/>\nConn.Open &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\mydb.mdb&#34;<br \/>\n&#39;\u8bf7\u5c06\u6570\u636e\u5e93\u540d\u53ca\u8def\u5f84\u6362\u6210\u4f60\u7684\u5b9e\u9645\u6570\u636e\u5e93\u540d\u53ca\u8def\u5f84<br \/>\nDim UserName As String<br \/>\nDim Password As String<br \/>\ns = Text1.Text<br \/>\nIf s = &#34;1&#34; o&#114; s = &#34;2&#34; Then<br \/>\nUserName = InputBox(&#34;\u8bf7\u8f93\u5165\u7528\u6237\u540d&#34;)<br \/>\nPassword = InputBox(&#34;\u8bf7\u8f93\u5165\u7528\u6237\u5bc6\u7801&#34;)<br \/>\nsql = &#34;Sel&#101;ct * From [UserInfo] wh&#101;re User=&#39;&#34; &amp; UserName &amp; &#34;&#39;&#34;<br \/>\n&#39;UserInfo\u8bf7\u6362\u6210\u4f60\u7684\u5b9e\u9645\u6570\u636e\u8868\u540d<br \/>\nRs.Open sql, Conn, 1, 3<br \/>\nIf Rs.EOF Then<br \/>\nMsgBox &#34;\u6ca1\u6709\u627e\u5230\u6b64\u7528\u6237&#34;<br \/>\nElse<br \/>\nIf Rs(&#34;Password&#34;) = Password Then<br \/>\nIf s = &#34;1&#34; Then<br \/>\nMsgBox &#34;123&#34;<br \/>\nElseIf s = &#34;2&#34; Then<br \/>\nMsgBox &#34;456&#34;<br \/>\nEnd If<br \/>\nElse<br \/>\nMsgBox &#34;\u5bc6\u7801\u9519\u8bef&#34;<br \/>\nEnd If<br \/>\nEnd If<br \/>\nEnd If<br \/>\nEnd Sub<br \/>\n\u4e0a\u9762\u7684\u4f8b\u5b50\u5b9e\u73b0\u4e86\u67e5\u8be2<br \/>\n\u5982\u679c\u662f\u8981\u6dfb\u52a0,\u5220\u9664,\u66f4\u65b0\u7b49\u64cd\u4f5c,\u53ea\u8981\u7f16\u5199\u76f8\u5e94\u7684SQL\u8bed\u53e5,\u518d\u7528<br \/>\nConn.Execute SQL \u5c31\u53ef\u4ee5\u4e86,\u5982:<br \/>\n\u6dfb\u52a0\u7684:<br \/>\nSQL=&#34;Ins&#101;rt Into [UserInfo](User,Password) Values(&#39;aaaa&#39;,&#39;1234&#39;)&#34;<br \/>\nConn.Execute SQL &#39;\u6267\u884c\u540e,\u5c31\u6dfb\u52a0\u4e86\u4e00\u6761\u8bb0\u5f55<br \/>\n\u5220\u9664:<br \/>\nSQL=&#34;Del&#101;te From [UserInfo] Wh&#101;re User=&#39;aaaa&#39;&#34;<br \/>\nConn.Execute SQL &#39;\u5220\u9664\u7528\u6237\u540d\u4e3aaaaa\u7684\u7528\u6237\u8bb0\u5f55<br \/>\n\u66f4\u65b0:<br \/>\nSQL=&#34;Up&#100;ate [UserInfo] Set Password=&#39;abcdefg&#39; Wh&#101;re User=&#39;aaaa&#39;&#34;<br \/>\nConn.Execute SQL &#39;\u6267\u884c\u540e,\u4fee\u6539\u7528\u6237aaaa\u7684\u5bc6\u7801\u4e3aabcdefg<br \/>\n\u4ee5\u4e0a\u53ea\u662f\u793a\u4f8b,\u5728\u5b9e\u9645\u4f7f\u7528\u8fc7\u7a0b\u4e2d,\u53ef\u4ee5\u5c06\u4e00\u4e9b\u5185\u5bb9\u7528\u63a7\u4ef6\u8f93\u5165\u7b49\u65b9\u5f0f\u8fdb\u884c,\u8fd9\u6837\u5c31\u6709\u5f88\u5927\u7684\u7075\u6d3b\u6027\u4e86<br \/>\n\u52a8\u6001\u521b\u5efa\u6570\u636e\u5e93<br \/>\n\u5f15\u7528 microsoft DAP 3.6 Object Library<br \/>\nDim myDB As DAO.Database<br \/>\nSet myDB = Cr&#101;ateDatabase(App.Path + &#34;\\111.mdb&#34;, dbLangGeneral) &#39;\u5982\u679c\u4e0d\u5b58\u5728\u6570\u636e\u5e93<br \/>\nSet myDB = OpenDatabase(App.Path + &#34;\\111.mdb&#34;) &#39;\u5982\u679c\u5b58\u5728\u6570\u636e\u5e93<br \/>\nDim str_SQL As String<br \/>\nstr_SQL = &#34;Cr&#101;ate Table NewTable1(Field1 Text(10),Field2 Short)&#34;<br \/>\nmyDB.Execute str_SQL<br \/>\nstr_SQL = &#34;Cr&#101;ate Table NewTable2(Field1 Text(10),Field2 Short)&#34;<br \/>\nmyDB.Execute str_SQL<br \/>\nmyDB.Close<br \/>\n\u5411\u5df2\u7ecf\u5efa\u597d\u7684\u6570\u636e\u5e93\u4e2d\u6dfb\u52a0\u8bb0\u5f55<br \/>\n\u5efa\u7acb\u6570\u636e\u5e93a\uff0c\u8868\u540d\u5b57b,\u5b57\u6bb5c\uff0c\u6587\u672c\u683c\u5f0f,\u5728\u7a97\u4f53\u4e0a\u753b\u4e00command ,\u753b\u4e00\u4e2a\u6587\u672c\u6846\uff0c\u8fd9\u4e2a\u4ee3\u7801\u5c31\u662f\u5c06\u6587\u672c\u5185\u5bb9\u5199\u5165\u6570\u636e\u5e93<br \/>\n\u8981\u5148\u5f15\u7528microsoft activeX data object 2.5 library<br \/>\n\u4ee3\u7801\u5982\u4e0b\uff1a<br \/>\nPrivate Sub Command1_Click()<br \/>\nDim cnDk As New ADODB.Connection<br \/>\nDim strDk As String<br \/>\nDim rDk As New ADODB.Recordset<br \/>\nDim sql As String<br \/>\nstrDk = &#34;DBQ=&#34; &amp; App.Path &amp; &#34;\\a.mdb;Driver={Microsoft Access Driver (*.mdb)};&#34;<br \/>\ncnDk.Open strDk<br \/>\nsql = &#34;ins&#101;rt into b (c) values (&#39;&#34; &amp; text1.text&amp; &#34;&#39;)&#34;<br \/>\ncnDk.Execute sql<br \/>\ncnDk.Close<br \/>\nSet cnDk = Nothing<br \/>\nEnd Sub<br \/>\n\u5728\u6570\u636e\u5e93\u4e2d\u6dfb\u52a0\u591a\u6761\u8bb0\u5f55<br \/>\n\u53ea\u8981\u53ef\u4ee5\u8fdb\u884c\u8f93\u5165\u6587\u672c\u7684\u90fd\u53ef\u4ee5<br \/>\n\u6539\u4e00\u4e0b\u8fd9\u4e9b\u5427\uff0c\u4f60\u5355\u51fb\u4e00\u6b21\u5c31\u63d0\u793a\u8f93\u5165\u4e00\u6b21\uff0c\u8f93\u5b8c\u4e86\u81ea\u52a8\u4fdd\u5b58<br \/>\n\u6539\u540e<br \/>\nData1.Recordset.AddNew<br \/>\nData1.Recordset.Fields(&#34;username&#34;) = trim(inputbox(&#34;\u8bf7\u8f93\u5165\u540d\u5b57&#34;))<br \/>\nData1.Recordset(&#34;password&#34;) =val(trim(inputbox(&#34;\u8bf7\u8f93\u5165\u7535\u8bdd&#34;)))<br \/>\nData1.Up&#100;ateRecord<br \/>\n\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014<br \/>\nData1.Recordset.AddNew<br \/>\nData1.Recordset.Fields(&#34;username&#34;) = &#34;\u5f20\u4e09|&#34;<br \/>\nData1.Recordset(&#34;password&#34;) = &#34;fsdfsd&#34;<br \/>\nData1.Up&#100;ateRecord<br \/>\nData1.Recordset.AddNew<br \/>\nData1.Recordset.Fields(&#34;username&#34;) = &#34;\u674e\u56db|&#34;<br \/>\nData1.Recordset(&#34;password&#34;) = &#34;fsdf432d&#34;<br \/>\nData1.Up&#100;ateRecord<br \/>\nData1.Recordset.AddNew<br \/>\nData1.Recordset.Fields(&#34;username&#34;) = &#34;\u738b\u4e94|&#34;<br \/>\nData1.Recordset(&#34;password&#34;) = &#34;f42342d&#34;<br \/>\nData1.Up&#100;ateRecord<br \/>\nMsgBox &#34;adad&#34;<br \/>\n========================================================================================<br \/>\nvb+access \u6570\u636e\u5e93\u7684\u8bb0\u5f55\u7684\u6dfb\u52a0\u4e0e\u5220\u9664<br \/>\nDim cn As New ADODB.Connection<br \/>\nDim rs As New ADODB.Recordset<br \/>\nPrivate Sub Command2_Click()<br \/>\nSet rs = cn.Execute(&#34;sel&#101;ct * from wenzhang wh&#101;re \u5185\u5bb9=&#39;&#34; &amp; Text1.Text &amp; &#34;&#39;&#34;)<br \/>\nIf Text1.Text = &#34;&#34; Then<br \/>\nMsgBox (&#34;\u6587\u7ae0\u4e0d\u80fd\u4e3a\u7a7a\uff01&#34;)<br \/>\nElseIf rs.EOF = False Then<br \/>\nMsgBox (&#34;\u6587\u7ae0\u4e0d\u80fd\u91cd\u590d\uff01&#34;)<br \/>\nElse<br \/>\ncn.Execute (&#34;ins&#101;rt into wenzhang values(&#39;&#34; &amp; Combo1.Text &amp; &#34;&#39;,&#39;&#34; &amp; Text3.Text &amp; &#34;&#39;,&#39;&#34; &amp; Text4.Text &amp; &#34;&#39;,&#39;&#34; &amp; Text1.Text &amp; &#34;&#39;)&#34;)<br \/>\nMsgBox (&#34;ok&#34;)<br \/>\nEnd If<br \/>\nEnd Sub<br \/>\n&#39;\u6dfb\u52a0\u6309\u94ae<br \/>\nPrivate Sub Command3_Click()<br \/>\nDim myval As String<br \/>\nSet rs = cn.Execute(&#34;sel&#101;ct * from wenzhang wh&#101;re \u5185\u5bb9=&#39;&#34; &amp; Text1.Text &amp; &#34;&#39;&#34;)<br \/>\nIf rs.EOF Then<br \/>\nmyval = MsgBox(&#34;\u662f\u5426\u4fdd\u5b58\u6587\u7ae0\uff1f&#34;, vbInformation + vbYesNoCancel, &#34;\u63d0\u793a&#34;)<br \/>\nIf myval = vbYes Then<br \/>\ncn.Execute (&#34;ins&#101;rt into wenzhang values(&#39;&#34; &amp; Combo1.Text &amp; &#34;&#39;,&#39;&#34; &amp; Text3.Text &amp; &#34;&#39;,&#39;&#34; &amp; Text4.Text &amp; &#34;&#39;,&#39;&#34; &amp; Text1.Text &amp; &#34;&#39;)&#34;)<br \/>\nMsgBox (&#34;\u4fdd\u5b58\u6210\u529f&#34;)<br \/>\nElse<br \/>\nCombo1.Text = &#34;&#34;<br \/>\nEnd If<br \/>\nElse<br \/>\nText1.Text = &#34;&#34;<br \/>\nCombo1.Text = &#34;&#34;<br \/>\nEnd If<br \/>\nEnd Sub<br \/>\n&#39;\u5220\u9664\u6309\u94ae<br \/>\nPrivate Sub Command4_Click()<br \/>\nIf Text1.Text = &#34;&#34; Then<br \/>\nMsgBox (&#34;\u4e0d\u80fd\u5220\u9664\u7a7a\u8bb0\u5f55\uff01&#34;)<br \/>\nElse<br \/>\nDim myval As String<br \/>\nmyval = MsgBox(&#34;\u662f\u5426\u5220\u9664\u6587\u7ae0\uff1f&#34;, vbInformation + vbYesNo, &#34;\u63d0\u793a&#34;)<br \/>\nIf myval = vbYes Then<br \/>\nSet rs = cn.Execute(&#34;del&#101;te from wenzhang wh&#101;re \u5185\u5bb9 =&#39;&#34; &amp; Text1.Text &amp; &#34;&#39;&#34;)<br \/>\nMsgBox (&#34;\u5220\u9664\u6210\u529f\uff01&#34;)<br \/>\nEnd If<br \/>\nEnd If<br \/>\nEnd Sub<br \/>\n&#39;\u8fde\u63a5\u6570\u636e\u5e93<br \/>\nPrivate Sub Form_Load()<br \/>\ncn.ConnectionString = &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\vb.net\\temp.mdb;Persist Security Info=False&#34;<br \/>\ncn.CursorLocation = adUseClient<br \/>\ncn.Open<br \/>\nEnd Sub<\/p>\n","protected":false},"excerpt":{"rendered":"<p>&#39;\u51c6\u5907\u5de5\u4f5c: \u6570\u636e\u5e93 D:\\Mydb.mdb \u6570\u636e\u5e93\u4e2d,\u5efa\u6570\u636e\u8868:UserInfo,\u6570\u636e\u8868\u4e2d,\u5efa\u5b57\u6bb5: [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[181],"tags":[227],"_links":{"self":[{"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/posts\/82"}],"collection":[{"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=82"}],"version-history":[{"count":1,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/posts\/82\/revisions"}],"predecessor-version":[{"id":332,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/posts\/82\/revisions\/332"}],"wp:attachment":[{"href":"http:\/\/www.huike007.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=82"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=82"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=82"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}