contoh scripnya gimana pak?
Untuk update ke mysql.. dan juga sebaliknya..
Terima kasih
On 11/24/10, hari yanto <
har_i20002000@yahoo.com> wrote:
> --- On Wed, 24/11/10, Ahmad Qomaruddin <
ud13en@gmail.com> wrote:
>
>
> From: Ahmad Qomaruddin <
ud13en@gmail.com>
> 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@yahoo.com> 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@gmail.com> wrote:
>>
>>
>> From: Ahmad Qomaruddin <
ud13en@gmail.com>
>> 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@gmail.com> 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@gmail.com>> blog : ud13en.blogspot.com
>>
>>
>>
>>
>>
>>
>>
>>
>
> --
> Ahmad Qomaruddin
> Sulang Rembang Jawa Tengah Indonesia
> email :
ud13en@gmail.com> blog : ud13en.blogspot.com
>
>
>
>
>
>
>
>
--
Ahmad Qomaruddin
Sulang Rembang Jawa Tengah Indonesia
email :
ud13en@gmail.comblog : ud13en.blogspot.com
No comments:
Post a Comment