主题：[求助]内部函数，获取服务器时间

第一个方案：
Dim cmd As New SQLCommand
Dim dt As Date
cmd.ConnectionName =args(0)
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Return dt
调用时：
dim ls as row=tables("数据").Current
ls("操作日期")=Functions.Execute("ftime","luo")
=============================
第二个方案：
Dim cmd As New SQLCommand
Dim dt As Date=args(0)
cmd.ConnectionName
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
调用时：
dim ls as row=tables("数据").Current
ls("操作日期")=Functions.Execute("ftime",ls("操作日期"))

这两个方案都能获得服务器时间，但是不知道哪一个更合理，或者还有更好的办法？

我不明白，你威慑什么有两个参数，一个参数就行啊：

 

函数：

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.ConnectionName =args(0)
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
Return dt

 

调用：

dim ls as row=tables("数据").Current
ls("操作日期")=Functions.Execute("ftime")

 楼主，为什么要纠结这两个方式？

 我看来，都差不多的。

 第一个，通过值传递，就是拷贝字符；第二个，通过地址传递，拷贝地址。

 更具不同的需要去弄呗，各有各的好处。

第二个，你最后就不用赋值了，只有这个区别吧。

第一个参数是自定义函数名称，第二个参数是数据库名称。

我没弄过SQL数据库，不知道哪一个更合理，所以上来问一下！

你是说过个吧

ls("操作日期")=Functions.Execute("ftime",ls("操作日期"))

 

ls("操作日期")=Functions.Execute("ftime") 这样会报错

这样能指向外部SQL数据库吗？SQL数据源名称为"luo”

项目里还有几个内部表。

这个和表没有关系，指定数据源就行：

 

cmd.ConnectionName =args(0)