www.pudn.com > jiudianguanli.rar > Module1.bas

Attribute VB_Name = "Module1" 
Public con As New ADODB.Connection 
Public rct As ADODB.Recordset 
Public Function connecttoserver() As Boolean 
    con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jiudianguanli;Data Source=M4W0ESVBMF93J2U" 
    con.ConnectionTimeout = 30 
    con.Open 
    connecttoserver = True 
End Function 
 
Public Function disconnect() As Boolean 
    If con.State = adStateOpen Then 
        con.Close 
    End If 
    disconnect = True 
End Function 
Public Function querydata(ByVal strsql As String) As Boolean 
On Error Resume Next 
    Set rct = New ADODB.Recordset 
    Call rct.Open(strsql, con, adOpenDynamic, adLockOptimistic, -1) 
    If Err.Number > 0 Then 
        Err.Clear 
        querydata = False 
    Else 
        querydata = True 
    End If 
End Function