VB 代码解释

VB 代码解释

这段代码的意思是选择数据库类型,连接响应数据库,但是我跟你讲,写着段代码的人,思路是有点画蛇添足, Dim SQLstatus As String是在方法内的私有变量,压根就不构成选择余地,我们没有道理去选择好了数据库类型再去傻BB的故意让你选择是不是这个数据库.方法体应该这么写
Public Function ServerConnect(SQLstatus As String) As Boolean
这样才符合逻辑,使用的时候就可以应用  ServerConnect(case值)]
这句话画蛇添足
ErrHandle:
    Dim adoErr As ADODB.Error
    If adoCon.Errors.Count > 0 Then
        For Each adoErr In adoCon.Errors
            MsgBox "[Error Code] " & adoErr.Number & Chr(13) & adoErr.Description, vbCritical + vbOKOnly, "Error"
        Next adoErr
    End If你不觉得吗?有返回值的函数,就不需要报错,只要返回值就好了,不管这段代码出自哪个大师的手笔,按照我的看法就是画蛇添足,你要返回值就写返回值,何必给那么多消息对话框.
这段代码的意思是判断连接数据库是否成功,不成功就是false,成功就是返回true嘛!你MSGBOX报个错误有什么作用,既然返回了就不需要再去做消息对话.
这就好比:    我让你去问张三叫什么名字,他明明就叫张三嘛,何必再去问,怎么翻译嘛不重要,这段代码逻辑有很大问题,你搞来搞去返回值都没写全,一开始还乱敷值ServerConnect = False
我帮你改一下吧:
Public Function ServerConnect(SQLstatus As String) As Boolean
    Dim strConnectString As String
    Dim A, B, C As Variant
    Dim database As String    
    Select Case UCase(SQLstatus)
    Case "ACCESS"               '连接access数据库
        strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Password='';Data Source=" & App.Path & "card.mdb"
    Case "SQL"                  '连接SQLserver 数据库
        strConnectString = "driver={SQL SERVER};SERVER=" & ServerName & "; UID=sa;PWD=;DATABASE=" & DatabaseName & ""
        strConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=" & DatabaseName & ";Data Source=" & ServerName
    Case "ORACLE"               '连接 oracle数据库
        strConnectString = "driver={ORACLE ODBC DRIVER};CONNECTSTRING=ORA;UID=wsfy;PWD=wsfy;"
        strConnectString = "Provider=MSDAORA.1;Password=wsfy;User ID=wsfy;Data Source=" & ServerName & ";Persist Security Info=True"
    End Select 
    adoCon.ConnectionString = strConnectString
    adoCon.ConnectionTimeout = 100
    adoCon.Open strConnectString
    Set Cmd.ActiveConnection = adoCon
    If adoCon.Errors.Count > 0 Then
       ServerConnect = True
    Else
       ServerConnect = False
    End If
 End Function那使用的时候就简单了直接
Class1 cl=new Class1()
If cl.ServerConnect=true Then
   '//要做的事情
End If

Dim WshShell,QQpath,QQselect 定义3个变量 QQpath="C:\Program Files\Tencent\QQ\Bin\QQ.exe" 为变量qq路径赋值 Set WshShell=WScript.CreateObject("WScript.Shell") 设置执行脚本引擎为wscript.shell WshShell.Run QQpath 开启qq WScript.Sleep 2000 等待2秒 WshShell.AppActivate "QQ登录" 激活qq登录程序界面 WshShell.SendKeys "+{TAB}" 按tab按钮到qq号码输入的地方 WshShell.SendKeys "815065054" qq号 WScript.Sleep 200 等待0.2s WScript.Sleep 200 .... WshShell.SendKeys "{ENTER}" 按“登录”按钮，执行登录
满意请采纳。