Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于和Web数据源的问题


  共有1979人关注过本帖树形打印复制链接

主题：关于和Web数据源的问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/18 15:03:00 [只看该作者]

以下是引用lin98在2023/8/18 14:41:00的发言：

问题二：这里4编号是错，应是3，服务端建立的本地数据源的，是指开发者的服务端？因为2、假定服务器已经安装了SQL Server，4、假定服务端建立的本地数据源的名称，都是企业内部服务器本地数据源？还是有区别？


可以连接任何自己需要连接的数据源

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7285 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/21 11:50:00 [只看该作者]

服务端的代码

AfterOpenProject事件

Forms("Server窗口").Open()


Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If


'HttpRequest事件
Select Case e.Path
    Case "DataServer.htm"
        e.AsDataServer("Northwind")
    Case "user.htm"
        e.AsDataServer("user")
End Select


客户端

'BeforeConnectOuterDataSource事件
If e.Name = "Northwind" Then
    Dim sb As New StringBuilder
    sb.AppendLine("http://192.180.0.101/DataServer.htm")
    sb.AppendLine("-FormData-")
    sb.AppendLine("UserName:张三")
    sb.AppendLine("Password:888")
    e.ConnectionString = sb.ToString()
End If


If e.Name = "user" Then
    Dim sb As New StringBuilder
    sb.AppendLine("http://192.180.0.101/DataServer.htm")
    sb.AppendLine("-FormData-")
    sb.AppendLine("UserName:张三")
    sb.AppendLine("Password:888")
    e.ConnectionString = sb.ToString()
End If



'AfterOpenProject

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If



ACCESS数据源


执行服务端，没 报错，执行客户端，报错连接不到数据源，连接不到服务器数据源，如何解决？实际上服务端、客户端都有连接数据源，在开发阶段还没发布-测试，
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/21 11:53:00 [只看该作者]

客户端和服务端都在同一台电脑运行测试的？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7285 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/21 13:27:00 [只看该作者]

在同一台电脑运行

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/21 13:33:00 [只看该作者]

调用步骤一的代码启动服务端服务了吗？http://www.foxtable.com/mobilehelp/topics/283.htm

客户端在数据源设置里设置是否测试通过？

If e.Name = "user" Then
    Dim sb As New StringBuilder
    sb.AppendLine("http://192.180.0.101/user.htm")
……
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7285 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/21 14:39:00 [只看该作者]

1.调用步骤一的代码启动服务端服务了吗？http://www.foxtable.com/mobilehelp/topics/283.htm

服务端的代码

AfterOpenProject事件

Forms("Server窗口").Open()

Server窗口上的“启动”键的单击事件：
用了官方QQServer的实例
'QQ服务端 - QQServer窗口 - 启动按键事件
QQServer.ServerIp = e.Form.Controls("txtIP").Value '指定IP地址
QQServer.ServerPort = e.Form.Controls("txtPort").Value '指定端口
QQServer.HeartbeatInterval = e.Form.Controls("txtInterval").Value '指定心跳时间
QQServer.HeartbeatTimeout = e.Form.Controls("txtTimeOut").Value '指定心跳超时时间
QQServer.Start() '启动QQServer
PopMessage("服务器已启用!","提示",PopIconEnum.Infomation,5)


2.
客户端在数据源设置里设置是否测试通过？
客户端测试有上面图
http://192.180.0.101/DataServer.htm
-FormData-
UserName:张三
Password:888
3.
'BeforeConnectOuterDataSource事件
If e.Name = "Northwind" Then
    Dim sb As New StringBuilder
    sb.AppendLine("http://192.180.0.101/DataServer.htm")
    sb.AppendLine("-FormData-")
    sb.AppendLine("UserName:张三")
    sb.AppendLine("Password:888")
    e.ConnectionString = sb.ToString()
End If


If e.Name = "user" Then
    Dim sb As New StringBuilder
    sb.AppendLine("http://192.180.0.101/DataServer.htm")
    sb.AppendLine("-FormData-")
    sb.AppendLine("UserName:张三")
    sb.AppendLine("Password:888")
    e.ConnectionString = sb.ToString()
End If
UserName:张三：是数据库的帐号？还是用户名？
Password:888：是数据库的密码？还是用户名的密码？
是需验证才有，不做验证不写
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7285 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/21 14:49:00 [只看该作者]

文字表述有些抽象，上传实例，你帮改一下，可以？谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/21 15:08:00 [只看该作者]

1、web数据源的web服务，和QQServer没有半毛钱的关系。另外服务端没看到有HttpRequest事件代码。请按照帮助的用法启动服务

2，3、这个是web数据源的验证用户，和数据库没有什么关系。如果服务端没有写代码验证这些用户，客户端也就不需要
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1101 积分：7285 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/8/21 15:44:00 [只看该作者]

1、web数据源的web服务，和QQServer没有半毛钱的关系。另外服务端没看到有HttpRequest事件代码。请按照帮助的用法启动服务
原来用下面代码，是Server窗口打开，用Server窗口的IP
服务端的代码

AfterOpenProject事件

Forms("Server窗口").Open()

现在改为下面：需求是，动态调用窗口1的TextBox1的内容/IP,如果连接上，才打开用户，执行下面代码，报错，找不到对象，如何处理？
Dim IP As WinForm.TextBox = Forms("窗口1").Controls("TextBox1") 'IP-文本框

With Forms("窗口1").Controls("TextBox1")
    If .Value Is Nothing Then
        Messagebox.Show("请输入编号!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If

HttpServer.Prefixes.Add("http://IP/")
'HttpServer.WebPath = "d:\web"
HttpServer.Start()
    
End With



Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/21 15:59:00 [只看该作者]

AfterOpenProject事件

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
Forms("Server窗口").Open()

"Server窗口"添加一个启动按钮，按钮代码
Dim IP As WinForm.TextBox = Forms("窗口1").Controls("TextBox1") 'IP-文本框

    If IP.text = "" Then
        Messagebox.Show("请输入编号!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
return
    End If

HttpServer.Prefixes.Add("http://" & IP.text & "/")
'HttpServer.WebPath = "d:\web"
HttpServer.Start()
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询