VB 代码解释
发布网友
发布时间:2022-05-18 22:25
我来回答
共2个回答
热心网友
时间:2023-11-13 03:31
这段代码的意思是选择数据库类型,连接响应数据库,但是我跟你讲,写着段代码的人,思路是有点画蛇添足, Dim SQLstatus As String是在方法内的私有变量,压根就不构成选择余地,我们没有道理去选择好了数据库类型再去*B的故意让你选择是不是这个数据库.方法体应该这么写
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
热心网友
时间:2023-11-13 03:31
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}" 按“登录”按钮,执行登录
满意请采纳。