以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  创建数据源错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89566)
--  作者：kaituozhe
--  发布时间：2016/8/24 15:53:00
--  创建数据源错误

Dim mdbs() As String = e.Form.Controls("CheckedComboBox4").text.split(",") 

Dim str As String = e.Form.Controls("ComboBox1").text
If Connections.Contains("test") Then Connections.Delete("test")
msgbox(str)
Connections.Add("test", "Provider=SQLOLEDB.1;Password=111111gh;Persist Security Info=True;User ID=sa;Initial Catalog= " & str & ";Data Source=" & SysInfo.ComputerName & "")

以下代码为什么提示创建"test"失败，该怎么修改？
--  作者：大红袍
--  发布时间：2016/8/24 16:30:00
--  

试试

 

Connections.Add("test", "Provider=SQLOLEDB.1;Password=111111gh;Persist Security Info=True;User ID=sa;Initial Catalog=" & str & ";Data Source=" & SysInfo.ComputerName)

 

然后输出连接字符串，单独在数据源那里设置，看有什么问题

 

output.show("Provider=SQLOLEDB.1;Password=111111gh;Persist Security Info=True;User ID=sa;Initial Catalog=" & str & ";Data Source=" & SysInfo.ComputerName)