alicomputer
دوشنبه 29 بهمن 1386, 15:52 عصر
چطوری می شه ستونی از بانک را در کمبوباکس نشون داد به طوری که سرعت نرم افزار را پایین نیاورد و نیز نام اول در کمبوباکس روی تکس کمبو نشون داده نشود.
من این را برای این می خوام یک ستون نام خانوادگی را در کمبو به من نشون بده فقط تو خود کمبو و حالت تکس کمبوخالی باشه.
من خودم از دو روش استفاده کردم و تو حالت اول اگه تعداد نام ها زیاد بود سرعت نرم افزار خیلی پایین می یومد.
تو حالت دوم نیز سرعت بالایی داشت ولی اولین نام را تو تکس کمبو می گذاشت که باعث می شد کل کار من به هم بریزه.
حالا اگه می شه کدش را برای من بگذارید یا کد زیر را ویرایش نمایید تا مشکل من حل بشه؟
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Private Sub Form_Load()
On Error GoTo Er1
Combo2.Clear
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & App.Path & "\data\bank.mdb"
rst.Open "sabtenam", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
Do While Not rst.EOF
Combo2.AddItem rst!Name
rst.MoveNext
Loop
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
Combo2.ListIndex = 0
Exit Sub
Er1:
MsgBox "empety"
End Sub
من این را برای این می خوام یک ستون نام خانوادگی را در کمبو به من نشون بده فقط تو خود کمبو و حالت تکس کمبوخالی باشه.
من خودم از دو روش استفاده کردم و تو حالت اول اگه تعداد نام ها زیاد بود سرعت نرم افزار خیلی پایین می یومد.
تو حالت دوم نیز سرعت بالایی داشت ولی اولین نام را تو تکس کمبو می گذاشت که باعث می شد کل کار من به هم بریزه.
حالا اگه می شه کدش را برای من بگذارید یا کد زیر را ویرایش نمایید تا مشکل من حل بشه؟
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Private Sub Form_Load()
On Error GoTo Er1
Combo2.Clear
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & App.Path & "\data\bank.mdb"
rst.Open "sabtenam", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
Do While Not rst.EOF
Combo2.AddItem rst!Name
rst.MoveNext
Loop
rst.Close
cnn.Close
Set cnn = Nothing
Set rst = Nothing
Combo2.ListIndex = 0
Exit Sub
Er1:
MsgBox "empety"
End Sub