declearation.bas

来自「vb+sql (sql server 2000)」· BAS 代码 · 共 24 行

Attribute VB_Name = "Declearation"
Public CurrentUser As String
Public CurrentLine As String
Public CurrentBus As String
Public CurrentTicket As String


Public Logged As Boolean

Public objConn As New ADODB.Connection
Public objRS As New ADODB.Recordset



Public Sub OpenDB()
    objConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=bus;Initial Catalog=bus"
    objConn.Open
    
End Sub

Public Sub CloseDB()
    objConn.Close
End Sub