设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 7333|回复: 11
打印 上一主题 下一主题

[模块/函数] Access菜鸟七大邪门武器之三—以winsock方式快速搭建服务器版access

[复制链接]
跳转到指定楼层
1#
发表于 2013-11-7 20:53:26 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
本帖最后由 ganlinlao 于 2013-11-7 21:24 编辑

Access菜鸟七大邪门武器之三—以winsock方式快速搭建服务器版access

        这不算很好的方案,但也不算很烂的方案。如果你的数据不算多,用户使用称不上繁杂,
不需要可怕的高并发,不需要可怕的灾难恢复。特别是如果你对Access一见钟情,大有以身相许的豪迈,
那么本邪门武器,可能真的很适合你。

      既然是以winsock的方式,那么在这里我将推荐一个NetData。这是对winsock的再封装,可以说专用于
access。适合小型的C/S方式。是快速让你的access成为服务器版的一枝伤心小箭。
     但在使用之前,你一定要适当了解一下winsock的优缺点。别进洞房,才发现媳妇不是高小姐,而是大师兄
那比守寡还添堵啊。

服务端:
    1、单端口多连接。这是常用的
    2、双端口多连接。如果你的数据传输量比较大,可以在服务端使用双端口。一个负责接收数据,写入数据库,一个负责查询,发送数据。
    这样子性能会有所改观。
    3、多用户多端口多连接。跟聊天差不多。

服务端使用很简单:你可以用任何支持com的语言写,包括vbscript和jscript。也可以用access来写,不过access得一直开着。
在这里图方便我使用vb6。在vb6中建立一个form1。引用netdata控件。
代码如下:
Private Sub Form_Load()
Dim objXMLDoc As Object, strConn As String, strPort As String
'获取config配置文件,用配置文件是为了方便更改数据库连接和端口
Set objXMLDoc = CreateObject("msxml2.DOMDocument.6.0")
If objXMLDoc Is Nothing Then Set objXMLDoc = CreateObject("msxml2..DOMDocument.3.0")
On Error GoTo errhandler
objXMLDoc.Load App.Path & "\" & "config.xml"
strConn = objXMLDoc.getElementsByTagName("ConnectionString")(0).Text
strPort = objXMLDoc.getElementsByTagName("Port")(0).Text

    '指定服务器上数据库的连接字符串,和服务器对外提供的监听端口
    '并打开服务器的服务...
    NetDataServer1.Start strConn, strPort
    Set objXMLDoc = Nothing
Exit Sub
errhandler:
MsgBox "没有找到config文件!"
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
    NetDataServer1.Down  '关闭服务,释放资源...
End Sub

其实你只要两行代码就可以了。
form_load事件写入 netdataserver1.start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;","8899"
form_unload事件写入 netdatasever1.down
编译运行。一个服务器版的access建立起来了。

配置文件config.xml如下:
<?xml version="1.0" encoding="GBK"?>
<config>
<!--数据库连接字符串,如果是07版本以上,请用Microsoft.ACE.OLEDB.12.0;-->
<ConnectionString>Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;</ConnectionString>
<!--设置端口,最好在10000以上,不超过65536,以避免跟其它默认端口冲突-->
<Port>8899</Port>
</config>

评分

参与人数 2经验 +40 收起 理由
todaynew + 10 很给力!
admin + 30 赞一个!

查看全部评分

本帖被以下淘专辑推荐:

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏6 分享分享 分享淘帖1 订阅订阅
12#
发表于 2015-11-30 10:15:09 | 只看该作者

感谢楼主分享,非常感谢~~
11#
发表于 2013-11-16 12:34:16 | 只看该作者
请做前后几个相关帖子的链接,按【上一课】 【下一课】这样的方式,以便于查找。
10#
发表于 2013-11-15 21:13:00 | 只看该作者
老兄很幽默

点击这里给我发消息

9#
发表于 2013-11-9 12:52:42 | 只看该作者
谢谢分享, 标记一下

点击这里给我发消息

8#
发表于 2013-11-8 11:03:54 | 只看该作者
突然发现,冬瓜的文采与老汉 有得一比啊. 而且 也是出整套 系列

点击这里给我发消息

7#
发表于 2013-11-8 10:42:26 | 只看该作者
上次 听冬瓜介绍了这个NetData,已经在一些客户的系统测试过这个
有好处,也有缺点,但总体上还是一种不错的解决方案.
赞一下!

点击这里给我发消息

6#
发表于 2013-11-8 09:59:22 | 只看该作者
顶一下!!
回复

使用道具 举报

点击这里给我发消息

5#
发表于 2013-11-7 21:13:19 | 只看该作者
看来冬瓜解决数据表绑定了

点击这里给我发消息

4#
发表于 2013-11-7 20:59:51 | 只看该作者
顶起................................
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-2-27 04:46 , Processed in 0.089177 second(s), 38 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表