Foxtable(狐表)用户栏目专家坐堂 → 用户登陆问题


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

主题:用户登陆问题

美女呀,离线,留言给我吧!
mxy8898
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
用户登陆问题  发帖心情 Post By:2018/3/24 12:44:00 [只看该作者]

跟着教程学习,数据源没有新建,是在原来数据库新建的表,把用户记录写入表里了,提示错误无法找到病根。帮忙看下那里错了

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

代码:
Select Case e.Sender.name
    Case "ComboBox1","ComboBox2","ComboBox3","ComboBox4","ComboBox5","ComboBox6","DateTimePicker1","TextBox1","TextBox10","TextBox11","TextBox12","TextBox13","TextBox14","TextBox15","TextBox16","TextBox17","TextBox18","TextBox19","TextBox20","TextBox21","TextBox22","TextBox23","TextBox24","TextBox25","TextBox26","TextBox27","TextBox28","TextBox29","TextBox30","TextBox31","TextBox7","TextBox8","TextBox9"
        Dim name1 As Row = Tables("水质检测原始数据").Current
        If name1 ("录入") <> "ACC数据库".name Then
            e.Sender.readonly = Booleanenum.True
        Else
            e.Sender.readonly = Booleanenum.False
        Else
    End Select

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


加好友 发短信
等级:超级版主 帖子:106298 积分:540619 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/24 14:55:00 [只看该作者]

"ACC数据库"这个是什么东西?

 回到顶部
美女呀,离线,留言给我吧!
mxy8898
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:448 威望:0 精华:0 注册:2018/2/3 11:13:00
  发帖心情 Post By:2018/3/24 17:41:00 [只看该作者]

数据源名称,数据库名称水质.mdb

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


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

以下是引用mxy8898在2018/3/24 17:41:00的发言:
数据源名称,数据库名称水质.mdb

 

参考代码

 

Dim str As String = Connections("test").ConnectionString
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"(?<=Data Source=).*?(?=;)")
If mc.count >= 1 Then
    msgbox(mc(0).value)
End If


 回到顶部