Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共16 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:再问Web数据源的问题

1楼
13315253800 发表于:2023/8/22 11:25:00

蓝老师,我按高级指南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.

2楼
有点蓝 发表于:2023/8/22 11:45:00
启动服务的时候指定具体的地址

HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer
.Prefixes.Add("http://启动服务的电脑的ip比如192.168.0.100/")
HttpServer.Start()
3楼
13315253800 发表于:2023/9/8 16:09:00

蓝老师,服务端设置好了,并已开启,我在设置客户端的外部数据源时,输入外网IP地址后

http://外网IP地址/DataServer.htm

-FormData-

UserName:张三

Password:888

提示错误,无法保存,不知什么原因,敬请蓝老师指导一下


此主题相关图片如下:错误提示.png
按此在新窗口浏览图片

4楼
13315253800 发表于:2023/9/8 16:15:00
两层架构时客户端能正常连接SQL数据库
5楼
13315253800 发表于: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

6楼
有点蓝 发表于:2023/9/8 16:26:00
数据库是安装在自己的服务器,还是云服务器?如果是自己的服务器,宽带有固定IP吗?有没有做端口映射?外网可以正常访问这个外网ip吗
7楼
13315253800 发表于:2023/9/8 16:36:00
数据库安装在单位的服务器上,宽带有固定IP,外网可以正常访问这个外网ip,据硬件工程师说硬件防火墙只设置了21端口对外开发
[此贴子已经被作者于2023/9/8 16:36:20编辑过]
8楼
13315253800 发表于:2023/9/8 16:47:00
蓝老师,咨询一下应该做哪个端口的映射?怎么做有做端口映射?
[此贴子已经被作者于2023/9/8 16:52:22编辑过]
9楼
有点蓝 发表于:2023/9/8 17:21:00
SqlServer使用的是1433端口。网上搜索“路由端口映射”
10楼
13315253800 发表于: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

共16 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02832 s, 2 queries.