以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]内部函数，获取服务器时间  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25178)
--  作者：pyh6918
--  发布时间：2012/11/2 15:04:00
--  [求助]内部函数，获取服务器时间

第一个方案：
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("操作日期"))

这两个方案都能获得服务器时间，但是不知道哪一个更合理，或者还有更好的办法？
--  作者：狐狸爸爸
--  发布时间：2012/11/2 15:09:00
--  

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

 

函数：

 

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")

[此贴子已经被作者于2012-11-2 15:21:55编辑过]
--  作者：lin_hailun
--  发布时间：2012/11/2 15:11:00
--  
 楼主，为什么要纠结这两个方式？

 我看来，都差不多的。

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

 更具不同的需要去弄呗，各有各的好处。
--  作者：lin_hailun
--  发布时间：2012/11/2 15:14:00
--  
第二个，你最后就不用赋值了，只有这个区别吧。
--  作者：pyh6918
--  发布时间：2012/11/2 15:25:00
--  
以下是引用狐狸爸爸在2012-11-2 15:09:00的发言：

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

 

函数：

 

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"

第一个参数是自定义函数名称，第二个参数是数据库名称。
--  作者：pyh6918
--  发布时间：2012/11/2 15:27:00
--  
我没弄过SQL数据库，不知道哪一个更合理，所以上来问一下！
--  作者：pyh6918
--  发布时间：2012/11/2 15:30:00
--  
以下是引用lin_hailun在2012-11-2 15:14:00的发言：
第二个，你最后就不用赋值了，只有这个区别吧。

你是说过个吧

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

 

ls("操作日期")=Functions.Execute("ftime") 这样会报错
--  作者：pyh6918
--  发布时间：2012/11/2 15:35:00
--  
以下是引用狐狸爸爸在2012-11-2 15:09:00的发言：

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

 

函数：

 

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")

[此贴子已经被作者于2012-11-2 15:21:55编辑过]

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

项目里还有几个内部表。

[此贴子已经被作者于2012-11-2 15:36:41编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/11/2 16:25:00
--  

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

 

cmd.ConnectionName =args(0)

 
--  作者：lin_hailun
--  发布时间：2012/11/2 16:28:00
--  
以下是引用pyh6918在2012-11-2 15:30:00的发言：

你是说过个吧

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

 

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


呵呵，我说的是，你直接执行函数，值就赋给ls("操作日期")了

直接这样
Functions.Execute("ftime", ls("操作日期"))

-----------------------------------------------

如果是地址，可以直接拿到那个对象，然后使用那个对象。
[此贴子已经被作者于2012-11-2 16:30:36编辑过]