Bismillahirohmanirohim.... Terlampir adalah contoh lain database MySql-interface Ms Acces, yang bisa menghapus, menambah dan mengupdate database MySql (data awal berasal dari kawan kita Muzakir - Aceh). Cara penggunaan: 1. Ekstrak dulu terlampir (ada 2 file --- mdb + sql) 2. Buat data base gipustaka 3. Buat user name baru (zakirnas) dan password (lkjlkj) 4. Batasi hak akses username tersebut hanya pada select, insert, update, dan delete (user tidak bisa membuat tabel, menghapus tabel dan lain-lain selain hak itu pada database gipustaka). 5. Import file sql ke dalam database gipustaka 6. Jalankan mdb Sedangkan untuk membuat combo box dari sumber data MySql, gambarannya seperti ini. Misal: 1. kita beri nama combobox dengan awal. 2. Hilangkan dulu rowsourcenya 3. Hapus dan buat tabel temporer sebagai penampung data 4.Lakukan koneksi ke MySql 5. Gunakan sql untuk mengambil data yang diinginkan 6. Injeksikan hasil data yang diinginkan ke dalam tabel temporer 7. Letakkan tabel temporer itu sebagai source combobox awal Kira-kira scriptnya seperti ini: 'ini untuk menghapus dan membuat tabel temporer Private Sub tb1()
Dim rbs As Recordset
Dim db As Database awal.RowSource = "" Set rbs = CurrentDb.OpenRecordset("SELECT MSysObjects.Name" _
& " FROM MSysObjects WHERE MSysObjects.Type= 1 And MSysObjects.Flags = 0" _
& " AND MSysObjects.Name='" & "CARI_" & KOM & "'")
If Not rbs.EOF Then
Set db = CurrentDb
db.TableDefs.Delete "CARI_" & KOM
db.Close
Set db = Nothing
End If
rbs.Close
Set rbs = Nothing
DoCmd.RunSQL "CREATE TABLE CARI_" & KOM & " (nm Text(100));" End Sub Buat function baru yang dipanggil bila diperlukan, misal: Function isi()
Dim db As Database Dim rsp As ADODB.Recordset KONEKSI
If Kon.State <> 0 Then
Set rsp = New ADODB.Recordset
rsp.Open "SELECT nama FROM bank_data" _
& " order by" _
& " nama asc limit 0,100", Kon
If Not rsp.EOF Then
Set db = CurrentDb
Do While Not rsp.EOF
db.Execute "insert into CARI_" & KOM & " Values (" _
& rsp.Fields(0) & ")"
rsp.MoveNext
Loop
db.Close
Set db = Nothing
End If
rsp.Close
End If
Kon.Close
Set Kon = Nothing
awal.RowSource = "IKI_TH_" & KOM End Function Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya)
--- On Fri, 29/6/12, Darsono <darsono72@yahoo.com> wrote:
From: Darsono <darsono72@yahoo.com>
Subject: Re: [belajar-access] Contoh Interface Ms Access - Database MySQL
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Friday, 29 June, 2012, 9:38 AM
Bismillahirohmanirohim....
Ca Hari, saya tertarik dengan contoh terlampir,
Bagaimana caranya untuk nambah-in - tombol 1. Tambah 2. Simpan 3. Hapus dan satu lagi ComboBox untuk mencari Nama Karyawan tertentu.......
terima kasih sebelumnya. |
From: hari yanto <har_i20002000@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Thursday, June 28, 2012 9:15 PM
Subject: [belajar-access] Contoh Interface Ms Access - Database MySQL [1 Attachment]
Bismillahirohmanirohim.... Terlampir contoh Ms Access sebagai interface dengan mode koneksi data melalui LAN, yang beberapa bulan lalu saya share ke Mas Hendra. Belum semua form, saya kerjakan. Setidaknya, saya berharap ini menjadi daya dorong untuk terus berkarya. Untuk menjalankan, buka module cursor. Pada baris ke-70 sesuaikan dengan kondisi database. (Pada contoh nama database:hen, Username:hen, dan password MySql: hendra). Database asalnya adalah nwd.mdb > dikonversi ke MySql. Prinsipnya form itu blank. Tanpa nilai. Untuk mendapatkan nilai, kita harus melakukan koneksi ke database > ambil data > tutup koneksi. Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya) http://110.139.57.19
--- On Thu, 28/6/12, Heru Wibowo <heru.wibowo4456@gmail.com> wrote:
From: Heru Wibowo <heru.wibowo4456@gmail.com>
Subject: Re: [belajar-access] Re: Ms Access - MySQL
To: belajar-access@yahoogroups.com
Date: Thursday, 28 June, 2012, 8:23 AM
Betul seperti yang pak Hariyanto sampaikan...nie masi mencoba explore Ms Access dgn MySQL lebih jauh pak...maklum klient bersikukuh pengin pake kolaborasi itu...hehehe demi 'dapur' biar tambah ngebul....disambi googling lom ktemu tutorial/sample yang pas untuk case klient (furniture skala menengah).
Thank's atas supportnya.
Salam, Heru W
2012/6/27 hari yanto <har_i20002000@yahoo.com> | Bismillahirohmanirohim.... Kalau pengalaman saya, di php lebih simpel dan customized. Kita dapat membuat form atau sub form sesuai kehendak kita. Lebih-lebih kalau kita lengkapi dengan java script. Sedangkan Ms Access, saya letakkan sama dengan VB. Saya manfaatkan interfacenya. Karena komunikasi data dengan IP terasa berat -- lebih-lebih port 3306 acapkali ditutup --, saya memanfaatkan php sebagai alat komunikasi data. Bisa menggunakan web browser atau xml. Jadi ada kolaborasi antara Ms Acees-php atau Ms Acces-xml, dengan hasil komunikasi data jauh lebih cepat dibandingkan via IP atau menggunakan flash. Semoga bisa bermanfaat dan mampu memberi semangat. Hariyanto (Surabaya) http://110.139.57.19/
From: Darsono <darsono72@yahoo.com>
Subject: Re: [belajar-access] Re: Ms Access - MySQL
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Date: Tuesday, 26 June, 2012, 8:46 AM Kang Hendra dan yg lainnya,
brp bulan terakhir ini, saya mencoba php, codeigniter, joomla dan modul2nya... sebagai bahan experimen saya bikin website http://www.alumni-stmnegeri-purwokerto.org/
walhasil sampai sekarang saya blm bisa membuat SubForm semudah di MsAccess, itu hal yg paling terasa. mungkin ada pengalaman dari yg lain.
so untuk yg sedang belajar MsAccess, tetap semangat MsAccess tetep top margotop untuk beginner - midle - dan advance
Wah,,,lama mas Darsono gak nongol nih,,, :)
boleh cerita mas mencoba kelain hati tu kemana aja,,,dan gimana kesannya dengan "hati" yg lain itu ...mungkin share pengalaman mas bisa nambah wawasan kita...
Regards Hendra
hmmmm, lama ga nongol, apa kabar master2 access? kangen juga....... kembali nongol setelah mencoba "bertapa", dan mencoba kelain hati.... ujungnya..... kangen juga sama MsAccess...dan MsAccess no. 1 dari kemudahan pembuatan Aplikasinya (...pendapat saya pribadi) terus hubungannya sama kang heru --> topic Ms Access - MySql, apa? Kang heru, Saya pelaku, dan korban godokan suhu-suhu MsAccess di sini. dari ga bisa sama sekali MsAccess, berkat kesabaran beliau-beliau menjawab setiap pertanyaan saya... Alhamdulillah ..... Program yang saya bangun dengan tertatih-tatih sudah "Running Well" online di akses dari dua tepat berbeda dengan multi user (lebih dari satu) Dan boleh di kata sungat sangat minim complaint, kerjaan baru paling di saat user minta Form baru atau Report baru, dikluitk sebentar, permintaan para userpun terkabul.... banyak waktu untuk belajar, dan nunggu ORDER he..he..he.. Kang Heru, Kalau contoh di forum ini sangat banyak, dan tinggal kita yang kembangkan. Intinya, kita buat dulu versi kita, setelah menthok angakat ke forum.... case selaesai ... bikin lagi... mentok lagi ... angkat lagi ke forum. itu yg saya lakukan selama ini. karena kalau contoh komplit dan di share, selama ini blm saya temukan, di samping itu juga belum tentu sesuai dengan keinginan kita. Karena Bikin Aplikasi sangat sarat dengan SENI, kalau udah begitu akan sangat banyak variasinya... wehhhh kepanjangan .. kesimpulannya Tetap semangat, MsAccess sangat Bisa Sekali di kolaborasikan dengan MySQL --- In belajar-access@yahoogroups.com, Heru Wibowo <heru.wibowo4456@...> wrote: > > Mas Yudhi thank's sudah merekomendasikan sperti dibawah...btw klien ndak > melirik Ms SQL Server sebab server mereka sudah pake MySQL (Server MySQL > bukan hanya dipake u Kolaborasi dgn MS Access saja, tetapi aplikasi yang > laen, PHP mereka menggunakan server MySQL) > > 2012/6/25 Yudi Hantoro <youdihantoro@...> > > > ** > > > > > > Dear. Mas Heru > > > > Maaf kalau jawaban sy bikin tidak nyambung. > > Intinya sy merekomendasikan kalau access ya sebaiknya pake database ms sql > > server. > > > > Tp kalau sekedar ingin tau > > Bisa ketik di "using. Microsoft access with my sql" > > Disitu cukup banyak ulasanya . > > > > Best regards > > > > Yudi Hantoro > > On 24 Jun 2012 19:26, "Heru Wibowo" <heru.wibowo4456@...> wrote: > > > > > > > > > > -- > Salam sejahtera, > > Salam damai dan jabat erat, > Heru Wibowo >
|
-- Salam sejahtera,
Salam damai dan jabat erat, Heru Wibowo
|
|
Tidak ada komentar:
Posting Komentar