能够借助错误处置代码OnErrorGoTo来实现,当毗连数据库失败时能够使法式跳转到自已定义的错误处置或提醒语句中往;简单示例:PrivateSubForm_Load()'以下是在拆载法式时毗连数据库OnErrorGoToerr_logSetconn=NewADODB.Connectionconnectstring="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=hsoneone;DataSource="apim.sourse_strconn.Open(connectstring)''起头毗连ExitSuberr_log:MsgBox"数据库毗连失败,请查抄数据库办事器能否开启或收集毗连能否一般!"EndSub
0