九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区

 on   error   resume   next    
            err.clear    
            Adodc1.CommandType   =   adCmdtable    
            Adodc1.ConnectionString   =   "dsn=abc;uid=uidstr;pwd=pwdstr"   '此   處   以   odbc舉   例   。    
            Adodc1.RecordSource   =   "table1"    
            Adodc1.Refresh    
             
            if   err.number   =   0   then    
            '數(shù)   據(jù)   庫   打   開   成   功    
            else    
            '打   開   失   敗    
            end   if    

2. 利   用   錯(cuò)   誤   陷   阱   進(jìn)   行   判   斷   ，   代   碼   如   下   ：    
            on   error   resume   next    
            err.clear    
            dim   mycn   as   new   adodb.connection    
            set   mycn   =   new   adodb.connection    
            mycn.open   "dsn=abc;uid=uidstr;pwd=pwdstr"   '此   處   以   odbc舉   例   。    
            if   err.number   =   0   then    
            '數(shù)   據(jù)   庫   打   開   成   功    
            else    
            '打   開   失   敗    
            end   if    
3、

用屬性

Rem 關(guān)閉與服務(wù)器的連接
Public Function CloseToDbfConnect() As Boolean
    If Conn.State = adStateOpen Then Conn.Close
    If Rst.State = adStateOpen Then Rst.Close
    If Err.Number <> 0 Then Err.Clear                             
    CloseToDbfConnect = True
    Set Rst = Nothing
    Set Conn = Nothing
End Function

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。