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]
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/
