ADO yahh??
Connectionnya di setting manual melalui vbe menu, lalu ke tools, plih references
centang referensi library yang diinginkan
misalnya untuk membuat file database lansung dari modul, saya gunakan
Microsoft ActiveX Data Objects 2.7 Library dan Microsoft ADO Ext. 2.7
for DLL and Security (atau versi yang lebih tinggi, disesuaikan dengan
kebutuhan dan aplikasi yg dipakai)
Dim ADOconn As adodb.Connection
Sub BuatDbase()
Dim sADOXcat As ADOX.catalog
Set sADOXcat = New ADOX.catalog
sADOXcat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=""" & ThisWorkbook.Path & "\NewDB.mdb"";"
Set sADOXcat = Nothing
End Sub
Sub OpenConnection()
If ADOconn Is Nothing Then
Set ADOconn = New adodb.Connection
ADOconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=""" & ThisWorkbook.Path & "\NewDB.mdb"";"
End If
End Sub
Sub BuatTabel(sSQL As String)
OpenConnection
sSQL = "CREATE TABLE tblNewData " & _
"(ctrIndex COUNTER, FName TEXT(255), DateAndTime DATETIME, " & _
"PIC TEXT(255), " & _
"Description TEXT(255), Value1 LONG)"
With ADOconn
.Execute sSQL
End With
End Sub
"jangan lupa di tutup lagi connectionnya dan set ke nothing"
Pada tanggal 24/03/09, FURQON <[email protected]> menulis:
> Pastikan Adodb.connection Librarynya sudah di load
> Tools>Refference ..
>
>
>
>
>
> ________________________________
> From: Budi Priyanto <[email protected]>
> To: [email protected]
> Sent: Friday, July 10, 2009 2:44:13 PM
> Subject: ]] XL-mania [[ buat macro pake ado
>
>
> salam hormat buat para suhu xls semua
>
> ada yang punya pengalaman dengan adodb.connection ?
>
> sy udah coba buat macro tapi kenapa adodb.connection ga dikenal ya...
>
> mohon sharing dan ilmunya
>
> Salam
>
> budi
>
>
>
>
>
>
