用户登录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：用户登录