Saya punya teman di milis yang jago bikin access + mysql, tapi karena tipenya memang pekerja keras dan suka penasaran, gak kalah ama tenaga programmer di kantor-kantor lain .... :)
Ada juga teman di jakarta, gigih benar buat nyobain yang baru dari access web, dasarnya juga otodidak praktis, gak takut salah, kalau salah tanya lagi, buat lagi, kepentok, tanya lagi, cari lagi, coba lagi ... sekarang sudah jadi expert pemberi solusi di milis ini.
Contoh yang lain masih banyak, mas Har. Tengok temen2 di milis ini deh. Kapan2 ikut kopdar di Jakarta, ketemu beragam aneka latar belakang member milis ini yang tidak semuanya adalah jebolan ICT akademik:)
aksan kurdin
--- In belajar-access@yahoogroups.com, hari yanto <har_i20002000@...> wrote:
>
> Saya sendiri hanya copy paste.. He... He... Maklum awalnya hanya coba-coba. Dan, saya bukan alumni IT.
> Â
> Tapi penjelasannya bisa dilihat disini:
> Â
> http://forums.mysql.com/read.php?65,59225,59225
> Â
> Hariyanto (Surabaya)
>
>
> --- On Thu, 25/11/10, sudarsono <jkssbma@...> wrote:
>
>
> From: sudarsono <jkssbma@...>
> Subject: [belajar-access] Re: MS Acess dengan Database Mysql ???
> To: belajar-access@yahoogroups.com
> Date: Thursday, 25 November, 2010, 3:39 PM
>
>
> Â
>
>
>
> cuplikan :
> strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" _
> >>>>> >> & serverName & ";" & _
> >>>>> >> "UID=" & UserName & ";PWD=" & userPass & ";OPTION=16426"
>
> untuk koneksi ke MySQL Service ?
> option --> menunjukkan apa (fungsinya apa ? )
>
> trim's
> '========
>
> '=========
> --- In belajar-access@yahoogroups.com, harry lioe <harry_lioe@> wrote:
> >
> > oh begitu ya pak hariyanto, saya mengerti.. thx atas petunjuknya..
> >
> > --- On Thu, 11/25/10, hari yanto <har_i20002000@> wrote:
> >
> > From: hari yanto <har_i20002000@>
> > Subject: Re: [belajar-access] MS Acess dengan Database Mysql ???
> > To: belajar-access@yahoogroups.com
> > Date: Thursday, November 25, 2010, 12:02 AM
> >
> >
> >
> >
> >
> >
> >
> > ÂÂ
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > Menurut saya kalau sudah link tidak perlu membuat script yang panjang.
> > ÂÂ
> > Cuma sepengalaman saya, model link agak lambat. Karena harus membaca semua data. Tidak seperti unbond yang hanya membaca data ketika dibutuhkan.
> > ÂÂ
> > ÂÂ
> > Hariyanto (Surabaya)
> >
> > --- On Thu, 25/11/10, harry lioe <harry_lioe@> wrote:
> >
> >
> > From: harry lioe <harry_lioe@>
> > Subject: Re: [belajar-access] MS Acess dengan Database Mysql ??? [1 Attachment]
> > To: belajar-access@yahoogroups.com
> > Date: Thursday, 25 November, 2010, 2:25 PM
> >
> >
> > ÂÂ
> >
> >
> >
> >
> >
> > mau tanya senior" sekalian.. di file attachment, ada penjelasan untuk koneksi dengan mysql, apa dengan metode tsb. kita tidak perlu untuk membuat script untuk koneksi dengan mysql ?? karen saya sudah coba, itu spt split database pada access, setelah saya coba pd form dan di refresh, tnyata tabel yg sudah di link juga terupdate.. tanpa perlua kita memakai script koneksi lagi..
> > tapi saya hanya mencoba via localhost.
> >
> > harry
> >
> > --- On Wed, 11/24/10, Ahmad Qomaruddin <ud13en@> wrote:
> >
> >
> > From: Ahmad Qomaruddin <ud13en@>
> > Subject: Re: [belajar-access] MS Acess dengan Database Mysql ???
> > To: belajar-access@yahoogroups.com
> > Date: Wednesday, November 24, 2010, 10:26 PM
> >
> >
> > ÂÂ
> >
> > contoh scripnya gimana pak?
> > Untuk update ke mysql.. dan juga sebaliknya..
> > Terima kasih
> >
> > On 11/24/10, hari yanto <har_i20002000@> wrote:
> > > --- On Wed, 24/11/10, Ahmad Qomaruddin <ud13en@> wrote:
> > >
> > >
> > > From: Ahmad Qomaruddin <ud13en@>
> > > Subject: Re: [belajar-access] MS Acess dengan Database Mysql ???
> > > To: belajar-access@yahoogroups.com
> > > Date: Wednesday, 24 November, 2010, 10:45 AM
> > >
> > >
> > >
> > >
> > >
> > >
> > > Biar saya coba dulu pak, skalian mohon penjelasan
> > >
> > > 1. ''Semua user
> > > bekerja di Tabelnya sendiri-sendiri
> > > (berfungsi sebagai data temporer),
> > > kalau data sudah OK masuk ke basis
> > > data.'' Artinya perubahan hanya terjadi di lokal komp saja ya? Apabila
> > > database dibuka oleh komp lain(komp B) maka
> > perubahan yg dilakukan
> > > komp A tidak terakses oleh komp B.
> > >
> > >>> Data temporer menjadi pegangan. Misalnya, Nama, alamat dan ID kita
> > >>> >>ambil dari Mysql > masukkan ke data temporer Ms Access. Waktu update
> > >>> >>yang diupdate basis data di MySql menggunakan cantolan ID. Terus untuk
> > >>> >>menayangkannya kita ambil lagi data itu ke Ms Access. Proses itu
> > >>> terjadi >>dalam hitungan 0, 0 ... detik. Sehingga kalau Komp lain (B)
> > >>> melihat data, >>akan ketahuan perubahan itu.
> > >>>Ini mirip prinsip yang ada di aplikasi web....
> > >>> Mudah-mudahan ini juga bisa menjawab pertanyaan ke-2.
> > >
> > >>> Hariyanto (Surabaya)
> > >
> > > 2. Kalo pakai cara diatas update database mysql-nya gimana?(scriptnya)
> > >
> > > Terima kasih, Jazakallaha Khoiran...
> > >
> > > On 11/23/10, hari yanto <har_i20002000@> wrote:
> > >> Audzubillah himinasyaitonirrajim Bismillahirrahmanirrahiim ....,
> > >>
> > >> Mohon maaf sebelumnya. Saya lupa memberi penjelasan lanjutan. Konsep saya
> > >> begini. Semua user bekerja di Tabelnya sendiri-sendiri (berfungsi sebagai
> > >> data temporer), kalau data sudah OK masuk ke basis data. Atau sekedar
> > >> melihat data.
> > >>
> > >> Makanya saya buat nama TABEL_LEGES.  TABEL_LEGES saya definisikan di
> > >> Module
> > >> begini:
> > >> Function TABEL_LEGES()
> > >>    TABEL_LEGES = "BU_DATA_AS_" & KOM
> > >> End Function
> > >>
> > >> Sedangkan KOMnya:
> > >>
> > >> Private Const MAX_COMPUTERNAME As Long = 15
> > >> Private Declare Function GetComputerName Lib "kernel32" _
> > >>   Alias "GetComputerNameA" _
> > >>  (ByVal lpBuffer As String,
> > _
> > >>   nSize As Long) As Long
> > >> Private Function TrimNull(item As String)
> > >>  'return string before the terminating null
> > >>   Dim pos As Integer
> > >>
> > >>   pos = InStr(item, Chr$(0))
> > >>
> > >>   If pos Then
> > >>      TrimNull = Left$(item, pos - 1)
> > >>   Else
> > >>      TrimNull = item
> > >>   End If
> > >>
> > >> End Function
> > >> Function KOM()
> > >> Dim tas As String
> > >>
> > >>  'pre-load the text boxes with
> > >>  'the local computer name for testing
> > >>   tas = Space$(MAX_COMPUTERNAME + 1)
> > >>   Call GetComputerName(tas, Len(tas))
> > >>
> > >>    KOM = TrimNull(tas)
> > >> End Function
> > >>
> > >>
> > Silahkan di edit sesuai kebutuhan.
> > >>
> > >> Kalau misalnya komputer A, memakai form1, maka recordsourcenya TABEL_LEGES
> > >> (tabel dia sendiri, bukan milik komputer lain).
> > >>
> > >> Kalau cuma ingin create tabel berdiri sendiri, bisa menggunakan:
> > >>
> > >> conn.Execute "DROP TABLE IF EXISTS CONTOH";
> > >>
> > >> Maka akan tercipta nama tabel CONTOH. Sedangkan kalau memakai TABEL_LEGES,
> > >> akan tercipta tabel BU_DATA_AS_" & KOM (nama komputernya).
> > >>
> > >> Semoga ini bisa membantu...
> > >>
> > >> Hariyanto (Surabaya)
> > >>
> > >>
> > >> --- On Tue, 23/11/10, Ahmad Qomaruddin <ud13en@> wrote:
> > >>
> > >>
> > >> From: Ahmad Qomaruddin <ud13en@>
> > >> Subject: Re: [belajar-access] MS Acess dengan Database Mysql ???
> > >> To: belajar-access@yahoogroups.com
> > >> Date: Tuesday, 23 November, 2010, 12:31 PM
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >> Maaf, sudah bisa... kayaknya ada script yang kurang.
> > >>
> > >> Sekarang di script buat tabel, ada error di :
> > >>
> > >> conn.Execute "DROP TABLE IF EXISTS " & TABEL_LEGES &
> > >> ";"--->berwarna kuning
> > >> conn.Execute sql
> > >>
> > >> On 11/23/10, Ahmad Qomaruddin <ud13en@> wrote:
> > >>> Nyoba baru sampai disini, sudah ga jalan ...
> > >>>
> > >>>>> Prosedurnya:
> > >>>>> >> koneksi tanpa menyebut nama database: scriptnya begini:
> > >>>>> >>
> > >>>>> >> 'ini untuk untuk berhubungan dengan MySql
> > >>>>> >> Dim conb As New
> > ADODB.Connection
> > >>>>> >> Public Function conbToDB(serverName As String, _
> > >>>>> >> UserName As String, userPass As String, _
> > >>>>> >> dbPath As String)
> > >>>>> >> Dim strCon As String
> > >>>>> >> On Error GoTo errHandle
> > >>>>> >>
> > >>>>> >> strCon = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" _
> > >>>>> >> & serverName & ";" & _
> > >>>>> >> "UID=" & UserName & ";PWD=" & userPass & ";OPTION=16426"
> > >>>>> >> Set conb = New ADODB.Connection
> > >>>>> >> conb.Open strCon
> > >>>>> >> Exit Function
> > >>>>> >> errHandle:
> > >>>>> >> MsgBox "SERVER SEDANG TIDAK AKTIF", , "NON AKTIF"
> > >>>>> >>
> > conb.Close
> > >>>>> >> Set conb = Nothing
> > >>>>> >> End Function
> > >>>>> >>
> > >>>>> >> 'Terus lanjutkan dengan dengan ini:
> > >>>>> >>
> > >>>>> >> Function KONEKSIS()
> > >>>>> >> conbToDB "isi hostname/localhost/ip", "isi dengan username", "isi
> > >>>>> >> dengan
> > >>>>> >> password", 3306
> > >>>>> >> End Function
> > >>>>> >>
> > >>>>> >> 'Lalu kita jalankan fungsi itu dengan memanggilnya, misalnya:
> > >>>>> >>
> > >>>>> >> Private Sub Command0_Click()
> > >>>>> >> KONEKSIS
> > >>>>> >> If conb.State <> 0 Then
> > >>>>> >> conb.Execute "create database IF Not EXISTS
> > conto_rek"
> > >>>>> >> MsgBox "sukses membuat database dengan nama conto_rek di
> > >>>>> >> MySql"
> > >>>>> >> Else
> > >>>>> >> MsgBox "gagal membuat database di MySql"
> > >>>>> >> End If
> > >>>>> >>
> > >>>>> >> conb.Close
> > >>>>> >> Set conb = Nothing
> > >>>>> >> End Sub
> > >>>>> >>
> > >>>
> > >>> Muncul debug "Object Required" .....
> > >>>
> > >>> If conb.State <> 0 Then --->berwarna kuning.
> > >>>
> > >>
> > >> --
> > >> Ahmad Qomaruddin
> > >> Sulang Rembang Jawa Tengah Indonesia
> > >> email : ud13en@
> > >> blog :
> > ud13en.blogspot.com
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >
> > > --
> > > Ahmad Qomaruddin
> > > Sulang Rembang Jawa Tengah Indonesia
> > > email : ud13en@
> > > blog : ud13en.blogspot.com
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
> > --
> > Ahmad Qomaruddin
> > Sulang Rembang Jawa Tengah Indonesia
> > email : ud13en@
> > blog : ud13en.blogspot.com
> >
>
------------------------------------
SPAM IS PROHIBITEDYahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)
<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com
<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
No comments:
Post a Comment