课件：DAlessonSQLCE连线.ppt

download_from_sql - I 下載資料************************ Sub download_from_sql() Dim sr As String ShowHourGlass 顯示漏斗 connOpen 開啟PDA上的SQL資料庫 ---------------------------------------------------- If TableExists(cnADO, “employees) = True Then cnADO代表開啟的SQL資料庫的employees資料表 cnADO.Execute (drop table employees) 刪除資料表employees End If download_from_sql - II ---------------------------------------------------- connClose 關閉SQL資料庫 ------------------------------------------------------------ 連結遠端SQL SERVER Set ceRDA = CreateObject(SSCE.RemoteDataAccess.2.0) ceRDA.LocalConnectionString = SQLEProvider strDBFileName ceRDA.InternetURL = strInternetURL ceRDA.InternetLogin = strInternetLogin ceRDA.InternetPassword = strInternetPwd strRemoteConnect代表SQL Server資料庫 ‘ Pull代表將資料由SQL Serve取出放入PDA上的SQL資料庫中 ceRDA.Pull “employees, SELECT * FROM employees, strRemoteConnect, TRACKINGON download_from_sql - III If ceRDA.ErrorRecords.Count 0 Then ShowErrors ceRDA.ErrorRecords 顯示錯誤訊息 Else MsgBox 資料下載成功! End If Set ceRDA = Nothing ShowArrow ‘恢復游標 End Sub connOpen 開啟PDA上的SQL資料庫 GPS.SDF檔案 Function connOpen() As Boolean connOpen = False Set cnADO = CreateObject(ADOCE.Connection.3.1) cnADO.Open (SQLEProvider strDBFileName) If cnADO.Errors.Count = 0 Then connOpen = True 沒有錯誤代表開啟成功 Else MsgBox PDA上的SQL資料庫開啟失敗 End If End Function connClose 關閉PDA上的SQL資料庫 Sub connClose() On Error Resume Next cnADO.Close Set cnADO = Nothing On Error GoTo 0 End Sub TableExists Private Function TableExists(paramcnADO As ADOCE.Connection, paramTableName As String) As Boolean Dim catTable As ADOXCE.Table Dim cat As ADOXCE.Catalog TableExists = False Set cat = CreateObject(ADOXCE.Catalog.3.1) cat.ActiveConnection = paramcnADO For Each catTable In cat.Tables If InStr(1, catTable.Name, paramTableName) 0 Then TableExists = True Next Set catTable = Nothing Set cat = Nothing End Function ShowHourGlass ShowArrow 改變游標變成漏斗 Publ