PDA

View Full Version : قرار دادن ProgressBar جهت لود اطلاعات در VSFlex



Tasiyan
چهارشنبه 20 خرداد 1388, 17:15 عصر
همانطور كه اساتيد ميدونن براي استفاده از وي اس فلكس
DataSource = rs
قرار ميدن حالا من ميخوام زمان لود اطلاعات رو داخل پروگسس بار نشون بدم
و چون اينجا از فور خبري نيست چيكار بايد بكنم؟ :افسرده:

با تشكر
:لبخند:

Tasiyan
پنج شنبه 21 خرداد 1388, 10:02 صبح
حداقل يه راهنمايي :افسرده::گریه:

mpmsoft
پنج شنبه 21 خرداد 1388, 10:16 صبح
دوست عزیز فکر نمی کنم امکانش باشه

xxxxx_xxxxx
پنج شنبه 21 خرداد 1388, 12:30 عصر
براي اين كار من هميشه از يك پروگرس بار نمايشي استفاده مي كنم. مثل پروگرس بار ويندوز زماني كه مي خواد بالا بياد. با يك فايل avi يا gif

اما براي يافتن ميزان لود شده ديتابيس مي تونيد از روشي كه در اينجا (http://discuss.joelonsoftware.com/default.asp?joel.3.446391.16) گفته شده استفاده كنيد. اون پايين هاي صفحه يك نفر با ADODB يه كارايي كرده!

Tasiyan
پنج شنبه 21 خرداد 1388, 12:43 عصر
براي اين كار من هميشه از يك پروگرس بار نمايشي استفاده مي كنم. مثل پروگرس بار ويندوز زماني كه مي خواد بالا بياد. با يك فايل avi يا gif

اما براي يافتن ميزان لود شده ديتابيس مي تونيد از روشي كه در اينجا (http://discuss.joelonsoftware.com/default.asp?joel.3.446391.16) گفته شده استفاده كنيد. اون پايين هاي صفحه يك نفر با ADODB يه كارايي كرده!

ممنونم،ولي چيزي دستگيرم نشد !

Tasiyan
یک شنبه 24 خرداد 1388, 10:38 صبح
اينو يكي از دوستان عزيز واسم فرستاد اما متاسفانه با هوشي كه من دارم :گیج: نتونستم تو برنامم استفاده كنم
ممنون ميشم اگه دوستان اين كد رو تبديل به پروژه كنن شايد در اين صورت دوزاريم افتاد :قهقهه:

You need to do a few things here:

1. Use a SELECT COUNT() query to return the number of records.
2. Set the .Max property after you get the COUNT()
3. Use a counter variable of Long data type

Code:
Private Sub XPButton1_Click()

Dim lCount As Long
Dim SQL As String
Dim rsMain As ADODB.Recordset

' Assume cn is already Set = New ADODB.Cnnection and opened

Set rsMain = New ADODB.Recordset
SQL = "SELECT COUNT(SomeField) AS MyCount FROM ....."
rsMain.Open SQL, cn, adOpenKeyset, adLockReadOnly
If rsMain!MyCount = 0 Then
rsMain.Close
Set rsMain = Nothing
MsgBox "No Records."
Exit Sub
Else
ProgressBar1.Min = 0
ProgressBar1.Max = rsMain!MyCount
rsMain.Close

lCount = 0
SQL = "SELECT ......"
rsMain.Open SQL, cn, adOpenForwardOnly, adLockReadOnly

Do Until rsMain.EOF
' Your Code to populate the FlexGrid
'
'
lCount = lCount + 1
ProgressBar1.Value = lCount
rsMain.MoveNext
Loop

rsMain.Close
set rsMain = Nothing

End Sub

:تشویق: