小编Lee*_*ins的帖子

我有一个旧VB6应用程序,有一个功能RunReturningVAR这是一个分贝的呼叫时可能会返回int,string,double.....但不是RecordSet.它的构建非常通用,因此可以通过多个其他函数调用它,因此我们没有多个DB调用位置.我目前拥有的是附件.

Public Function RunReturningVar(ByVal vstrSql As String, _
Optional ByVal connval As Boolean = False, _
Optional ByVal copyID As Double = 0, _
Optional ByVal corpVal As Boolean = False, _
Optional ByVal vintConnectionTimeout As Integer = 30) As Variant