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 <[email protected]>
>
>
> 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/
>
>
