(已解決)無法用RS.DELETE刪除重複資料?

yangdai

想要刪除ACCESS裡重複的資料
請問  $rs.delete  為何不能WORK?



$conn = ObjCreate("ADODB.Connection")
$conn.Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=FCT_DB.mdb")
$RS =ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $conn
$RS2 =ObjCreate("ADODB.Recordset")

$sql="select *  from  twtx where left(日期,7)='2020/07'   order by 日期,時間"
$RS.Open ($sql)

$d1= "d1"
$t1= "t1"
while  not  $rs.eof  and  not  $rs.bof
         $d= $RS.Fields("日期").Value
         $t=  $RS.Fields("時間").Value
         if $d=$d1  and $t=$t1 Then                 
                 ;  ?????????????? RS.DELETE 出錯
                      $rs.delete
        endif

        $d1=$d
        $t1=$t
        $rs.movenext
WEnd

$rs.close

floor6ggg

试一下：udf中的   _accessDeleteRecord

或者：  $rs.delete()，加上（）

kk_lee69

因為日期欄位問題吧

印象中 ACCESS 日期格式 很難處理

你可以測試 一般的文字 看看 可不可以刪除

yangdai

解決了，加上
#RequireAdmin

用管理者權限執行

謝謝大家