--- On Mon, 11/4/11, Cecep W <cepwahyu@gmail.com> wrote: From: Cecep W <cepwahyu@gmail.com> Subject: [belajar-access] BE MySQL FE Access To: belajar-access@yahoogroups.com Date: Monday, 11 April, 2011, 11:50 AM
Dear para pakar access,
saat ini sy sedang mencoba untuk membut BE dengan MySQL dan sudah behasil connect melalui ODBC di localhost. Ada beberapa hal yg ingin saya tanyakan kepada warga milis : 1. Apakah betul MySQL memiliki kapasitas lebih besar? Dari pengalaman saya, memang benar.. 2. Apakah betul kalo BE-nya pake MySQL bisa lebih cepat dibanding kalo menggunakan BE access ? Benar. Saya pernah mencoba dengan metode insert 600 data. - Kedua jenis database saya taruh di server.
- Koneksi pakai ODBC (Ms Acces >> c:\data|dst... , MySql >> IP localhost)
- Hasilnya lebih cepat pakai database MySql. Begitu pula dengan metode-metode lainnya..
3. Saya memakai MySQL hanya untuk tabel-nya saja dan untuk pengolahan data dll saya menggunakan full access karena sy lebih faham access daripada MySQL. apakah cara ini sudah tepat? artinya tidak akan ada masalah dikemudian hari. Itu sudah tepat. Database tak ubahnya seperti gudang data. Tidak bergerak kalau tidak kita perintahkan. Itu prinsip dasar database. 4. Bagaiman caranya export table2 yg sudah sy buat di access ke MySQL?
- Ada banyak software free tentang conversi data dari Ms Acces ke MySql
- Atau kita bisa membuat sendiri seperti ini misalnya:
- buat tabel di MySql dengan field-field sama. Tentu harus disesuaikan type-type datanya. misal Ms Acces text > MySql varchar; number > int; dlsb
- Pembuatan bisa menggunakan MySql Command line. Atau VBA. Contohnya:
Dim sql As String KONEKSI If conn.State <> 0 Then sql = "CREATE TABLE CONTOH (ID int(30) NULL, PRIMARY KEY (ID)," _ & " NRBU int(10) NULL NULL, ID_SUBBID_BU int(10) NULL NULL," _ & " GRADE int(10) NULL NULL, TN_PROP int(10) NULL NULL," _ & " TN_JN int(10) NULL NULL, TN_NOREG int(10) NULL NULL," _ & " ASOSIASI Varchar(50) NULL NULL, ID_AS_URUT int(10) NULL NULL," _ & " LPJK Varchar(10) NULL NULL);" conn.Execute "DROP TABLE IF EXISTS CONTOH;" conn.Execute sql End If conn.Close Set conn = Nothing - Setelah tabel target di MySql terbentuk, jalankan proses insert into:
Dim lih As Recordset KONEKSI If conn.State <> 0 Then set lih = currentdb.openrecordset("tabelacces") if not lih.eof then do while not lih.eof conn.Execute "insert into tabelMySql (field0, field1, field2" _ & " ,field3,field4,field5)" _ & " Values ('" & pros1 & "','" & lih.fields(1) _ & "'," & lih.fields(2) & ",'" & lih.fields(3) & "','" & lih.fields(4) & "'," _ & lih.fields(5) & ")" lih.MoveNext loop end if lih.Close Set lih = Nothing End If conn.Close Set conn = Nothing Semoga bisa membantu dan memberi semangat.... hariyanto (Surabaya) maaf kalo pertanyaan saya masih dasar sekali karena sy baru akan belajar menggunakan BE MySQL.
Best Regards Cecep Wahyudin
|
No comments:
Post a Comment