Hm.. gitu ya Mr. Kirain saya yg salah sintaknya, Semoga saya bisa menemukan cara lainnya Terima kasih ilmunya, semoga bermanfaat
Wassalamu 'alaikum wr. wb., Heru Safrudin Pada 2015 10 24 16:09, "[email protected] [belajar-excel]" < [email protected]> menulis: > > > Hai Heru, > > Koneksi ke Ms Access adalah dengan provider jet oledb atau ace oledb atau > dengan driver odbc untul Ms Access. Provider oledb tidak memiliki fungsi > replace. Itu sebabnya koneksi dengan provider oledb yang query-nya berisi > fungsi replace akan error, karena tidak ada fungsi tersebut dalam provider > yg digunakan. > > Ms Access memanfaatkan fungsi replace milik VBA (VBA for Access). Jadi, di > dalam Ms Access sendiri, fungsi replace bisa digunakan dalam query. > > Dengan query berparameter yang dibuat dan disimpan dalam Ms Access yang > berisi fungsi replace pun juga tidak memungkinkan digunakan dalam koneksi > dari luar. > (Tapi untuk yang satu ini, moga2 kliru. Moga2 abang2 yang master Access > bisa membantu agar dugaan saya kliru.) > > Jika di dalam Ms Access juga tidak dapat menggunakan fungsi replace milik > VBA, maka bisa dibuatkan UDF dalam VBA nya berupa proses replace yang > memanfaatkan fungsi replace milik VBA. UDF ini yang digunakan dalam query > di dalam Ms Access. > > Jadi ada beberapa opsi, yaitu : > 1. Ganti fungsi replace dengan gabungan fungsi-fungsi lain, walau query > nya bisa jadi panjang tidak karuan. > 2. Jika datatype yang diproses adalah numerik, coba susun ekspresi berupa > operasi matematis untuk me-replace. > 3. Andai dugaan saya tentang query berisi replace dengan parameter adalah > kliru, manfaatkan query berparameter. > 4. Membuat UDF yang berisi fungsi replace di Ms Access, lalu buat query > dan simpan di Ms Access, kemudian koneksi ke query tersebut. Untuk hal ini, > akan dibuat query dalam Ms Access yang berparameter agar dinamis atau yang > statis (tanpa parameter) bisa dimanfaatkan. > 5. Daripada meng-update nilai item pokok, mungkin lebih baik membahkan > kolom flag status terpakai atau tidak di tabel dalam Ms Access. Jadi query > update untuk ubah flag disertai query insert into item baru yang > dimaksudkan sebagai item yang akan aktif dipakai. > > Wassalamu'alaikum wr wb > Kid > > Sent from my smart enough phone > > On Oct 24, 2015, at 08:23, Heru Safrudin [email protected] > [belajar-excel] <[email protected]> wrote: > > > > Kalo pake REPLACE Tetap error ; > ' Undefined function 'REPLACE' in expression' > > Padahal jika pake cara lain dibawah ini berhasil > CON.Execute "update STOCK SET JOB=" & ganti & " & mid(JOB," & Len(ganti) + > 1 & ") WHERE JOB LIKE '%3333%'" > > Mohon penjelasannya > > Terima kasih > Wassalamu 'alaikum wr. wb., > > Heru Safrudin > Pada 2015 10 23 15:12, "'Mr. Kid' [email protected] [belajar-excel]" < > [email protected]> menulis: > >> >> >> Coba alamat lengkap databasenya ditulis dengan baik. >> Bila object koneksi adalah mengkoneksi database tersebut, maka bisa tidak >> perlu menyebut nama databasenya. >> >> >> >> 2015-10-23 14:30 GMT+07:00 Heru Safrudin [email protected] >> [belajar-excel] <[email protected]>: >> >>> >>> >>> Terima kasih atas ilmu yg sangat bermanfaat dari Mr... >>> Sekarang bagaimana cara mengubah sebagian teks dalam database sbb: >>> >>> CON.Execute "update `coba.MDB`.STOCK SET JOB=REPLACE(JOB,'2222','3333') >>> WHERE JOB='11112222'" >>> >>> Maaf contoh diatas kok tidak bisa jalan >>> Mohon pencerahannya >>> >>> Terima kasih >>> >>> Wassalamu 'alaikum wr. wb., >>> >>> Heru Safrudin >>> >>> >> >
