主题：[求助]切换数据源问题求助（已解决）

而且不单单是这个表，只这是第一个表，后面的表连续同样的错

 bak不是数据库啊老大。

 

 连续报错，就说明连不上数据库或者数据库没有表啊

此主题相关图片如下：qq截图20150804214002.png

 

怎么不是了，我刚还原测试了本地数据库，在狐表里更改了一下数据源链接参数，其他未变，一个报错都没有。现在的问题就在用代码设置数据库参数上

Dim cn As String = "Provider=SQLOLEDB.1;Password=" & str(3) & ";Persist Security Info=True;User ID=" & str(2) & ";Initial Catalog=" & str(1) & ";Data Source=" & str(0)

 1、bak你能还原别人不能啊，别人没有数据库啊；

 

 2、既然是代码的问题，那你就加入msgbox弹出各个值测试也不会？

代码里已经加入messagebox调试了。。。

说明没看我第一个帖子的代码，我第一句话就show了

你要检查哪句代码是否执行，就在前后加入msgbox啊。

大哥，我已经加入了。。。。

无语。

 

加入你要看弹出的内容对不对啊。

 

MessageBox.show(e.ConnectionString)

If Connections.TryConnect(e.ConnectionString) = False Then

Dim config As String = e.ProjectPath & "config.txt"

If Filesys.FileExists(config) Then

Dim Result As DialogResult

e.HideSplashForm = True

Result = MessageBox.Show("连接数据库失败,是否读取系统目录下的数据源配置:config.txt","提示", MessageBoxButtons.YesNo)

e.HideSplashForm = False

If Result = DialogResult.No Then

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")

For Each p As System.Diagnostics.Process In ps

If p.MainWindowTitle = Nothing OrElse p.MainWindowTitle.contains("公司管理系统") Then

p.kill

End If

Next

Else

Dim strs As String = FileSys.ReadAllText(config)

strs = strs.Replace(vblf,"")

Dim str() As String = strs.Split(vbcr)

Dim cn As String = "Provider=SQLOLEDB.1;Password=" & str(3) & ";Persist Security Info=True;User ID=" & str(2) & ";Initial Catalog=" & str(1) & ";Data Source=" & str(0)

MessageBox.Show(Connections.TryConnect(cn))

If Connections.TryConnect(cn) = True Then

If e.Name = "ERP" Then

e.ConnectionString = cn

End If

MessageBox.show(e.ConnectionString)

Else

MessageBox.show("连接数据库参数不正确,即将退出系统")

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")

For Each p As System.Diagnostics.Process In ps

If p.MainWindowTitle = Nothing OrElse p.MainWindowTitle.contains("公司管理系统") Then

p.kill

End If

Next

End If

End If

End If

End If

MessageBox.Show("BeforeConnectOuterDataSource结束")

 

 

以上红色部分都是加入查看的。。。