如何象SQL语句中的Exec那样在VB中执行一段代码?
来源:互联网 发布:淘宝助理主图路径 编辑:程序博客网 时间:2024/05/11 02:28
利用API 引用vb6a.dll (Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long)可以实现字符串命令的执行和字符串表达式的运算(http://blog.csdn.net/northwolves/archive/2004/04/05/19592.aspx),但由于VB6a.dll只能应用于IDE 环境,程序一经编译,必然出错,无法生成可执行文件.
如:
Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Command1_Click()
ExecuteLine "dim pi as double"
ExecuteLine "pi= 4*atn(1)"
ExecuteLine "msgbox ""Pi=""& pi"
End Sub
如何解决这个问题,查了许多资料,包括在许多论坛上的讨论,也没能完美解决.个人认为还是ScriptControl控件调用方便些:
Option Explicit
Sub Main()
Dim scr As Object, mysub As String
Set scr = CreateObject("MSScriptControl.ScriptControl")
mysub = "sub msg()" & vbCrLf
mysub = mysub & "MsgBox ""今天是"" & WeekdayName(Weekday(Date)) & ""!"", vbOKCancel + vbInformation, ""提示"""
mysub = mysub & vbCrLf & "end sub "
scr.Language = "vbscript"
scr.AddCode mysub
scr.ExecuteStatement "msg"
Set scr = Nothing
End Sub
上述代码在编译前后都能正确运行.
- 如何象SQL语句中的Exec那样在VB中执行一段代码?
- 如何使ASSERT象在VB那样直接中断
- 如何在JAVA代码中执行 exec master..xp_cmdshell @cmd // 当作SQL语句调用就成了 或者调用 Runtime.getRuntime().exec
- SQL语句-exec执行
- 如何在Eclipse中执行SQL语句?
- 如何把代码中的SQL语句改成可以直接在数据库中运行的SQL语句
- 如何在c#代码中执行带GO语句的SQL文件
- 如何在c#代码中执行带GO语句的SQL文件
- sql 语句 exec 执行字符串
- 如何在VB中操作EXCEL(一段代码,两个可以使用的过程)
- 如何在VB中操作EXCEL(一段代码,两个可以使用的过程)
- 写sql语句exec master..xp_cmdshell 在一个sql文件中去执行多个sql文件
- 如何让ajax执行完在执行下一段代码
- 如何在Oracle中一次执行多条sql语句
- 如何在MyEclipse中建立sql文件,并执行语句?
- SQL语句在数据库中是如何执行的
- 谈谈如何象VB IDE的Immediate一样不使用工程,可以单独执行代码片断
- 执行sql 语句(在C++中执行)
- 每天变好一点点【转】
- 批量创建win帐号的脚本程序.
- 我该怎么办?
- 孝心无价【转】
- 一个绝好的大型软件ISO下载FTP站!
- 如何象SQL语句中的Exec那样在VB中执行一段代码?
- Gillette!Gillette!
- (转载)win32 PE 文件格式
- xp设置家庭或小型办公网络(网上邻居)的秘密
- 大家快过来留言吧~~~~anyone都可以的~
- API操作其他程序中的按钮
- 婚姻经济学分析
- 测试 - OJM播放器
- OnLine非游戏最终形态