以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Q:新问题,设置登入界面的时候出现这个错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20600)

--  作者:hp001
--  发布时间:2012/6/13 14:30:00
--  Q:新问题,设置登入界面的时候出现这个错误
狐爸,请看看,设置登入界面的时候出现这个,有碰到过吗,我的是SQL2000
图片点击可在新窗口打开查看此主题相关图片如下:360截图20120613142802687.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2012/6/13 14:34:00
--  
很明显,合成的连接字符串有问题。
你设置好数据源,然后删除BeforeConnectOuterDataSource事件中的代码看看。
[此贴子已经被作者于2012-6-13 14:36:01编辑过]

--  作者:hp001
--  发布时间:2012/6/13 14:36:00
--  
那具体是在那里设置呢。我传例子有点麻烦,带数据库的
--  作者:hp001
--  发布时间:2012/6/13 14:39:00
--  

登入窗口的确定按钮

Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {S用户权限} Where [职务] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("密码") Then
    _UserName =  dr("职务")
    _UserGroup = dr("所在部门")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


--  作者:狐狸爸爸
--  发布时间:2012/6/13 14:43:00
--  

和登录窗口无关,你的错误提示发生在打开项目的时候


--  作者:hp001
--  发布时间:2012/6/13 14:45:00
--  
If e.name = "Hperp" Then
      e.C";Persist Security Info=True;User ID=sa;Initial Catalog=Hperp;Data Source=192.168.1.222"
End If

--  作者:hp001
--  发布时间:2012/6/13 14:46:00
--  

BeforeConnectOuterDataSource,在这个位置设置的


--  作者:hp001
--  发布时间:2012/6/13 14:47:00
--  
If e.name = "Hperp" Then
      e.C";Persist Security Info=True;User ID=sa;Initial Catalog=Hperp;Data Source=192.168.1.222"
End If

--  作者:hp001
--  发布时间:2012/6/13 14:48:00
--  

这个就是项目属性的设置


图片点击可在新窗口打开查看此主题相关图片如下:360截图20120613144657296.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2012/6/13 14:50:00
--  

就是这段合成的连接字符串出问题了,你先不要用代码合成,删除这些代码,直接在菜单中设置好数据源