来自www.Move2008.com
 数据挖掘论坛
使用SQLCE提供的RDA（Remote Data Access）对象很容易实现PocketPC SQLCE数据库与PC机SQL Server2000数据库同步，它们之间的同步通过HTTP来传输，因此也必须有后台WEB服务器。同步传输介质也有多种，如红外、底坐、无线网卡等。同步过程如下图所示：
数据挖掘工具
一、PC服务器端的安装及设置
 安装SSCEServer1.0
数据挖掘工具
1. 安装(下载)
http://www.microsoft.com/sql/ce/downloads/default.asp 数据挖掘交友
安装并配置IIS5.0(或更高版本) 数据挖掘实验室
1.安装
依次单击“开始”、“控制面板”，然后单击“添加/删除程序”。 单击“添加/删除 Windows 组件”。出现 Windows 组件向导。 按照屏幕上的说明安装、删除或添加Internet信息服务(IIS) 组件。 安装好之后，在IE浏览器的地址栏中键入 http://localhost/ 然后按 ENTER，如果有正常显示就说明IIS已安装正确，如遇到问题可查看 IIS 联机文档。
2.配置 数据挖掘实验室
打开“控制面板->管理工具-> Internet 信息服务”，设置步骤如下列图所示： 数据挖掘交友
(1) 增加虚拟目录 数据挖掘交友
数据挖掘研究院
数据挖掘交友
(2) 虚拟目录名称为：sqlce 数据挖掘实验室
数据挖掘研究院
(3) 填写虚拟目录路径 数据挖掘实验室
数据挖掘研究院
 数据挖掘交友
(4) 设置访问权限(注意：选中“执行(如ISAPI应用程序或CGI)”) 数据挖掘论坛
数据挖掘研究院
数据挖掘工具
(5) 测试安装是否正确 数据挖掘研究院
打开IE浏览器，在地址栏中输入http://localhost/sqlce/sscesa10.dll 数据挖掘研究院
如果显示为“body”则说明设置正确。 数据挖掘工具
数据挖掘研究院
二、PocketPC端的安装
安装SQLCE1.0 数据挖掘研究院
从微软网站下载： 数据挖掘实验室
http://download.microsoft.com/download/SQLSVR2000/Utility/3.0/NT5XP/EN-US/sqldash.exe 数据挖掘交友
解压后运行：C:sqldashSQLDashPPCPPCSetup.exe 数据挖掘交友
或者从www.Move2008.com下载：www.move2008.com/down/download/ssce.ARM720C.CAB 数据挖掘交友
下载后Copy到PocketPC打开安装即可。 数据挖掘工具
在PocketPC上创建SQLCE数据库 数据挖掘论坛
创建表代码如下： 数据挖掘论坛
Public goADOXcat As ADOXCE.Catalog 数据挖掘实验室
Set ADOXcat = CreateObject("ADOXCE.Catalog.3.1") 数据挖掘实验室
ADOXcat.Create"Provider=Microsoft.SQLServer.OLEDB.CE.1.0;Data Source= est" 数据挖掘实验室
三、数据库同步代码（EVB/ASP）
"数据库连接ADO Connection对象 数据挖掘论坛
Public conn As ADOCE.Connection 数据挖掘实验室
Public LocalConnStr, RemoteConnStr, InternetURL, ServerIP As String
"同步前的初使化 数据挖掘交友
Public Function SyncInit() 数据挖掘工具
"本地SQLCE连接ConnectString 数据挖掘工具
LocalConnStr = "Provider=Microsoft.SQLServer.OLEDB.CE.1.0;Data Source= est" 数据挖掘论坛
Set conn = CreateObject("ADOCE.connection.3.0")
conn.ConnectionString = LocalConnStr
"如果数据库是打开的则先关闭 数据挖掘实验室
If conn.State = 1 Then conn.Close 数据挖掘实验室
"PC服务器的地址 数据挖掘工具
ServerIP = "192.168.0.1"
"远程SQL Server2000数据库连接地址 数据挖掘实验室
RemoteConnStr = "Provider=sqloledb;Initial Catalog=AircraftMobile;Data Source=" + ServerIP + ";user id=test;password=test;" 数据挖掘工具
"远程PC机上的SQLCE同步的WEB地址(在IIS设置) 数据挖掘交友
InternetURL = "http://" + ServerIP + "/sqlce/sscesa10.dll" 数据挖掘研究院
end Function 数据挖掘论坛
"数据同步 数据挖掘实验室
Public Function SyncTable(tablename, sql)
delTable (tablename) 数据挖掘研究院
Set ceRDA = CreateObject("SSCE.RemoteDataAccess.1.0") 数据挖掘研究院
ceRDA.LocalConnectionString = LocalConnStr
ceRDA.InternetURL = InternetURL 数据挖掘交友
数据挖掘论坛
On Error Resume Next
‘把PC数据库中的表同步到PocketPC中 数据挖掘论坛
ceRDA.Pull tablename, sql, RemoteConnStr, TRACKINGOFF
‘把PocketPC中的数据同步到PC中 数据挖掘研究院
‘此行已注释：goRDA.Push tablename, RemoteConnStr
If ceRDA.ErrorRecords.Count > 0 Then 数据挖掘研究院
For Each gceErr In ceRDA.ErrorRecords
strErr = "" 数据挖掘工具
strErr = strErr + "错误号:" + Trim(gceErr.NativeError) + " " 数据挖掘交友
strErr = strErr + "目标:" + gceErr.Description + " " 数据挖掘论坛
MsgBox tablename + ":" + strErr
Next 数据挖掘工具
End If
数据挖掘工具
Set ceRDA = Nothing 数据挖掘交友
End Function 数据挖掘工具
数据挖掘工具
"删除表 数据挖掘实验室
Public Function delTable(tablename) 数据挖掘论坛
Set conn = CreateObject("ADOCE.connection.3.0") 数据挖掘工具
conn.ConnectionString = "Provider=Microsoft.SQLServer.OLEDB.CE.1.0;Data Source= est"
conn.Open 数据挖掘研究院
On Error Resume Next 数据挖掘论坛
conn.Execute ("drop table " + tablename) 数据挖掘交友
conn.Close 数据挖掘论坛
End Function 数据挖掘实验室
数据挖掘交友
"远程操作PC服务器数据库 数据挖掘研究院
function RemoteSQL(sql) 数据挖掘交友
if trim(sql)<>"" then 数据挖掘研究院
if mid(sql,len(sql),1)<>";" then sql = sql & ";" 数据挖掘研究院
Set ceRDA = CreateObject("SSCE.RemoteDataAccess.1.0") 数据挖掘实验室
ceRDA.InternetURL = InternetURL 数据挖掘工具
sql = "BEGIN TRANSACTION; Use test;" & sql & "COMMIT TRANSACTION;"
数据挖掘论坛
On Error Resume Next 数据挖掘实验室
ceRDA.SubmitSQL sql,RemoteConnStr
If ceRDA.ErrorRecords.Count > 0 Then 数据挖掘工具
For Each gceErr In ceRDA.ErrorRecords
strErr = ""
strErr = strErr & "错 误 号: " & Trim(gceErr.NativeError) & vbCrLf 数据挖掘论坛
strErr = strErr & "出错目标: " & gceErr.Description & vbCrLf 数据挖掘研究院
MsgBox strErr 数据挖掘研究院
Next 数据挖掘工具
End If 数据挖掘研究院
Set ceRDA = Nothing 数据挖掘实验室
end if 数据挖掘论坛
end function 数据挖掘交友
数据挖掘工具
Bedlang 数据挖掘论坛
2002-11-1 |
