同步SQL SERVER 2000数据表到Windows CE的数据库(原创)

最新推荐文章于 2025-12-23 18:03:03 发布

原创最新推荐文章于 2025-12-23 18:03:03 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#sql server #windows #数据库 #string #security #exception

VB.NET 同时被 2 个专栏收录

5 篇文章

订阅专栏

SQL

3 篇文章

订阅专栏

本文展示了使用PULL方法同步数据的应用实例。代码实现了将SQL SERVER 2000的表同步到Windows CE的数据库里，包含数据库创建、连接字符串设置、远程数据访问对象配置等操作，还处理了同步过程中可能出现的异常。

PULL方法同步数据应用一例

Public Sub createDB()

        If Not File.Exists(ProgPath & "sddb.sdf") Or File.Exists(ProgPath & "sdinfodb.sdf") Then
            File.Delete(ProgPath & "sdinfodb.sdf")
            Dim sqlEngine As New SqlCeEngine("Data Source=/Program Files/hht/sdinfodb.sdf")
            sqlEngine.CreateDatabase()
        End If

        Dim toHHT As String = elemSetting(0).Item("hht").InnerText
        Dim varIP As String = elemSetting(0).Item("ip").InnerText
        Dim strCon As String
        Dim rda As SqlCeRemoteDataAccess = Nothing
        Dim LocalConnectionString As String = "Provider=Microsoft.SQLSERVER.OLEDB.CE.2.0;Data Source=/Program Files/sdinfodb.sdf"
        strCon = "Provider=sqloledb;Data Source=" & varIP & ";Initial Catalog=mydb;user id=sa;password=123"

'如果在 OLEDBConnectionString 中设置 INTEGRATED SECURITY="SSPI" 以使用 Windows 身份验证，则 Internet 用户必须具有读取 SQL Server 表的权限。
'strCon = "Provider=sqloledb;Data Source=" & varIP & ";Initial Catalog=mydb;Integrated Security=SSPI;"

        '将SQL SERVER 2000的表同步到Windows CE的数据库里
        Try
            rda = New SqlCeRemoteDataAccess

            rda.InternetUrl = "http://" & varIP & "/serviceWing/sscesa20.dll"
            rda.LocalConnectionString = LocalConnectionString
            rda.InternetLogin = ""
            rda.InternetPassword = ""
            'PULL的第四个参数是设置被同步的表是否有主健，RdaTrackOption.TrackingOffWithIndexes-没有，RdaTrackOption.TrackingOnWithIndexes-有
            rda.Pull("tabList", "SELECT * FROM tabList where bname LIKE '%" & name & "%';", strCon, RdaTrackOption.TrackingOffWithIndexes, "Error Table")
            rda.Pull("tabInfo", "SELECT * FROM tabInfo;", strCon, RdaTrackOption.TrackingOffWithIndexes, "Error Table")

rda.Dispose()

            MsgBox("Create Success!",MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Create Error!", MsgBoxStyle.Critical)
        Finally
            rda.Dispose()
        End Try
    End Sub