dbconn.bas

Windows CE 应用程序设计随书源码

Attribute VB_Name = "dbConn"
Option Explicit

    Dim CEMerge As SSCE.Replication
    Dim CERDA   As SSCE.RemoteDataAccess
    Dim txtRDAConnectString
    Dim txtRDALocalTable
    Dim txtRDAQuery
    Dim txtRDAErrorTableName
    Dim RDATrackoption
    Dim mnuItem
    Dim Click_value
    Dim have_modify
    have_modify = 0
    Public conn As ADOCE.Connection
        
    Const gcstrLocalConnect = "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0; data source=\ProjectInfo.sdf"
    


    
 Sub InitReplRDA()
 
    ' Create and initialize the Replication object
    Set CEMerge = CreateObject("SSCE.Replication.1.0")
    CEMerge.InternetURL = "http://202.204.96.168:8080/sscesa10.dll"
    CEMerge.InternetLogin = ""
    CEMerge.InternetPassword = ""
    CEMerge.Publisher = "ProjectInfo"
    CEMerge.PublisherDatabase = "ProjectInfo"
    CEMerge.Publication = "ProjectInfo"
    CEMerge.PublisherSecurityMode = DB_AUTHENTICATION
    CEMerge.PublisherLogin = "sa"
    CEMerge.PublisherPassword = "newchinafive008019"
    CEMerge.PublisherNetwork = DEFAULT_NETWORK
    CEMerge.Subscriber = "mes"
    CEMerge.SubscriberConnectionString = "data source=ProjectInfo.sdf"
    CEMerge.DistributorNetwork = DEFAULT_NETWORK
    CEMerge.DistributorSecurityMode = DB_AUTHENTICATION
    CEMerge.DistributorLogin = "sa"
    CEMerge.DistributorPassword = "newchinafive008019"
    CEMerge.ExchangeType = BIDIRECTIONAL
    CEMerge.Validate = NO_VALIDATION
       
    ' Create and initialize the RDA object
    Set CERDA = CreateObject("SSCE.RemoteDataAccess.1.0")
    CERDA.InternetURL = "http://202.204.96.168:8080/sscesa10.dll"
    CERDA.InternetLogin = ""
    CERDA.InternetPassword = ""
    CERDA.LocalConnectionString = "data source=ProjectInfo.sdf"
    txtRDAConnectString = "provider=sqloledb; data source=ProjectInfo; Initial Catalog=ProjectInfo; user id=sa; password=newchinafive008019"
    txtRDALocalTable = "<SSCE local table name>"
    txtRDAErrorTableName = "<SSCE error Table Name>"
    txtRDAQuery = "<SQL SELECT statement>"
    RDATrackoption = TRACKINGOFF
      
End Sub
   
Sub ShowErrors(ErrColl As SSCEErrors, strCaption As String)

    Dim ErrRec As Object    'SSCE.ErrorRecords
    Dim strErr As String
        
    strErr = ""
    For Each ErrRec In ErrColl
         strErr = strErr & "Source: " & ErrRec.Source & vbCrLf
         strErr = strErr & "Number: " & Hex(ErrRec.Number) & vbCrLf
         strErr = strErr & "NativeError: " & ErrRec.NativeError & vbCrLf
         strErr = strErr & "Description: " & ErrRec.Description & vbCrLf & vbCrLf
    Next ErrRec
    
    MsgBox strErr, vbOKOnly, strCaption

End Sub

Function connectdbf(tSQL As String) As Recordset

  Dim conn As ADOCE.Connection
  Dim RS As ADOCE.Recordset
  Set conn = CreateObject("ADOCE.connection.3.1")
  Set RS = CreateObject("ADOCE.recordset.3.1")

 conn.ConnectionString = gcstrLocalConnect


conn.Open

RS.Open tSQL, conn, adOpenStatic, adLockReadOnly

Set connectdbf = RS


Set conn = Nothing
Set RS = Nothing


End Function




Public Sub connDB()

Set conn = CreateObject("ADOCE.connection.3.1")
conn.ConnectionString = "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0; data source=\ProjectInfo.sdf"
conn.Open
End Sub