Dear Teguh,
query sy spr ini :
Private Sub RetrievePU()
Dim i As Integer
If sRec.State = adStateOpen Then sRec.Close
sComm.CommandText = "Select * from finance_trans_pu where nopu like '" &
Trim(Text1(5).Text) & "%'" ' where kode ='" & Text1(0).Text & "'"
sComm.ActiveConnection = sConn
sRec.Open sComm, , adOpenDynamic, adLockOptimistic
DoEvents
i = 1
Do While Not sRec.eof
sListView.SetText 1, i, sRec("nopu")
sListView.SetText 2, i, Format(sRec("tgl"), "DD-MM-YYYY")
sListView.SetText 3, i, sRec("tipebayar")
sListView.SetText 4, i, Format(sRec("jatuhtempo"), "DD-MM-YYYY")
sTemp = Len(sRec("kepada")) - 5
sListView.SetText 5, i, Left(sRec("kepada"), sTemp)
sListView.SetText 6, i, sRec("total")
i = i + 1
sRec.MoveNext
Loop
'MsgBox i
sRec.Close
End Sub
saya sudah setting maxrows 25000 tapi fpspreadnya kok ditampilkan dalam waktu 5
detik sehingga program kelihatan hang sebentar, apakah pengaruh dari versi,
versi punya saya versi 7,
Btw Thx 4 Advice,
Best Regard's
Benny
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
