Foxtable(狐表)用户栏目专家坐堂 → 关于修改数据


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

主题:关于修改数据

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


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
关于修改数据  发帖心情 Post By:2019/3/13 3:09:00 [只看该作者]

Dim dr1 As DataRow
    DataTables("注册用户信息表").DataRows.Clear
    dr1 = DataTables("注册用户信息表").AddNew
    dr1("ID") = 1
    dr1("用户姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "用户姓名","")
    dr1("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "联系电话" ,"")
    dr1("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "公司名称" ,"")
    dr1("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","公司地址" ,"")
看看代码哪错了,怎么不添加数据呢?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/13 9:03:00 [只看该作者]

代码没问题,是不是你做了筛选?不显示行?

 

具体做个实例发上来测试。


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


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2019/3/13 9:05:00 [只看该作者]

Dim dr1 As DataTable = DataTables("注册用户信息表")
If dr1.dataRows.Count=0 Then
    Dim dr As DataRow = dr1.AddNew
    dr("ID") = 1
    dr("用户姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "用户姓名","")
    dr("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "联系电话" ,"")
    dr("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "公司名称" ,"")
    dr("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP","公司地址" ,"")
End If

运行后如果是刚启动程序时弹出需要注册的窗体注册后注册也成功了为什么数据库中还是没有数据呢?
强制进入程序打开注册对话框注册后数据库中就有数据,是什么原因呢?

[此贴子已经被作者于2019/3/13 9:07:16编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/13 10:48:00 [只看该作者]

注册的时候,注册成功了,你要往数据库里面添加数据啊。数据从你输入的窗口里面获取啊,不是在注册表那里获取啊。

 

而且,你要把窗口里的数据,写入到注册表里面啊。


 回到顶部