（极力推荐）SQLCE数据库同步！

bedlang 2002-11-02 07:16:06

www.Move2008.com

由于不能贴图片，这里只有文章部分，全文请到此处观看：
http://www.move2008.com/ReadNews.asp?NewsID=741&BigClassName=技术文章&SmallClassName=PPC专区&SpecialID=12

或下载PDF文档：
http://www.move2008.com/down/list.asp?id=29

===========================================

'数据库连接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=\test"
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=\test"
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

===========================
www.Move2008.com

...全文