ikut nimbrung nih: Set Rs = New ADODB.Recordset StrSql = "SELECT jurnaldetil.kode3, Sum(jurnaldetil.db) AS SumOfdb, Sum(jurnaldetil.cr) AS SumOfcr FROM jurnaldetil GROUP BY jurnaldetil.kode3"
Rs.Open StrSql, YourConnection, adOpenDynamic, adLockOptimistic, adCmdText Rs.Movefirst Do While Not Rs.EOF StrSql1 = "UPDATE acc3 SET acc3.dbpos = "& Rs.Fields!SumOfdb &", acc3.crpos = "& Rs.Fields!SumOfcr &" WHERE (((acc3.kode3)='"& Rs.Fields!Kode3 &"'))" YourConnection.Execute StrSql1 Rs.MoveNext loop mudah2an mbantu. cahyo --- In [email protected], Maya Agnelia <[EMAIL PROTECTED]> wrote: > > mas toni yg ganteng jgn bingung gitu atuh, nanti kalo > bingng gmn mau tlng maya ;) > sintak yg mas toni kasih itu udah maya sesuaikan > dengan field yg ada ditabel maya. tapi ya gitu deh > masih juga errornya binggung maya. > coba deh mas toni test bisa ga di accessnya > tulungin maya donk mas toni dan mas-mas yg lain > atas bantuanya dan yg telah ngasih maya ucapkan > terimakasih banyak. semoga ilmunya semakin beratambah, > biar bisa bantu maya lagi he,...he,,. :) > > thanks > > salam > maya agnelia > > --- Toni Rahayu <[EMAIL PROTECTED]> wrote: > > > > > > > Wuit........ Aa jadi bingung neng maya ....... > > Pasti error neng... sebab ternyata di table acc3 > > kagak ada field debetnya !!!, > > trus data debet pada table jurnaldetail yang udah > > dijumlahin itu mau di masukin > > ke field yang mana pada table acc3 nya ??? > > > > Salam manisnya udah Aa terima neng maya > > > > > > > > > > > > Maya Agnelia <[EMAIL PROTECTED]> on 07/06/2006 > > 09:09:59 AM > > > > Please respond to [email protected] > > > > To: [email protected] > > cc: (bcc: Toni Rahayu/IT/domino_srv) > > > > Subject: Re: [indoprog-vb] Cara memindahakan data > > dari tabel ke tabel lain > > > > > > > > tuk mas toni yg baik, > > makasih ya atas replynya tapi msh ga ngatasi masalah > > tuh, krn kalau maya ikuti kodenya maka akan muncul > > pesan error seperti ini : > > " item cannot be found in the collection > > corresponding > > to the requested name or ordinal " > > > > nah pesan akan hilang kalo sintak pada( tabel!debet > > )nya diganti dg tabel.fields.item(2).value, tapi > > data > > yg terupdate ga pas jumlahnya karena jumlah yg > > dikredit juga masuk ke debet, dan misalnya kode 1101 > > nya jumlahnya 15,000,000 maka yg masuk cuma 10 juta > > kemana tuh yg 5 juta? > > > > ok guys yg baik, please banget tolongin maya > > ngatasin > > masalahnya update ini. > > > > dibawah ini maya kasih contoh tabel sbnrnya : > > > > tabel acc3 > > > > ---------------------------------- > > kode3 nama3 tgl saldo dbpos crpos > > --------------------------------- > > 1001 kas > > 3001 modal > > > > > > tabel jurnaldetil > > > > ---------------------- > > nobukti kode3 db cr > > ----------------------- > > 0000001 1001 50 0 > > 0000001 3001 0 50 > > > > salam manis > > > > maya > > > > --- Toni Rahayu <[EMAIL PROTECTED]> wrote: > > > > > > > > > > > Wueh saya paling gak tahan kalo dibilang ganteng, > > > makanya saya kasih, kira-kira > > > kaya gini neng maya : > > > > > > Set table = New ADODB.Recordset > > > sql = "select kode, sum(debet) from jurnaldetail > > > group by kode" > > > table.Open sql, YourConnection, adOpenDynamic, > > > adLockOptimistic, adCmdText > > > > > > table.MoveFirst > > > > > > For l = 1 To table.RecordCount > > > Set table1 = New ADODB.Recordset > > > sql1 = "update acc3 set debet = '" & > > table!debet > > > & "' where kode = '" & > > > table!kode & "'" > > > YourConnection.Execute sql1 > > > table.MoveNext > > > Next > > > > > > Lebih dan kurangnya modif sendiri ! > > > > > > > > > > > > > > > > > > > > > Maya Agnelia <[EMAIL PROTECTED]> on 07/05/2006 > > > 01:38:42 PM > > > > > > Please respond to [email protected] > > > > > > To: [email protected] > > > cc: (bcc: Toni Rahayu/IT/domino_srv) > > > > > > Subject: [indoprog-vb] Cara memindahakan data > > dari > > > tabel ke tabel lain > > > > > > > > > > > > hi guys maya baru gabung nih, tapi langsung > > > nanya boleh ya. > > > saya memakai vb6 sp6 databasenya ms. access > > > > > > bagaimana sih cara memindahkan data dari tabel > > satu > > > ke tabel lain? > > > > > > contoh: > > > ini tabel Acc3 > > > ------------------------------- > > > kode nama debet kredit > > > ------------------------------- > > > 1101 kas 0 0 > > > 1102 fix 0 0 dst > > > > > > > > > > > > ini tabel jurnaldetil > > > -------------------------------------- > > > kode keterangan debet kredit > > > -------------------------------------- > > > 1101 beli 5000 > > > 3001 jual 600 > > > 1101 beli 9000 dst > > > > > > > > > nah pertanyaanya , gimana memindahkan data yg ada > > di > > > tabel jurnal kolom debet tetapi data tsb > > dijumlahkan > > > terlebih dahulu berdasarkan > > > kodenya,lalu setelah dijumlahkan dipindahkan ke > > > tabel > > > Acc3 dikolom debet dan sesuai dengan kode yg ada > > > ditabel jurnaldetil. > > > > > > mas2 yg ganteng tolongin maya yah, kasih > > solusinya, > > > atawa kalo ada contoh kodenya maya ucapkan > > > terimakasih > > > banyak. > > > > > > regards > > > maya agnelia > > > > > > __________________________________________________ > > > Do You Yahoo!? > > > Tired of spam? Yahoo! Mail has the best spam > > > protection around > > > http://mail.yahoo.com > > > > > > > > > Untuk berhenti berlangganan kirim email kosong ke > > : > > > [EMAIL PROTECTED] > > > > > > Forum ini berkembang dengan pesat, jika anda > > > memiliki > > > dedikasi dan waktu, silahkan mengaplikasikan diri > > > menjadi moderator. > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Toni Rahayu > > > PT. Omedata Electronics > > > IT Department > > > Hunting : (62-22) 6030805 Ext 121 > > > Faxs : (62-22) 6030896 > > > Homepage : http://toni.rahayu.tripod.com > > > > > > > > > > > > > > > > > > === message truncated === > > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com > Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Forum ini berkembang dengan pesat, jika anda memiliki dedikasi dan waktu, silahkan mengaplikasikan diri menjadi moderator. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
