主题：懒人心得，狐友共享

响应ddon的号召，改造一下：

If DataTables.Contains(Args(0)) Then
    _dt = DataTables(Args(0))
    If _dt.SourceType = 1 Then
        _rq = "#"
        _true = True
        _false = False
    Else
        _rq = "'"
        _true = 1
        _false = 0
    End If
Else
    _cmd.Connection Name = Args(0)
    If _cmd.Connection Name = "" Then
        _rq = "#"
        _true = True
        _false = False
    Else
        If Connections.Contains(_cmd.Connection Name) Then
            If Connections(_cmd.Connection Name).SourceType = 1 Then
                _rq = "#"
                _true = True
                _false = False
            Else
                _rq = "'"
                _true = 1
                _false = 0
            End If
        End If
    End If
End If
If IsDate(Args(1)) Then
    Return _rq & Args(1) & _rq
Else
    Return _rq & "1900-01-01" & _rq
End If

 

调用：

''调用*******************************
Dim d As String = ""
_cmd.CommandText = "Select * From {药品库存} Where 效期 > " & Functions.Execute("数据源通用代码","门诊管理系统(SQL)",d)
Output.Show(_cmd.ExecuteReader.DataRows(1)("效期"))

 

d = "2015-03-29"
_cmd.CommandText = "Select * From {药品库存} Where 效期 > " & Functions.Execute("数据源通用代码","门诊管理系统(SQL)",d)
Output.Show(_cmd.ExecuteReader.DataRows(1)("效期"))

 

Functions.Execute("数据源通用代码","药品库存",d)
DataTables("药品库存").LoadFilter = "灭菌效期 = "  & _true

DataTables("药品库存").Load

 

DataTables("药品库存").LoadFilter = "效期 > " & Functions.Execute("数据源通用代码","门诊管理系统(SQL)",d)
DataTables("药品库存").Load
''调用*******************************

额。努力在写通用函数中。。

不在远程数据库中，没有大量数据，测试动态加载表、动态加载数据，就失去了意义。

今天想把一个大数据量的Excel表，折腾到狐表公司提供的SQLServer数据库中，保存到现在，还没结束。