Thank's Bung Ronald, script buat Create index-nya kaya gimana nih sy masih awam, sblmnya saya pake Clipper. Terus metode pencariannya pake metode apa? Find atau Seek? Sy sendiri msh bingung perbedaan Find / Seek di VB. Sorry nih nambah pertanyaan :-).
rgds --- Ronald Irawan <[EMAIL PROTECTED]> wrote: > Wah dengan spek spt itu mestinya cepet... > Kalau cuma mau nampilin aja sih, coba ini > Dim dbPO As ADODB.Connection > Dim rsPO As ADODB.Recordset > > Set dbPO = New ADODB.Connection > dbPO.CursorLocation = adUseClient > > dbPO.Open "PROVIDER=SQLOLEDB;" & _ > "Data Source=" & ServerName & ";" & _ > "Initial Catalog=" & DatabaseName & > ";" > & _ > "User Id=" & dbUserName & ";" & _ > "Password=" & dbPassword & ";" > > dbPO.Execute "set dateformat dmy" > > Set rsPO = New ADODB.Recordset > rsPO.Open "Select * From PORDERS with(nolock) > Order By NOSO", > dbPO,adopenforwardonlny,adlockreadonly > > Cuma saran : dari pada anda order by, lebih baik > database nya anda index > NoSO nya.... > > Salam > Ronald Irawan > Pt. Sanghiang Perkasa > Gd. Graha Kirana Lt.5 > Jl Yos Sudarso Kav.88 > Jakarta > > > > "A. Numairullah" <[EMAIL PROTECTED]> > Sent by: [email protected] > 29/12/2005 10:43 AM > Please respond to > [email protected] > > > To > VB Group <[email protected]> > cc > > Subject > [indoprog-vb] Load Recordset Lambat ??? > > > > > > > Dear All Pakar² VB, > > Sy sedang buat program dengan VB 6 db SQL Server > 2000, > Connection String/script yang sy gunakan sbb : > > Dim WithEvents dbPO As ADODB.Connection > Dim WithEvents rsPO As ADODB.Recordset > > Set dbPO = New ADODB.Connection > dbPO.CursorLocation = adUseClient > > dbPO.Open "PROVIDER=SQLOLEDB;" & _ > "Data Source=" & ServerName & ";" & _ > "Initial Catalog=" & DatabaseName & > ";" > & _ > "User Id=" & dbUserName & ";" & _ > "Password=" & dbPassword & ";" > > dbPO.Execute "set dateformat dmy" > > Set rsPO = New ADODB.Recordset > rsPO.Open "Select * From PORDERS Order By NOSO", > dbPO, _ > adOpenDynamic, adLockBatchOptimistic > > 'fungsi utk seeting header datagrid dan > menampilkan data ke > 'data grid > SetHeaderDataGrid > > Table PORDERS tsb mempunyai ± 16.000 record, mengapa > saat load recordset sampai di tampilkan ke datagrid > prosesnya lumayan lambat ± 2 menit. Bagaimana jika > jumlah recordnya > 100.000 ? Wah pasti lebih lambat > :-( > Apakah ada script yang perlu ditambah. Mohon rekan² > ada yang bisa membantu memberikan solusi. > > Utk informasi : > PC sy P4 2.4GHz, Ram 512 MB, OS Win98 > Server sy memang sudah renta sih :-) HP Netserver > E800 > 900Mhz, Ram 256 MB > > > Thanks before & Happy New Year 2006. > > > rgds > > > > > > __________________________________ > Yahoo! for Good - Make a difference this year. > http://brand.yahoo.com/cybergivingweek2005/ > > > > Untuk berhenti berlangganan kirim email kosong ke : > [EMAIL PROTECTED] > > Ikuti juga forum diskusi VB.net dengan > mengirim email kosong ke > [EMAIL PROTECTED] > > Yahoo! Groups Links > > > > > > > > > > [Non-text portions of this message have been > removed] > > __________________________________________ Yahoo! DSL Something to write home about. Just $16.99/mo. or less. dsl.yahoo.com ------------------------ Yahoo! Groups Sponsor --------------------~--> 1.2 million kids a year are victims of human trafficking. Stop slavery. http://us.click.yahoo.com/.QUssC/izNLAA/TtwFAA/zCsqlB/TM --------------------------------------------------------------------~-> Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Ikuti juga forum diskusi VB.net dengan mengirim email kosong ke [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
