Terang aja record pertama gak mau kehapus, kan counternya dimuali dari 1,
coba deh ganti seperti dibawah ini :

Adodc1.RecordSource = "select * from FI_DATA_BANTU"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
    Adodc1.Recordset.Delete
    Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.Update
Adodc1.Refresh

Anda pake Adodc ya, kenapa gak pake oledb aja, kan lebih enak...... kl mau 
delete semua
tinggal "delete from FI_DATA_BANTU" trus di execute deh, selesai....




--------------------------------------------------------------------------------
Best Regards, 



Rony Wijaya, S.Kom 
0856 9310 7292 

IT DEVELOPER
PT. KOKOH INTI AREBAMA
Gedung Graha Atrium Lt.9 Suit 902
Jl. Senen Raya No. 135 Jakarta 10410
Telp. (021) 350 6227 Fax. (021) 3501767

  ----- Original Message ----- 
  From: matrixsoke waluyooke 
  To: [email protected] 
  Sent: Tuesday, February 20, 2007 2:53 PM
  Subject: Re: [Programmer-VB] SUM of Record



  Sudah jadi di tampung di listview lalu data lama dihapus, cuma ada sedikit 
masalah dalam menghapus record record pertama kadang  tertinggal dua rekord 
tidak mau dihapus, apa mungkin kode_brg sama...
  kadang mau kadang nda...?
  Perintahnya ini
  Adodc1.RecordSource = "select * from FI_DATA_BANTU"
  Adodc1.Refresh
  Adodc1.Recordset.MoveFirst
  For i = 1 To Adodc1.Recordset.RecordCount
      Adodc1.Recordset.Delete
      Adodc1.Recordset.MoveNext
  Next i
  Adodc1.Recordset.Update
  Adodc1.Refresh

  kalau dalam Foxpro pake Zap bisa didelete semua langsung dalam VB apa ya 
perintahnya, biar tidak satu-satu.

  thanks



  Rony Wijaya <[EMAIL PROTECTED]> wrote:
    Berarti disini anda ingin mengupdate data ya?
    Kl memang benar, anda query dulu data anda dengan SUM td, trus anda tampung 
datanya.
    Hapus data lama dan insert dengan data baru

----------------------------------------------------------------------------
    Best Regards, 


    Rony Wijaya, S.Kom 
    0856 9310 7292 

    IT DEVELOPER
    PT. KOKOH INTI AREBAMA
    Gedung Graha Atrium Lt.9 Suit 902
    Jl. Senen Raya No. 135 Jakarta 10410
    Telp. (021) 350 6227 Fax. (021) 3501767
      ----- Original Message ----- 
      From: matrixsoke waluyooke 
      To: [email protected] 
      Sent: Tuesday, February 20, 2007 1:24 PM
      Subject: Re: [Programmer-VB] SUM of Record


      pAKE cara ini jadi tapi yang dimaksud data aslinya langsung dirubah biar 
tidak ada rekord ganda, begitu...

      Rony Wijaya <[EMAIL PROTECTED]> wrote: 
        caranya nge sum :

        select kode_brg, nama_brg, sum(jml) as jml
        from nama_table
        group by kode_brg, nama_brg

        semoga bisa membantu

------------------------------------------------------------------------
        Best Regards, 


        Rony Wijaya, S.Kom 
        0856 9310 7292 

        IT DEVELOPER
        PT. KOKOH INTI AREBAMA
        Gedung Graha Atrium Lt.9 Suit 902
        Jl. Senen Raya No. 135 Jakarta 10410
        Telp. (021) 350 6227 Fax. (021) 3501767
          ----- Original Message ----- 
          From: matrixsoke waluyooke 
          To: [email protected] 
          Sent: Tuesday, February 20, 2007 11:24 AM
          Subject: [Programmer-VB] SUM of Record


          Aku punya data Koneksi Adodc1 dengan Field sbb:
          kode_brg   Nama_brg  Jml
          01             aaa            10
          01             aaa              5
          01             aaa              5
          02             bbb              7
          02             bbb              3
          02             bbb              2
          03             ccc              3
          03             ccc              3
          di inginkan menjadi record yang double langsung di hapus
          01             aaa            20
          02             bbb            12
          03             ccc              6
          memakai perintah sum caranya gimana ya..?

          Send instant messages to your online friends 
http://uk.messenger.yahoo.com 


      Send instant messages to your online friends 
http://uk.messenger.yahoo.com 


  Send instant messages to your online friends http://uk.messenger.yahoo.com 

   

Kirim email ke