以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  双数据源的情况下,在项目属性中怎么设置?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158781)

--  作者:xxfoxtable
--  发布时间:2020/12/2 12:12:00
--  双数据源的情况下,在项目属性中怎么设置?

 双数据源的情况下,在项目属性中怎么设置?一个是access一个是sql

 

BeforeConnectOuterDataSource

这个事件的代码

 

 

e.C & e.ProjectPath & "data\\cqj.mdb;Persist Security Info=False;Jet OLEDB:Database Password=liming@93422lm88.."
Dim ipFile As String = e.ProjectPath & "server.txt"
If e.Name ="sql" Then                     \'\' e.Name = "sqlgcgl" 这个是数据源名称
    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

 

,sql数据源用不了,报错

 

Dim cmd As new sqlcommand
cmd.C
cmd.Parameters.Clear
cmd.CommandText="s  elect mbno as 会员编号,mbname as 会员姓名,mbtel as 电话,mbmobile as 手机,mbspellname as id from {pos_mbInfo}"
Tables("会员查找下拉_table1").DataSource=cmd.ExecuteReader

这个语句报错,提示access数据源不存在这个表,我明明指定了,还不行

 

[此贴子已经被作者于2020/12/2 12:34:48编辑过]

--  作者:有点蓝
--  发布时间:2020/12/2 13:31:00
--  
If e.Name ="数据源名称1" Then 
数据源1的处理
elseIf e.Name ="数据源名称2" Then 
数据源2的处理
end if