Foxtable(狐表)用户栏目专家坐堂 → [求助]创建类


  共有2082人关注过本帖树形打印复制链接

主题:[求助]创建类

帅哥哟,离线,有人找我吗?
chnfo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2247 积分:18514 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]创建类  发帖心情 Post By:2024/4/11 23:29:00 [只看该作者]

准备创建一个类,获取用户的一些属性。
在全局代码中这样写:
Public Class UserAccount
    Public Username As String
    Public Email As String
    Public IsActive As Boolean
    
    Public Sub New(connectionString As String, username As String)
        Dim cmd As New SQLCommand 
        cmd.ConnectionName = connectionString
        cmd.CommandText = "SEL*ECT Email, IsActive FROM {TbUser} WHERE Username = @username"
        Dim Values = cmd.ExecuteValues
        If Values.Count > 0 Then
            Me.Username = username
            Me.Email = Values("Email")
            Me.IsActive = Values("IsActive")
        End If
    End Sub
End Class

然后在命令窗口执行
Dim connectionString As String = "XX"
Dim userAccount As New UserAccount(connectionString, "宋江")

报错了,提示:至少一个参数没有被指定值

是哪里写得不对吗?

 回到顶部
帅哥哟,离线,有人找我吗?
puma
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:365 积分:3056 威望:0 精华:0 注册:2023/6/7 16:07:00
  发帖心情 Post By:2024/4/12 8:11:00 [只看该作者]

Dim userAccount As New UserAccount(connectionString, "宋江")   可以这么写吗?



我都是这么写
Dim userAccount As New UserAccount
userAccount.New(connectionString, "宋江")

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/4/12 8:31:00 [只看该作者]

cmd.CommandText = "SEL*ECT Email, IsActive FROM {TbUser} WHERE Username = '" & username & "'"

如果要使用参数化的用法,参考这种:http://www.foxtable.com/webhelp/topics/3266.htm

 回到顶部
帅哥哟,离线,有人找我吗?
chnfo
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2247 积分:18514 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2024/4/12 8:49:00 [只看该作者]

OK,我知了

 回到顶部