| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 远程升级提示二次升级成功，连接不上数据源报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115665) |
| -- 作者：xxfoxtable -- 发布时间：2018/3/12 10:26:00 -- 远程升级提示二次升级成功，连接不上数据源报错 二个问题 beforeconnectouterdatasource这个事件下写的代码，还报错连接不到数据源 Dim ipFile As String = e.ProjectPath & "server.txt" If e.Name = "gzgc" Then If Filesys.FileExists(ipFile) Then Dim str As String = FileSys.ReadAllText(ipFile) If Connections.TryConnect(str) = False Then canConnect = False str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "temp.MDB;Persist Security Info=False" Else canConnect = True End If e.ConnectionString = str Else canConnect = False Dim st As String st = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "temp.MDB;Persist Security Info=False" e.ConnectionString = st End If End If |
| -- 作者：有点甜 -- 发布时间：2018/3/12 10:32:00 -- 加入msgbox，看弹出什么
Dim ipFile As String = e.ProjectPath & "server.txt"
msgbox(e.name)
If e.Name = "gzgc" Then
msgbox(Filesys.FileExists(ipFile))
If Filesys.FileExists(ipFile) Then
Dim str As String = FileSys.ReadAllText(ipFile)
msgbox(str)
If Connections.TryConnect(str) = False Then
canConnect = False
str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "temp.MDB;Persist Security Info=False"
Else
canConnect = True
End If
msgbox(str)
e.ConnectionString = str
Else
msgbox("123abc")
canConnect = False
Dim st As String
st = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & e.ProjectPath & "temp.MDB;Persist Security Info=False"
e.ConnectionString = st
End If
End If |
| -- 作者：xxfoxtable -- 发布时间：2018/3/12 10:34:00 -- 我的意思是连不上sql数据库就连接access数据库，别报错，为啥报错呢？第一次连接，我还没有设置数据源呢，我就想不让软件报错 [此贴子已经被作者于2018/3/12 10:35:18编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/3/12 10:44:00 -- 以下是引用xxfoxtable在2018/3/12 10:34:00的发言：
我的意思是连不上sql数据库就连接access数据库，别报错，为啥报错呢？第一次连接，我还没有设置数据源呢，我就想不让软件报错 [此贴子已经被作者于2018/3/12 10:35:18编辑过]
参考2楼，分别弹出什么？ |
| -- 作者：xxfoxtable -- 发布时间：2018/3/12 11:02:00 -- [此贴子已经被作者于2018/3/12 11:10:55编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/3/12 11:11:00 -- 1、你的数据源名根本就不是这个 If e.Name = "gzgc" Then
2、你是不是要判断 If e.Name = "sqlgcgl" Then ？
3、弹出了msgbox，你还不能确定你哪里错了？ |
| -- 作者：xxfoxtable -- 发布时间：2018/3/12 11:12:00 -- 找到原因了，谢谢老师 |