以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]系统登录错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78081)
|
-- 作者:zcgmxf
-- 发布时间:2015/12/1 19:47:00
-- [求助]系统登录错误
老师,登录系统时出现如图提示,如果想修改提示内容,该在哪里编写代码?谢谢! 此主题相关图片如下:qq图片20151201194415.png
|
-- 作者:大红袍
-- 发布时间:2015/12/1 19:58:00
--
BeforeOpenProject事件,tryConnect一下不行,就弹出提示。
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\data\\Northwind.mdb;Persist Security Info=False" If Connections.TryConnect(s) = False Then
e.SkipSave = True MessageBox.Show("数据源无法连通!")
e.Cancel = True End If
|
-- 作者:zcgmxf
-- 发布时间:2015/12/1 20:01:00
--
谢谢!
|
-- 作者:zcgmxf
-- 发布时间:2015/12/1 20:17:00
--
好像有问题呢 此主题相关图片如下:qq图片20151201201459.png
|
-- 作者:zcgmxf
-- 发布时间:2015/12/1 20:21:00
--
红袍老师,我的sql 数据库
搞好了。
[此贴子已经被作者于2015/12/1 20:23:38编辑过]
|
-- 作者:大红袍
-- 发布时间:2015/12/1 20:23:00
--
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\data\\Northwind.mdb;Persist Security Info=False" If Connections.TryConnect(s) = False Then
e.HideSplashForm = True MessageBox.Show("数据源无法连通!")
e.Cancel = True End If
|