Bls: [belajar-access] Re: MS Acess dengan Database Mysql ??? [1 Attachment]

[Attachment(s) from teuku alwi included below]

kebetulan saya punya silakan dload. --- Pada Rab, 24/11/10, sudarsono <jkssbma@yahoo.com> menulis: Dari: sudarsono <jkssbma@yahoo.com> Judul: [belajar-access] Re: MS Acess dengan Database Mysql ??? Kepada: belajar-access@yahoogroups.com Tanggal: Rabu, 24 November, 2010, 11:31 AM   kalau boleh di kirimkan file mdb/accdb dan database MySQL nya , biar yang lain bisa belajar. Saya juga menngunakan MySQL untuk belajar PHP, belum menggunakan Access. Driver MySQL Connector 5.1 di download dimana ? trim's --- In belajar-access@yahoogroups.com, Ahmad Qomaruddin <ud13en@...> wrote: > > 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. > > 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 >

Attachment(s) from teuku alwi

1 of 1 File(s)

mysql-connector-odbc-5.1.5-win32.msi

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___