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

Mysql conectornya coba download dari link diatas pak ato tanya mbah google aja.
Maaf bisa kasih mdbnya karena buka email pake hape g bisa
upload,mungkin ada temen2 yang lain ya punya file2nya.
Terima kasih

On 11/24/10, sudarsono <jkssbma@yahoo.com> wrote:
> 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
>>
>
>
>

--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia
email : ud13en@gmail.com
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/