- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用户登陆问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116421)
-- 发布时间：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
-- 发布时间：2018/3/24 14:55:00
--
"ACC数据库"这个是什么东西？
-- 发布时间：2018/3/24 17:41:00
--
数据源名称，数据库名称水质.mdb
-- 发布时间：2018/3/25 17:57:00
--
以下是引用mxy8898在2018/3/24 17:41:00的发言：
数据源名称，数据库名称水质.mdb
数据源名称，数据库名称水质.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