none
如何以時間為條件.在VB6.0的環境下做ASSECC的資料刪除及備份 RRS feed

  • 一般討論

  • 在考慮資料庫內容大小時 希望能以時間做為一個條件 將大於30天的資料做刪除的動作

    這是我的程式語法如下:   

    Code Snippet
      Dim C As New ADODB.Connection
         Dim R As New ADODB.Recordset
         Dim StrCnn, strsql As String
         Dim D As String
         Set C = CreateObject("ADODB.Connection")
         Set R = CreateObject("ADODB.Recordset")
         D = Date - 30
       
         R.CursorLocation = 3
         StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb"
         C.Open StrCnn
         strsql = " DELETE * FROM REPORT1  where  S_STIME  <  #" & Format(D) & "#"
         R.Open strsql, C, 1

     

     

     

    能否請各位大大指點一下!!以日期為檔案名稱的自動備份該如何做??

    因為我沒做過自動備份程序...請問該如何攥寫較佳呢??

    2008年8月7日 上午 09:37