如何连接sqlserver数据源，然后列出所有数据库名称 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何连接sqlserver数据源，然后列出所有数据库名称

共有2363人关注过本帖树形打印复制链接主题：如何连接sqlserver数据源，然后列出所有数据库名称

xxfoxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1743 积分：16416 威望：0 精华：0 注册：2017/6/1 23:12:00

如何连接sqlserver数据源，然后列出所有数据库名称 发帖心情

Post By：2018/6/15 21:02:00 [显示全部帖子]

如何连接sqlserver数据源，然后用combox控件列出所有数据库名称

xxfoxtable

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1743 积分：16416 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/6/15 21:20:00 [显示全部帖子]

此主题相关图片如下：1.png

我想这样实现，测试连接的代码应该怎么写呢？

[此贴子已经被作者于2018/6/15 21:21:09编辑过]

xxfoxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1743 积分：16416 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/6/15 21:57:00 [显示全部帖子]

连接哪个数据库还不知道，示例中全部是连接具体数据库，这样的我会，但没有选择之前，我不知道选择哪个数据库，这样的语句不会写，要通过combox控件选择，我才能确定连接哪个数据库

[此贴子已经被作者于2018/6/15 21:57:54编辑过]

xxfoxtable

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1743 积分：16416 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：2018/6/15 22:23:00 [显示全部帖子]

Dim strCon As String = "Provider=SQLOLEDB.1;Password={0};Persist Security Info=True;User ID=sa;Data Source={1}"

strCon = String.Format(strcon, e.Form.Controls("TextBox2").Text, e.Form.Controls("TextBox1").Text)

Dim bt2 As WinForm.Button = e.Form.Controls("Button2")

If Connections.TryConnect(strCon) Then

Dim cmb As WinForm.ComboBox

cmb = e.Form.Controls("ComboBox1")

For Each cn As Connection In Connections

msgbox(cn.name)

cmb.Items.Add(cn.Name)

bt2.Enabled=True

msgbox("测试成功")

Else

msgbox("测试失败")

bt2.Enabled=False

End If

这是这样写的，但combox控件里一片空白，经测试跳过循环了，没执行，请老师指点一下

下一主题 >> << 上一主题

主题：如何连接sqlserver数据源，然后列出所有数据库名称