VB 查询SQL SERVER数据库内容源码 工程下载

〓〓〓〓〓〓〓〓〓〓OpenSqlServer函数相关定义声明等 StartPublic Conn As New ADODB.ConnectionPublic OpenSqlOK As BooleanPublic ShowSqlRsErr As Boolean'〓〓〓〓〓〓〓〓〓〓OpenSqlServer函数相关定义声明等 End'┏〓〓〓〓〓〓〓〓〓 OpenSqlServer,start 〓〓〓〓〓〓〓〓〓┓'［详介］：'参数输入：服务器IP，数据库名，用户，密码'［简介］：'打开sqlserver数据库Function OpenSqlServer(Server As String, dbname As String, Uid As String, Pwd As String) As Boolean   'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件   '--需要什么函数或功能，可以联系我。   '版权所有，请保留作者信息.QQ：1085992075   '如需商业用途请联系作者      On Error GoTo Err      'Server如：XJ,HOME      Dim ConnStr As String      ConnStr = "Provider=SQLOLEDB;Password=" & Pwd & ";Persist Security Info=True;User ID=" & Uid & ";Initial Catalog=" & dbname & ";Data Source=" & Server & ";Connect Timeout=50" 'msdb      Conn.open ConnStr      OpenSqlOK = True      OpenSqlServer = True      Exit Function      Err:      If ShowSqlRsErr Then          MsgBox Err.Number & vbCrLf & Err.Description      End IfEnd Function'┗〓〓〓〓〓〓〓〓〓  OpenSqlServer,end  〓〓〓〓〓〓〓〓〓┛

 

先打开OpenSqlServer，再查

 

'┏〓〓〓〓〓〓〓〓〓 GetRs,start 〓〓〓〓〓〓〓〓〓┓Function GetRs(Sql, Optional ErrInfo As String) As ADODB.Recordset   '[mycode_id:1843],edittime:2011-1-17 下午 08:34:21   On Error GoTo Err   Dim Rs As New ADODB.Recordset   'Set Rs = CreateObject("adodb.recordset")   Rs.open Sql, Conn, 1, 3   Set GetRs = Rs   Exit Function   Err:   ErrInfo = Err.DescriptionEnd Function'┗〓〓〓〓〓〓〓〓〓  GetRs,end  〓〓〓〓〓〓〓〓〓┛sub test()OpenSqlServer  "192.168.1.2","db1","sa","2222"Dim Rs As New ADODB.Recordsetset rs=getrs("select * from user")msgbox rs("user")end sub