Foxtable(狐表)用户栏目专家坐堂 → 删除登陆信息


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

主题:删除登陆信息

帅哥哟,离线,有人找我吗?
飘过的巨蟹座
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1107 威望:0 精华:0 注册:2021/8/6 21:17:00
删除登陆信息  发帖心情 Post By:2022/7/18 1:48:00 [只看该作者]

我再其他页面想删除已经登陆的信息
Static UserTable As DataTable
Dim dr As DataRow = UserTable.Find("UserName = '" & e.PostValues("用户名") & "'")
dr.Delete()

这个代码会提示报错,未将对象引用设置到对象的实例。
哪里有问题啊
用的是让登录变得更安全这个代码,UserName没有加密
[此贴子已经被作者于2022/7/18 1:48:38编辑过]

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/18 8:28:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
飘过的巨蟹座
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1107 威望:0 精华:0 注册:2021/8/6 21:17:00
  发帖心情 Post By:2022/7/18 18:04:00 [只看该作者]

蓝老师,这个好像是在临时表里面找不到

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


加好友 发短信
等级:幼狐 帖子:141 积分:1107 威望:0 精华:0 注册:2021/8/6 21:17:00
  发帖心情 Post By:2022/7/18 18:04:00 [只看该作者]

Static UserTable As DataTable '定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.
Static
ClearTime As Date
If
UserTable Is Nothing Then '创建用于记录登录信息的临时表
    ClearTime = Date.Now()
   
Dim dtb As New DataTableBuilder("UserInfos")
    dtb.AddDef("UserName", Gettype(String), 16)
    dtb.AddDef("UserID",Gettype(String),16)
    dtb.AddDef("ActiveTime",Gettype(Date))
    UserTable = dtb.Build(True)

End
If

找不到这个表
[此贴子已经被作者于2022/7/18 18:04:39编辑过]

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/18 20:22:00 [只看该作者]

按帮助的用法,肯定有这个表

 回到顶部
帅哥哟,离线,有人找我吗?
飘过的巨蟹座
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1107 威望:0 精华:0 注册:2021/8/6 21:17:00
  发帖心情 Post By:2022/7/18 22:36:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20220718223452.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
飘过的巨蟹座
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:141 积分:1107 威望:0 精华:0 注册:2021/8/6 21:17:00
  发帖心情 Post By:2022/7/18 22:36:00 [只看该作者]

Dim dr As DataRow
dr = DataTables("UserInfos").Find("xm = admin")
MessageBox.Show("姓名:" & dr("username"))

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


加好友 发短信
等级:超级版主 帖子:112380 积分:572162 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/18 22:46:00 [只看该作者]

直接使用UserTable

dr = UserTable.Find("xm = admin")

 回到顶部