关于动态执行语句问题。
管理多个数据库,数据常有问题要处理,所以想用VB做个软件,来处理这些问题,不同的问题会用到不同的语句,不想出一个新问题就在软件里面加语句,有没有办法可以把语句放动数据库里,每个语句取个名称,用软件读取数据库里的各语句,遇到什么问题执行什么问题,这样可以方便很多。
就像我常把自己写的函数放在模块里一样,我能不能把函数语句放在数据库里一个字段里,软件可以读出来就像放到模块里可以调用这个函数。
如模块中的这个:
Public Sub f_LV1(LV As ListView)
Dim ItemX As ListItem
Str = "select * from [用户] where 有效=True"
Rs.Open Str, Conn, 1, 1
Do While Not Rs.EOF
Set ItemX = LV.ListItems.Add
ItemX.Text = ItemX.Index
ItemX.SubItems(1) = Trim(Rs!ID)
ItemX.SubItems(2) = Trim(Rs!床号)
ItemX.SubItems(3) = Trim(Rs!姓名)
Set ItemX = Nothing
Rs.MoveNext
Loop
End Sub
[解决办法]
把sql语句放在一个textbox里随时修改,然后执行一下就可以了。
[解决办法]
可以的。用script控件 。
[解决办法]
当然,这样做是可行的,不过出于实际应用的需要,这样做显得很复杂。
如果你只是允许配置sql,那么显得很不灵活。如果你允许配置很多项,那么配置的复杂程度超过你修改源代码的复杂程度。
其实你应该考虑为什么要这样做。事实上那些通用的,动态的数据库处理程序已经有了,没有必要用VB编写一个。那些大大小小的搭建工具,声称不懂编程都能开发软件的产品,都是运用类似技术搞出来的。或许你也听说了一些,但是如我之前说的矛盾一样,你觉得它们要么不灵活,要么不通用,那么你才选择了VB。
现在的问题是,你用VB编写一个这样的东西,其实走上了这些软件的老路。