Selasa, 19 Februari 2013

[belajar-access] msaccess with BE mysql

 

Dear master access,

Alhamdulillah dari forum ini, backend msaccess saya akhirnya migrasi ke mysql v.5.5,

Walaupun masih menggunakan metode link table & file dsn, lumayan lah buat saya yang pemula.

 

kebanyakan yang dipakai diaplikasi kecil-kecilan saya adalah mode form & subform format datasheet

 

yg masih kendala :

1.       Ketika saya coba menggunakan adodb, tidak bisa membuat subform dengan format datasheet, mungkin para master access bisa memberikan solusinya (alternative selain menggunakan  temporary table), beberapa sumber menyatakan bahwa adodb tidak mendukung datasheet, tapi ada aplikasi FlexGrid (berbayar) yang bisa menampilkan datagrid di aplikasi access seperti datagrid pada visual basic, harapannya ada solusinya tanpa harus menambah add-on lain

2.       koneksi saya coba menjadi dsn-less, ketika mysql direstart, dari client tidak bisa konek ke database kurang lebih sekitar 5 - 10 menit baru bisa konek lagi.sampe sekarang belum ketemu, apakah penyebabnya pada menu setting ODBC refresh interval pada menu access option > advanced ? saya masih ragu untuk merubah setting ini takut master FE nya malah rusak

3.       Tidak (belum) bisa menampilkan source pada combo box menggunakan mode adodb.recordset

4.       Dari contoh yang pernah saya dapat dari forum ini juga (koneksi FE msaccess & BE Mysql, file ‘AccessMySql1.01.mdb’), command  RX = 0 untuk apa ya ?

 

Option Compare Database

 

'NamaFile : AccessMySql1.01.mdb

'Penulis  : Fadlurrahman

'Telepon  : +62-8170006164

'Lokasi   : Jatiasih, Bekasi - Indonesia

'

'Deskripsi: Penggunaan MySql sebagai alternatif untuk menyimpan

'           dan memproses data. Untuk menggunakan contoh dari -

'           saya ini, anda harus menginstal terlebih dahulu MySql

'           dan driver MySql Connector(MyODBC) di komputer anda.

'           Yang bisa dicari di http://dev.mysql.com

'=================================================================

Option Explicit

 

Dim Rx As Long

Dim CekPenambahan As Boolean

Dim xCount As Integer

 

Private Sub Form_Load()

Rx = 0    ‘ >>>>>>>>>>>>>> INI FUNGSINYA UNTUK APA YA ?

 

Text39.Locked = True

 

If Konek.State = 0 Then 'fungsi untuk mengecek apakah sudah terkoneksi atau tidak

Exit Sub

Else

 

LihatData

End If

End Sub

 

 

 

 

Rgds,

Deden

"This email message and information, including any attachment is intended solely for the use of the recipient(s) and are confidential and may also be privileged. If the reader of this message is not the intended recipient, please delete this email and all information it contains including its attachment from your system and immediately notify the sender. Dissemination, distribution, copying, or other use of this email or its attachment is strictly prohibited. Any unintended use of this email shall be your responsibility and shall be subject to any jurisdiction."

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar