以文本方式查看主题

-  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