Terimakasih Mr.Kid..
--- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
>
> 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 <ione_1984@...>
>
> > **
> >
> >
> > 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.
> >
> >
> >
>