Wa'alaikumussalam Wr. Wb.
Bagian blok IF :
IF rs.recordcount>0 then
'hapus hasil yang lama
sheet1.range("a6").currentregion.offset(1).clearcontents
'simpan jumlah record dan set maksimum 900K record (xl2007 ke atas max
1M record)
dim lRec as long
if rs.recordcount>900000 then
lrec=900000
else
lrec=rs.recordcount
endif
'paste dari rs ke range data mulai A7 (tepat dibawah header) dengan
copyfromrecordset
sheet1.range("a7").copyfromrecordset rs, lrec
endif
'tutup recordset
rs.close
set rs=nothing
Wassalamu'alaikum Wr. Wb.
Kid.
2013/7/26 Rahmat Hermawan <[email protected]>
> **
>
>
> Assalamualaikum para master Be-Exceler..
>
> Langsung aja yah...
> Saya ingin membuat search engine dengan sebuah tombol di excel seperti
> "file search engine" yang dibuat oleh Miss Jan (terlampir), tapi yang jadi
> masalah bagaimana kalau sumber data nya dari mysql? mungkin dengan loop
> atau copy paste setelah dilakukan query pengambilan datanya di sql?
>
> sebagai informasi database mysql saya :
>
> database : database_ho
> table : data_ho
> field1 : no_reg
> field2 : nama_pemohon
> field3 : jenis_usaha
>
>
> dan query nya :
>
> sub tombolcari_click()
> Dim conn As ADODB.Connection
> Dim rs As ADODB.Recordset
> Dim sConn As String, sQuery As String
>
> Set conn = New ADODB.Connection
> sConn = "DRIVER={MySQL ODBC 5.2w Driver}" & _
> ";SERVER= localhost" & _
> ";database= database_ho" & _
> ";user= root" & _
> ";password=" & _
> ";Option=3"
>
> conn.Open sConn
> conn.CursorLocation = adUseClient
>
> Set rs = New ADODB.Recordset
> sQuery = "SELECT * FROM data_ho WHERE " & Range("kolom").Value & " LIKE
> '%" & Range("keyword").Value & "%'"
> rs.Open sQuery, conn, adOpenStatic, adLockReadOnly
>
> If rs.RecordCount > 0 Then
> '....................................
> '....................................
> End if
> End Sub
>
> Setelah terbentuk object rs, bagaimana memindahkan isi dari object rs ke
> excel mengingat kita tidak tahu akan sebanyak apa record dari object rs
> tersebut... (file search engine yang ingin saya buat juga saya lampirkan)
> Sebelumnya cara pencarian data saya dengan cara, Get External Data
> kemudian di find atau di filter.
>
> Sebelumnya terimakasih banyak....
>
> Rahmat.
>
>
>
