- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 再问Web数据源的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187940)
-- 发布时间：2023/8/22 11:25:00
-- 再问Web数据源的问题
蓝老师，我按高级指南http://www.foxtable.com/mobilehelp/topics/283.htm做的服务端，本机已经安装了SQL Server，然而在启动服务端时提示如下错误，请指导如何解决
.NET Framework 版本：4.0.30319.36543
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
Failed to listen on prefix
\'http://*:80/\' because it conflicts with an existing registration on the
machine.
-- 发布时间：2023/8/22 11:45:00
--
启动服务的时候指定具体的地址
HttpServer.Prefixes.Add("http://启动服务的电脑的ip比如192.168.0.100/")
-- 发布时间：2023/9/8 16:09:00
--
蓝老师，服务端设置好了，并已开启，我在设置客户端的外部数据源时，输入外网IP地址后
http://外网IP地址/DataServer.htm
-FormData-
UserName:张三
Password:888
提示错误，无法保存，不知什么原因，敬请蓝老师指导一下
此主题相关图片如下：错误提示.png
-- 发布时间：2023/9/8 16:15:00
--
两层架构时客户端能正常连接SQL数据库
-- 发布时间：2023/9/8 16:21:00
--
在客户端的BeforeConnectOuterDataSource事件设置代码
\'连接云服务器Web数据源服务端
If e.Name = "Orders" Then \'"Orders"外部数据源名称
Dim sb As New StringBuilder
sb.AppendLine("http://外网IP地址/DataServer.htm") \'公网IP
sb.AppendLine("-FormData-") \'此行之后为附加的表单数据
sb.AppendLine("UserName:张三") \'用户名称，可修改，此处不是登录用户名称
sb.AppendLine("Password:888") \'用户密码，同上，服务端据此进行身份验证
e.ConnectionString = sb.ToString()
End
If
-- 发布时间：2023/9/8 16:26:00
--
数据库是安装在自己的服务器，还是云服务器？如果是自己的服务器，宽带有固定IP吗？有没有做端口映射？外网可以正常访问这个外网ip吗
-- 发布时间：2023/9/8 16:36:00
--
数据库安装在单位的服务器上，宽带有固定IP，外网可以正常访问这个外网ip，据硬件工程师说硬件防火墙只设置了21端口对外开发
-- 发布时间：2023/9/8 16:47:00
--
蓝老师，咨询一下应该做哪个端口的映射？怎么做有做端口映射？
-- 发布时间：2023/9/8 17:21:00
--
SqlServer使用的是1433端口。网上搜索“路由端口映射”
-- 发布时间：2023/9/10 11:35:00
--
蓝老师，判断服务器Web数据源是否可以连通，我设置了一个检测窗口，窗口中的文本框控件输入IP地址，我用下面的代码进行检测，出现错误提示，敬请指导一下
Dim b As WinForm.TextBox
b = e.Form.Controls("TextBox1")
Dim sb As New StringBuilder
Dim Err As String
sb.AppendLine("http://b.Value/DataServer.htm")
sb.AppendLine("-FormData-")
sb.AppendLine("UserName:张三")
sb.AppendLine("Password:888")
If Connections.TryConnect(sb.Tostring, Err) = False Then
MessageBox.Show(err, "提示", MessageBoxButtons.OK,
MessageBoxIcon.Error)
Else
MessageBox.Show("数据源可以正常连通!", "提示", MessageBoxButtons.OK,
MessageBoxIcon.Information)
End If