module1.bas

来自「simple hotel management system」· BAS 代码 · 共 28 行

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