新增虚拟目录.ppt

SQL CE 註冊 RDA REGSVR32 IIS 設定 新增虛擬目錄 IIS 設定 輸入虛擬目錄名稱 IIS 設定 輸入虛擬目錄位置 IIS 設定 輸入虛擬目錄權限 (執行一定要勾) IIS 設定 設定完成 連線SQL Server 連線SQL Server 圖片顯示 宣告連線變數 設定連線參數值 連線SQL Server 從SQL Server下載資料 I 從SQL Server下載資料 II CreateDB download_from_sql - I download_from_sql - II download_from_sql - III connOpen connClose TableExists ShowHourGlass ShowArrow Summary 顯示資料 顯示資料 更改資料 新增資料－資料庫欄位屬性修正 新增資料 上傳資料 * * reference installation InitDB 顯示圖片 Private Sub Form_Activate() Dim strpath As String strpath = App.Path If strpath = \ Then strpath = End If PictureBox1.Picture = strpath \a1.bmp End Sub 所有變數宣告在Module中 Const DBFileSpec = \My Documents\ PDA上SQL資料庫位置所在 Const DBName = “employee.sdf” ‘ PDA上SQL資料庫名稱 連接server上的SQL Server Const strRemoteProvider = Provider=sqloledb;Initial Catalog=Northwind; Const SQLEProvider = Provider=Microsoft.SQLSERVER.OLEDB.CE.2.0; data source= ------------------------------------------------------------------------------------ Dim strRemoteSQLServerName As String SQL主機名稱 Dim strRemoteSQLServerUID As String SQL帳號 Dim strRemoteSQLServerPwd As String SQL密碼 Dim strInternetURL As String RDA.DLL所在位置 Dim strRemoteConnect As String ‘連接SQL SERVER連線參數 Dim strDBFileName As String ‘pda上的資料庫 Dim cnADO As ADOCE.Connection ‘操作pda上的sdf資料庫的connection 設定連接參數 Private Sub InitDB() 聯結PDA上的SQL資料庫，判斷是否要覆蓋或繼續使用 strRemoteSQLServerName = txtRemoteHost.Text SQL Server strRemoteSQLServerUID = txtUserID.Text SQL Server帳號 strRemoteSQLServerPwd = txtUserPasswd.Text SQL Server密碼 strInternetURL = txtsaURL.Text RDA.DLL所在位置 連接資料庫 strRemoteConnect = strRemoteProvider Data Source= strRemoteSQLServerName ;UID= strRemoteSQLServerUID ;password= strRemoteSQLServerPwd MsgBox “SQL Server資料庫初始成功，可以開始進行上傳或下載資料的動作！“ download_upload.Show End Sub download_upload COMMAND1 command2 Dim ceRDA As SSCE.RemoteDataAccess ‘全域變數 Private Sub Command1_Click() 下載資料 Dim CreateDBFlag A