حداکثر اطلاعات قابل نمایش در datagrid

[ehsanocx]

سلام دوستان
من هر اطلاعاتی که ذخیره می کنم داخل بانک .توی Datagrid هم نمایش داده میشود اون اطلاعات . 1658 تا رکورد ذخیره کردم .اما توی Datagrid ، فقط 1633 رکورد رو بیشتر نمایش داده نمیشه و توی بانک هم 1633 تا رکورد بیشتر وجود نداره ، اما من رکورد 1658 رو سرچ می کنم نمایش میده توی دیتا گرید. چطوری چنین چیزی امکان داره؟
نه توی بانک نه توی دیتا گرید 1658 تا رکورد رو نمایش نمیده.
اما توی سرچ اطلاعات رک.رد 1658 رو سرچ می کنی هست.
از اونجایی که دوستان گفتن اکسس تا 68 میلیون رکورد رو قابلیت ذخیره سازی داره.پس مشکل کجاست؟
به نظر شما مشکل کجاست؟

[ehsanocx]

79225

79227

[ehsanocx]

جالب اینجاست که هر چی اطلاعات دستی هم توی بانک وارد کنی بازم توی Datagrid نمایش داده نمیشه به حالت عادی . اما با سرچ نمایش داده میشه

[ehsanocx]

جالب اینجاست که اطلاعاتی که به صورت دستی به بانک میدم هم توی datagrid نمایش داده نمیشه.و وقتی توی بانک اطلاعات رو بعد از 1633 تا رکورد توی بانک ذخیر می کنم و هر چی اطلاعات وارد می کنم با بستن بانک و دوباره باز کردن بانک اطلاعات از رکورد 1633 به بعد غیب میشه و نمایش داده نمیشه ، اما جستجو می کنم رک.رد 1658 رو نمایش میده. خیلی عجیبه . لطفا راهنماییم کنید

[M.T.P]

کد ثبت و کد Load رو بگذارید.

[ehsanocx]

کد ذخیره اطلاعات و ویرایش اطلاعات


On Error Resume Next
If txtShomareh.Text = "" Then
X1 = MsgBox("áØÝ ÔãÇÑå ÇæÑÇÞ ÑÇ æÇÑÏ ˜äíÏ", vbCritical, "ÎØÇ")
txtShomareh.SetFocus
Else
Dim flag As Boolean
Adodc1.Recordset.MoveFirst
flag = False
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("radif") = txtRadif.Text Then
Adodc1.Recordset.Fields("Shomareh") = txtShomareh.Text
Adodc1.Recordset.Update
MsgBox " ÇØáÇÚÇÊ ÌÇíÒíä ÔÏ", vbInformation, "ÐÎíÑå"

flag = True
Adodc1.Refresh
txtShomareh.Text = ""
txtShomareh.SetFocus

Exit Do
End If
Adodc1.Recordset.MoveNext
Loop
If flag = False Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Date") = FrmMainPage.lblDate.Caption
Adodc1.Recordset.Fields("Shomareh") = txtShomareh.Text
Adodc1.Recordset.Update
Adodc1.Refresh
DataGrid1.Refresh
MsgBox " ÇØáÇÚÇÊ ÐÎíÑå ÔÏ.", vbInformation, "ÐÎíÑå"

txtShomareh.Text = ""
txtShomareh.SetFocus

End If
End If

[ehsanocx]

ارتباط با بانک

Private Sub Form_Load()
'************************************************* **************
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False; Jet OLEDB:Database Password = Admin"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ShomareOraghMafghodi"
Adodc1.Refresh
End sub

[M.T.P]

همه رکوردهاتون Load میشه منتها باید بر اساس فیلد Radif جدول رو Sort کنید.

select * from ShomareOraghMafghodi order by radif ASC

[ehsanocx]

این کد رو باید کجا بنویسم با این کد مشکلم بر طرف میشه؟

[ehsanocx]

Adodc1.RecordSource = "select * from ShomareOraghMafghodi order by radif ASC"

[ehsanocx]

اقا دمت گرم مشکل حل شد واقعا ممنون. گیر کار کجا بود؟ با این کدی که دادی چه اتفاقی میفته که نمایش میده میشه توضیح بدین؟