关于web数据源的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想用web数据源建立多账套，客户登陆的时候先输入服务器的ip、端口、用户名、密码然后进行连接连接以后可以显示服务器的所有对该用户开放的数据源客户根据需要选择相应的账套这样可以实现吗？要如何做？

老师这个我知道的我的意思是web一个网址对应一个数据源我再登陆的时候要怎么检索？

比如服务端

Select Case e.Path
    Case "sjy1.htm"
        e.AsDataServer("数据源1")
    Case "sjy2.htm"
        e.AsDataServer("数据源2")

Case "sjy3.htm"
e.AsDataServer("数据源3")
End Select

我在客户端要怎么弄？

客户端发送表单

Dim hc As New HttpClient("http://" & e.Form.Controls("SIP").text & ":" & e.Form.Controls("SPort").text & "/sjyget.htm")

hc.FormData.Add("cn",e.Form.Controls("computerName").text)

hc.FormData.Add("IP",e.Form.Controls("IP").text)

hc.FormData.Add("ID",e.Form.Controls("ID").text)

Dim s As String = hc.GetData()

服务端sjyget.htm代码

Dim e As RequestEventArgs = args(0)

Dim Verified As Boolean

Dim cn As String = e.PostValues("cn")

Dim ip As String = e.PostValues("IP")

Dim id As String = e.PostValues("ID")

Dim dr As DataRow = DataTables("客户端授权表").Find("ID = '" & id & "'")

If dr IsNot Nothing AndAlso dr("AUTH") = 1 Then

Verified = True

dr("TIME") = Date.now

dr.save

End If

If dr Is Nothing Then

Dim nr As DataRow = DataTables("客户端授权表").addnew

nr("NAME") = cn

nr("IP") = ip

nr("ID") = id

nr("AUTH") = 0

nr("AUTHM") = EncryptText(id,"#xo#","#ar#")

nr("TIME") = Date.now

Verified = False

nr.save

End If

If Verified = False Then

e.AppendCookie("Error","用户身份验证失败!")

Return ""

End If

Select Case e.Path

Case "sjyget.htm"

e.WriteString(DataTables("账套管理表").GetComboListString("账套名称"))

End Select

为什么客户端

Dim s As String = hc.GetData()

得到的S始终为空

错误的时候没有问题，我的意思是正确的时候返回的也是nothing

问题解决了

If dr IsNot Nothing AndAlso dr("AUTH") = 1 Then

改成

If dr IsNot Nothing AndAlso dr("AUTH") = True Then

就可以了但是不知道为什么会这样

Connections.Add("sjy",sb.ToString)

创建数据源以后如何判断是否成功错误了会有提示如果成功了会不会返回什么还有就是这个web数据源要如何使用，因为动态添加的在外部数据源里看不到！

那对于需要输入用户名和密码的web数据源如何添加成外部数据源

此主题相关图片如下：01.jpg

我现在是这样的先通过连接服务器窗口设置连接信息获得账套信息然后在登录窗口选择账套输入用户名和密码合成客户端连接Web数据源的字符串然后添加数据源这样的情况下我如何能通过窗口的外部数据源进行管理

主题：关于web数据源的问题