{"id":97,"date":"2010-05-09T08:00:00","date_gmt":"2010-05-09T00:00:00","guid":{"rendered":"http:\/\/31.0.2.219:81\/?p=97"},"modified":"2014-03-11T16:50:11","modified_gmt":"2014-03-11T08:50:11","slug":"vb%e8%bf%9e%e6%8e%a5sql%e6%95%b0%e6%8d%ae%e5%ba%93%e7%9a%84%e6%a8%a1%e5%9d%97%e4%bb%a5%e5%8f%8a%e4%bd%bf%e7%94%a8%e5%ae%9e%e4%be%8b","status":"publish","type":"post","link":"http:\/\/www.huike007.cn\/?p=97","title":{"rendered":"vb\u8fde\u63a5sql\u6570\u636e\u5e93\u7684\u6a21\u5757\u4ee5\u53ca\u4f7f\u7528\u5b9e\u4f8b"},"content":{"rendered":"

\u6253\u5f00VB6.0,\u65b0\u5efa\u5de5\u7a0bSQL_data,\u65b0\u5efa\u4e00\u4e2aEXE\uff0c\u5e76\u6dfb\u52a0\u4e00\u4e2a\u6a21\u5757\u3002\u5982\u56fe
\n\u3002\"\"\/
\n\"\"\/
\n\u4e00\uff1a\u6dfb\u52a0\u5f15\u7528\u548c\u90e8\u4ef6\uff08\u5982\u4e0b\u4e24\u56fe\uff09\u84dd\u8272\u7684\u4e24\u4e2a\uff0c\u662f\u8981\u9009\u4e2d\u6253\u52fe\u7684\u3002
\n\u6ce8\u610f\uff0c\u4e00\u4e2a\u662f\u201c\u5f15\u7528\u201d\uff0c\u4e00\u4e2a\u662f\u201c\u90e8\u4ef6\u201d\u3002
\n\"\"\/
\n\"\"\/
\n \u4e8c\uff1a\u6dfb\u52a0\u4e00\u4e2a\u6a21\u5757 Data_Sql\uff0c\u5e76\u628a\u56fe\u4e0b\u9762\u7684\u590d\u5236\u7c98\u8d34\u5230\u6a21\u5757\u4e2d\u3002 '\u8fde\u63a5SQL\u7684\u6a21\u5757
\nPublic conn As ADODB.Connection
\nPublic rs As ADODB.Recordset
\nPublic addFlag As Boolean '\u58f0\u660e\u90e8\u5206
\nPublic Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '\u8fde\u63a5\u6a21\u5757 \u586b\u5199\u6570\u636e\u5e93\u7b49\u4fe1\u606f
\nDim mag As String
\nOn Error GoTo strerrmag
\nSet conn = New ADODB.Connection
\nconn.ConnectionTimeout = 25
\nconn.Provider = "sqloledb"
\nconn.Properties("data source").Value = Cip '\u670d\u52a1\u5668\u7684\u540d\u5b57
\nconn.Properties("initial catalog").Value = "pubs" '\u5e93\u540d
\n'conn.Properties("integrated security").Value = "SSPI" '\u767b\u9646\u7c7b\u578b
\nconn.Properties("user id").Value = users 'SQL\u5e93\u540d
\nconn.Properties("password").Value = pw '\u5bc6\u7801
\n'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1" '\u5982\u679c\u4e0d\u7528\u8fd9\u4e2a\u6a21\u5757\u4e5f\u884c\u53ef\u4ee5\uff0c\u8fd9\u4e00\u53e5\u4fbf\u662f\u5e38\u7528\u7684\u5f15\u64ce\u3002
\n'conn.ConnectionString = sql
\nconn.Open
\nOpenCn = True
\nIf conn.State = 1 Then addFlag = True
\nExit Function
\nstrerrmag:
\n mag = "Data can't connect"
\n Call MsgBox(mag, vbOKOnly, "Error:Data connect")
\n addFlag = False
\n Exit Function '\u8fde\u63a5\u9519\u8bef\u6d88\u606f
\nEnd Function
\n'\u5173\u95ed\u6570\u636e\u5e93\uff0c\u91ca\u653e\u8fde\u63a5
\nPublic Sub cloCn()
\nOn Error Resume Next
\nIf conn.State <> adStateClosed Then conn.Close
\nSet conn = Nothing
\nEnd Sub
\nPublic Function openRs(ByVal strsql As String) As Boolean '\u8fde\u63a5\u6570\u636e\u5e93\u8bb0\u5f55\u96c6
\nDim mag As String
\nDim rpy As Boolean
\nOn Error GoTo strerrmag
\n Set rs = New ADODB.Recordset
\n If addFlag = False Then rpy = True
\n With rs
\n .ActiveConnection = conn
\n .CursorLocation = adUseClient
\n .CursorType = adOpenKeyset
\n .LockType = adLockOptimistic
\n .Open strsql
\n End With
\n addFlag = True
\n openRs = True
\n 'End '\u5c06\u8bb0\u5f55\u96c6\u7ed9rs
\n Exit Function
\nstrerrmag:
\n mag = "data not connect"
\n Call MsgBox(mag, vbOKOnly, "error:connect")
\n openRs = False
\n End
\n 'Exit Function '\u8fde\u63a5\u9519\u8bef\u6d88\u606f
\nEnd Function
\nPublic Sub cloRs()
\nOn Error Resume Next
\nIf rs.State <> adStateClosed Then rs.Clone
\nSet rs = Nothing '\u91ca\u653e\u8bb0\u5f55\u96c6
\nEnd Sub
\n\u628a\u5b83\u653e\u5165\u5230\u6a21\u5757\u6587\u4ef6\u4e2d\uff0c\u4ee5\u5907\u8c03\u7528\u3002
\n\u4e09\uff1a\u4e0b\u9762\u4e24\u56fe\u662f\u6a21\u5757\u7684\u4ee3\u7801\u56fe\u7247\u548c\u7a97\u4f53\u7684\u4ee3\u7801\u56fe\u7247
\n\"\"\/
\n\"\"\/
\n Private Sub Command1_Click()
\na = Trim(Text1.Text)
\nb = Trim(Text2.Text)
\nc = Trim(Text3.Text)
\nCall OpenCn(a, b, c)
\nIf addFlag = True Then MsgBox ("OK")
\nCall openRs("select * from jobs")
\nSet DataGrid1.DataSource = rs
\n'rs.Close
\nEnd SubPrivate Sub Command2_Click()
\nUnload Me
\nEnd Sub
\n\u56db\uff1a\u8fd0\u884c\u65f6\u7684\u56fe\u7247\uff08\u4e0b\u9762\u4e24\u56fe\uff09 \u5230\u4e86\u8fd9\u4e00\u6b65\uff0c\u4e00\u4e2a\u7b80\u5355\u7684VB\u8fde\u63a5SQL\u7684\u4f8b\u5b50\u5c31\u5b8c\u6210\u4e86
\n\"\"\/
\n\"\"\/<\/p>\n","protected":false},"excerpt":{"rendered":"

\u6253\u5f00VB6.0,\u65b0\u5efa\u5de5\u7a0bSQL_data,\u65b0\u5efa\u4e00\u4e2aEXE\uff0c\u5e76\u6dfb\u52a0\u4e00\u4e2a\u6a21\u5757\u3002\u5982\u56fe \u3002 \u4e00\uff1a\u6dfb\u52a0\u5f15\u7528\u548c\u90e8\u4ef6\uff08\u5982\u4e0b\u4e24 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[181],"tags":[311,227],"_links":{"self":[{"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/posts\/97"}],"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=97"}],"version-history":[{"count":1,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/posts\/97\/revisions"}],"predecessor-version":[{"id":345,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=\/wp\/v2\/posts\/97\/revisions\/345"}],"wp:attachment":[{"href":"http:\/\/www.huike007.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=97"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=97"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.huike007.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=97"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}