waduh masih error ya... masih belum sempet buka file nih... kira-kira yang bikin error bagian mana ? Jangan-jangan yang baris RS.open blablabla
Kid. 2012/12/19 Heru Safrudin <[email protected]> > ** > > > Dear Mr.Kid > > Karena putus asa itu dosa, terpaksa saya kuatkan hati dan beranikan diri > untuk terus bertanya. > Instruksi Mr. sudah saya laksanakan tapi belum berjalan seperti yg > diharapkan > Apalagi yang masih salah ? file terlampir > > Semoga Allah SWT memberi petunjuk dan pertolongan pada orang yg memberi > pertolongan > وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ > > > Pada 19 Desember 2012 12:35, Mr. Kid <[email protected]> menulis: > > ** >> >> >> Maaf belum sempat lihat langsung dalam file. >> >> Pokok permasalahannya adalah bagaimana cara Anda menyusun query. >> Setiap field yang nilai blank di worksheet : >> 1. harus jadi 0 ketika dimasukkan ke field db bertipe numerik >> 2. boleh tetap nullstring '' jika field db bertipe text (string) >> >> Coba pada blok kondisi dalam for each teks1 blabla >> diubah jadi : >> select case teks1.column >> case 4,5 'tipe datetime >> teks1="#" & format$(teks1,"YYYY-MM-DD") & "#" >> case 3,11 'tipe string >> teks1="'" & teks1 & "'" >> case else 'numerik' >> teks1=clng(0 & teks1) >> end select >> teks=teks & "," & teks1 >> >> kemudian bagian replace teks yag tadinya berbunyi : >> teks=replace( blabla ) >> diganti menjadi : >> teks=mid$(teks,2) >> >> Wassalam, >> Kid. >> >> >> >>
