Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 7 de janeiro de 2010

Re: ]] XL-mania [[ Link excel ke MySQL

 

ingin dengan ADO, references : MS data object 2.6 ke atas
ingin dengan ODBC, asumsinya driver ODBC yang dimiliki : MySQL Connector/ODBC 5.1

MySQL:
server : 192.168.1.5
db : DBmySQL
user : usersql
password : passwordmysql

public sub mysql()
'deklarasi variabel
dim conDB as adodb.connection
dim sCon as string
dim rs as adodb.recordset
dim sql as string

'set object
set condb = new adodb.connection
set rs = new adodb.recordset

on error goto err_handler

scon = "Driver={MySQL ODBC 5.1 Driver}; " & _
           "Server=192.168.1.5; " & _
           "Database=DBmySQL; " & _
           "User=usersql; " & _
           "Password=passwordmysql; " & _
           "Option=3;"

condb.open scon

sql = "select FieldmySQL1,FieldmySQL2,FieldmySQL3 from tblmySQL"
rs.open sql, adopendynamic, adlockoptimistic

if rs.count >0 then
       'lakukan apa yang diinginkan terhadap recordset disini

end if

Err_Handler:
on error resume next
rs.close
set rs=nothing
condb.close
set condb=nothing
err.clear
end sub

sifat dari koneksi ini adalah pasif. setiap kali ada update harus di jalankan ulang, karena dengan ado, tapi bisa melakukan semua sql DML disini.

Coba dengan fitur Excel -> get external data
maka akan dinamis dalam ambil data saja.


Kid

2010/1/7 chusk soepono <csoepono@yahoo.com>
 

Dear Excel Expert,
Ada yang punya pengalaman me-link excel ke data base MySQL menggunakan ODBC /ADO?, Mohon dishare trick macro nya dong?

Misalnya diinginkan membuat sheet di excel ngelink dengan:
database    : DBmySQL
Tabel          : tblmySQL
Field            :FieldmySQL1,FieldmySQL2,FieldmySQL3

Ingin ditulis ke worksheet :
Sheet    :sheet1
Kolom : KolomA,KolomB,KolomC

catatan:
Jumlah record sifatnya dinamis -->bila ditambah/didelete di MySQL bisa langsung update di Excelnya.
MySQL servernya ada dikomputer lain dengan IP : 192.168.1.5
IP Excel nya     : 192.168.1.6
user mySQL    : usersql
Password        : passwordmysql

Mohon dibantu step-stepnya ya ...

Terima kasih,
Adi

Lebih aman saat online. Upgrade ke Internet Explorer 8 baru dan lebih cepat yang dioptimalkan untuk Yahoo! agar Anda merasa lebih aman. Gratis. Dapatkan IE8 di sini!
http://downloads.yahoo.com/id/internetexplorer/


__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Resolusi 2010 XL-mania: terbitkan buku lagi... hehehe...          |  
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog