窗体中选择数据源后，怎么实现不动的数据源连接呢？一个是sql数据源一个是acc数据源 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在登录窗体登录的时候先判断对应的SQL数据库是否可以连接

项目有两个数据源

【用户登录】窗体加载后事件代码：

Dim s1 As String ="Pro vider=SQLOLEDB.1;Password=Aa123456;Persist Security Info=True;User ID=sa;Initial Catalog=网安综合业务;Data Source=192.168.0.56"

Dim t As WinForm.Label = e.Form.Controls("Label3")

Dim t1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

If Conn ectio ns.TryConnect(s1) = False Then

t.text="数据源无法连通,请联系管理员!"

t1.text="本地acc数据库,仅供练习!"

Else

t.text="当前数据源正常连接,可登陆使用!"

t1.text="专用sql数据库,正式环境!"

End If

如果可以连接就直接使用SQL数据库

反之就启动本地ACC数据库

确定登录事件代码：

Dim UserName As String = e.Form.Controls("UserName").Value

Dim cmd As New SQ LCo mmand

Dim dt As DataTable

Dim dr As DataRow

Dim c1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

If c1.text="专用sql数据库,正式环境!"

cmd.Con ne ctio nNa me = "电子审批台账"

Else If c1.text="本地acc数据库,仅供练习!"

cmd.Co nnec tionN ame = "本地acc数据库"

End If

If UserName = "" Then

Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

cmd.Comm andText = "Se lect * From {用户表} Where [警号] = '" & UserName & "'"

dt = cmd.ExecuteReader(True)

If dt.DataRows.Count = 0 Then

Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

dr = dt.DataRows(0)

If e.Form.Controls("PassWord").Value = dr("密码") Then

vars("警号") = UserName

vars("UserName") = dr("用户名称")

output.Show( vars("UserName") )

vars("类别") = dr("类别")

vars("所在单位") = dr("所在单位")

e.Form.Close

Else

Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

怎么实现

If c1.text="专用sql数据库,正式环境!" 时数据连接sql数据库的表

cmd.Con ne ctio nNa me = "电子审批台账"

Else If c1.text="本地acc数据库,仅供练习!" 时数据连接本地ACC数据库的表

cmd.Co nnec tionN ame = "本地acc数据库"

End If

[此贴子已经被作者于2022/1/16 17:17:08编辑过]

主题：窗体中选择数据源后，怎么实现不动的数据源连接呢？一个是sql数据源 一个是acc数据源

主题：窗体中选择数据源后，怎么实现不动的数据源连接呢？一个是sql数据源一个是acc数据源