洛天依千本樱vsqx:VB 中ScriptControl怎么用?
来源:百度文库 编辑:中科新闻网 时间:2024/05/03 06:21:04
我在主过程中拆除一小段放在一个 vbs 文件里, 在主过程运行时, Sc.run 来执行它
Dim Lstr As String
Open "E:\By_Soft\Soft\ScriptControl\Script.Vbs" For Input As #1
Do While Not EOF(1)
Line Input #1, Lstr
Txt_SC.Text = Txt_SC.Text & Lstr & vbCrLf
Loop
Close #1
SC.Language = "VBScript"
SC.AddCode Txt_SC.Text
程序是写入数据库的,我把一部分代码拆下来单独作为一个过程放在VB程序中的时候,运行正常.
但是我把这段正常的代码复制到Script.Vbs,然后用 sc.run 执行它,却出错
提示:
"实时错误3001"
"变量或者类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突"
可是这段代码我再放回来作为一个单独过程..还是正常....
郁闷了...
如表达不清,请Q22441980
Dim Lstr As String
Open "E:\By_Soft\Soft\ScriptControl\Script.Vbs" For Input As #1
Do While Not EOF(1)
Line Input #1, Lstr
Txt_SC.Text = Txt_SC.Text & Lstr & vbCrLf
Loop
Close #1
SC.Language = "VBScript"
SC.AddCode Txt_SC.Text
程序是写入数据库的,我把一部分代码拆下来单独作为一个过程放在VB程序中的时候,运行正常.
但是我把这段正常的代码复制到Script.Vbs,然后用 sc.run 执行它,却出错
提示:
"实时错误3001"
"变量或者类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突"
可是这段代码我再放回来作为一个单独过程..还是正常....
郁闷了...
如表达不清,请Q22441980