由于在程序中有要连上远程数据库的需要，可是如何确定客户使用时已经连上网络？？或者没有连上时，数据库中会出的是什么错误呢？？如何捕

Question

专家门诊 - VB 基础类问题  
 回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 保存 | 关闭窗口   
 
 
主　　题：  请教：能否让label上文字居中显示，谢谢！！！ 
作　　者：  AHBC123 ()  
等　　级：    
信 誉 值：  100 
所属论坛：  VB 基础类 
问题点数：  20 
回复次数：  5 
发表时间：  2003-02-18 20:42:56 
   
 
   
请教：能否让label上文字居中显示，谢谢！！！
  
 
 
 回复人： VVV_lucky(*太阳*) ( ) 信誉：100  2003-02-18 20:44:00  得分:0 
 
 
  属性 Alignment=2
  
 
Top 
 
 回复人： gwlonghair(longhair) ( ) 信誉：100  2003-02-18 20:48:00  得分:0 
 
 
  他的属性不就可以设吗
  
 
Top 
 
 回复人： vbhelp(vbhelp) ( ) 信誉：80  2003-02-18 20:48:00  得分:0 
 
 
  对的，只要在属性框中设一下即可！建议：多看其它网站：(只列出前八大最佳)
http://www.zarr.net
http://www.vbhelp.bet
http://www.21code.com
http://www.vbthunder.com
http://www.easthot.net
http://www.freevbcode.com
http://www.vbaccelerator.com
http://jinesc.6600.org  
 
Top 
 
 回复人： sijipeng(sijipeng) ( ) 信誉：100  2003-02-18 20:49:00  得分:0 
 
 
  只需改一下他的属性值
  
 
Top 
 
 回复人： renguangdong(study) ( ) 信誉：100  2003-02-18 21:09:00  得分:0 
 
 
  Label2.Alignment = vbcenter
  
 
Top 
 

Answer 1

你要连的是网络数据库
那么当连接时，连接不上，connection对象会产生错误你编一个捕捉错误的过程就行了

Answer 2

但不知是什么错误代号我连接时用的是ado来进行远程连接。

Answer 3

这个用在局域网里就不行了，用猫的话可以一试。
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As LongPublic Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32Public Type RASCONN95
    dwSize As Long
    hRasCon As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End TypePublic Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Function IsConnected() As Boolean
    Dim TRasCon(255) As RASCONN95
    Dim lg As Long
    Dim lpcon As Long
    Dim RetVal As Long
    Dim Tstatus As RASCONNSTATUS95
    
    TRasCon(0).dwSize = 412
    lg = 256 * TRasCon(0).dwSize
    RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
    
    If RetVal <> 0 Then
        MsgBox "ERROR"
        Exit Function
    End If
    
    Tstatus.dwSize = 160
    RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
    
    If Tstatus.RasConnState = &H2000 Then
        IsConnected = True
    Else
        IsConnected = False
    End If
End Function