- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 用户登录 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158762)
-- 发布时间：2020/12/1 23:04:00
-- 用户登录
从外部窗口登录，有没有办法控制，一个账户已登录，同账户就不能在别处客户端登录了。
-- 发布时间：2020/12/1 23:15:00
--
在数据库中做一个标记
-- 发布时间：2020/12/1 23:27:00
--
看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=48221
-- 发布时间：2020/12/2 21:20:00
--
-- 发布时间：2020/12/3 8:54:00
--
[最近在线]列字符长度不够，改大一点，或者改为日期型
-- 发布时间：2020/12/3 21:48:00
--
-- 发布时间：2020/12/3 21:50:00
--
具体代码？http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
-- 发布时间：2020/12/3 21:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
-- 发布时间：2020/12/3 22:09:00
--
ExecuteScalar
用于执行返回单个值的命令，例如：
Dim val As Integer
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select Sum(数量) From {订单} Where 日期 > #2012/2/21#"
val = cmd.ExecuteScalar()
上面的代码统计2012年2月21日之后的销售总量，并保存在变量val中。
再例如：
Dim ld As Date
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select Max(日期) From {订单} Where 产品 = \'PD01\'"
ld = cmd.ExecuteScalar()
上面的代码得到最后一次有人订购PD01的日期，并保存在变量ld中。
再例如：
Dim ld As Date
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select top 1 日期 From {订单} Where 产品 = \'PD01\' Order by 日期 Desc"
ld = cmd.ExecuteScalar()
上面的代码得到最后一次有人订购PD01的日期，并保存在变量ld中 ，和前一段代码功能一样，但是方法不同，希望大家体会。
ExecuteScalar经常用来判断是否存在指定条件的数据，例如：
Dim cmd As New SQLCommand
Dim nm As String = "贺辉"
cmd.ConnectionName = "User"
cmd.CommandText ="Select Count(*) From {Users} Where Name = \'" & nm & "\'"
If cmd.ExecuteScalar > 0 Then
Messagebox.Show("已经存在同名用户","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If