哪位达人用过RDA进行sql server与sql server ce通讯的,帮帮我,我已经心力交瘁了
Public Function SyncTable()
Dim rs As ADOCE.Recordset
Dim sql As String
Dim Crt As ADOXCE.Catalog
Set Crt = CreateObject("ADOXCE.Catalog.3.1")
Crt.Create "Provider=Microsoft.SQLServer.OLEDB.CE.2.0; Data Source=\My Documents\candy.sdf"
LocalConnStr = "Provider=Microsoft.SQLServer.OLEDB.CE.2.0;Data Source=\My Documents\candy.sdf"
Set conn = CreateObject("ADOCE.connection.3.1")
conn.ConnectionString = LocalConnStr
If conn.State = 1 Then conn.Close
'PC服务器的地址
ServerIP = "192.168.1.101"
'远程SQL Server2000数据库连接地址
RemoteConnStr = "Provider=sqloledb;Initial Catalog=candy;Data Source=" + ServerIP + ";user id=sa;password=sa;"
InternetURL = "http://192.168.1.101/sqlce/sscesa20.dll"
Set conn = CreateObject("ADOCE.connection.3.1")
conn.ConnectionString = "Provider=Microsoft.SQLServer.OLEDB.CE.2.0;Data Source=\My Documents\candy.sdf"
conn.Open
On Error Resume Next
conn.Execute ("drop table " + goods)
conn.Close
Set ceRDA = CreateObject("SSCE.RemoteDataAccess.2.0")
ceRDA.LocalConnectionString = LocalConnStr
ceRDA.InternetURL = InternetURL
'把PC数据库中的表同步到PocketPC中
ceRDA.Pull "goods", "select * from goods", RemoteConnStr, TRACKINGOFF
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
我没用的是仿真器,IIS设置应该是没有什么问题的
当运行到ceRDA.Pull "goods", "select * from goods", RemoteConnStr, TRACKINGOFF
这句时总是报错An error was encountered while running program 我都快崩溃了,弄了好几天了,哪位达人帮我看一下哪里有错,我跪拜谢了