module1.bas

VB+SQL住院管理系统

Attribute VB_Name = "Module1"
Public sessionUserId As Integer
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=住院管理信息系统;Data Source=(local)"
    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
    rct.CursorLocation = adUseClient
    Call rct.Open(strsql, con, adOpenDynamic, adLockOptimistic, -1)
    If Err.Number > 0 Then
        Err.Clear
        querydata = False
    Else
        querydata = True
    End If
End Function