vba

vba_connect_MSSQL

Private Function CheckCompanyExist(comp As String, mac As String) As Boolean

    Dim result As Boolean

    Dim ADOcn As New ADODB.Connection
    Dim ADOrt As New ADODB.Recordset
    
    Dim strCn As String
    Dim strSQL As String
    strCn = "Provider=SQLOLEDB;Server=eshclouds-license******;Database=License;Uid=******;Pwd=*****;"
    
    strSQL = "select * from ComanyInfo"
    
    With ADOcn
        .ConnectionString = strCn
        .Open
        Set ADOrt = .Execute(strSQL)
    End With
    
    Set ADOrt = ADOcn.Execute(strSQL)

    If ADOrt.RecordCount > 0 Then
        MsgBox ("有查詢到資料")
    Else
        MsgBox ("找不到資料")
    End If
    
    ADOrt.Close
    ADOcn.Close
    
    CheckCompanyExist = result
End Function