bisa, gunakan like 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 11:42 AM Please respond to [email protected] To [email protected] cc Subject Re: [indoprog-vb] Load Recordset Lambat ??? Bisa ngga kalo saya punya records sbb : NOSO KODECUST 0100 A 0101 B 0102 C 0103 E 0104 D kalo di textbox sy input 010 record dengan 0101 langsung ditunjuk (record yang pertama kali ditemukan) --- Ronald Irawan <[EMAIL PROTECTED]> wrote: > Di Enterprise manager nya, cona anda click kanan > tablenya --> manage > Index.. > buat baru deh... apa field yg mau di index, tinggal > di centang > > untuk cari nya,, sama seperti anda menampilkna, cuma > belakangnya kasih > where ...... > > 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 11:29 AM > Please respond to > [email protected] > > > To > [email protected] > cc > > Subject > Re: [indoprog-vb] Load Recordset Lambat ??? > > > > > > > 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] > > > > > > > === message truncated === __________________________________ 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! Groups Sponsor --------------------~--> 1.2 million kids a year are victims of human trafficking. Stop slavery. http://us.click.yahoo.com/WpTY2A/izNLAA/yQLSAA/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/
