Set کردن ADO -DataSource به vsFlexGrid

[UpgradeVB6Code]

سلام
چه جوری میشه یه رکوردست رو به vsFlexGrid وصل کرد ؟؟؟
این کدو پیدا کردم اما vsFlexGrid پراپرتی DataSource نداشت !!!


Private Sub Form_Load()
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
CN.Open ConnectionString
RS.Open "SELECT * FROM TableName" , CN , adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = RS
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set RS = Nothing '// Dispose Recordset Object
End Sub



در کل من میخوام وقتی فرمم میاد بالا اطلاعات رو از فایل اکسس بخونم بعد وارد سلول های vsFlexGrid بکنم ...
میشه بگید چه جوری این کارو بکنم ( روند کارو میخوام )

[فاطمه وطن دوست]

سلام
این نمونه رو ببینید .

[UpgradeVB6Code]

ممنون
دقیقا همون چیزی بود که میخواستم
اما شما ار ADODC اسفاده کرده بودید ولی من از ADO استفاده میکنم !!! رکوردست رو باید بهش وصل کنم یا کانکشن رو ؟؟؟

میشه همینو با استفاده از ADO برام بذاری
ممنون

[فاطمه وطن دوست]

سلام

ADODC در واقع همان ADO است برید تو پنجره ی خصوصیات ،ABOUT کنترلی که اسمش ADODC رو نگاه کنید.

[UpgradeVB6Code]

خیلی خیلی ممنون
من یه اشتباهی که کرده بودم باید (VSFlexGrid 8.0 (OLEDB رو انتخاب میکردم که من Light رو انتخاب کرده بودم !!!

اما الان یه مشکل دارم با فیلد ID مربوط به دیتا بیس
این فیلد که به صورت AutoNumber هستش وقتی رکوردی رو حذف میکنم یه پرش بین شاره های این فیلد هست مثلا 1 و 2 و 5 که مثلا رکورد های 3 و 4 حذف شدن برای همین من خودم یه فیلد شمارنده دارم

حالا میخواستم ببینم میشه این فیلد ID رو یه جوری تنظیمش کرد که اون حالتی نباشه اگر نمیشه چه جوری میشه فیلترش کرد
یعنی من استفاده از متد Filter مربوط به رکوردست رو میخوام ببینم چه جوری میتونم استفاده کنم ؟؟؟

خیلی ممنونم

[shahpari]

اگه جستجو کنید مطالب زیادی در مورد فیلتر پیدا می کنید



Adodc1.Recordset.Filter = "id =' " + Text1.Text + " ' "
Adodc1.Recordset.Filter = " id like '" & Text1.Text & "*'"

[فاطمه وطن دوست]

سلام
میشه بیشتر توضیح بدین . من منظورتونو متوجه نشدم . البته اینم بگم که کد برای فیلتر کردن
تو سایت خیلی زیاده شما میتونین بهترین هاشو انتخاب کنین و تو برنامتون استفاده کنید .
اینم بگم که تو قسمت برنامه های VB جستجو و.......... با دیتابیس وجود داره سرچ کنید و بعد خودت.نم بنویسید ودر نهایت اگه متوجه نشدین اینجا مطرح کنید خیلی خیلی بهتره .
شما در کل میخواین فیلتر سازی کنید ؟

[UpgradeVB6Code]

اگه جستجو کنید مطالب زیادی در مورد فیلتر پیدا می کنید



Adodc1.Recordset.Filter = "id =' " + Text1.Text + " ' "
Adodc1.Recordset.Filter = " id like '" & Text1.Text & "*'"


درسته اینو همین یکی دو روز پیش دیدم
منتها یه سوالی توش داشتم
اون id داخل کد چیه ؟ نام فیلد id دیتابیس یا مربوط به خود دستور هستش ؟
داخل text1 چی هستش ؟؟؟ نام فیلدی که باید فیلتر بشه ؟؟؟

[فاطمه وطن دوست]

بله
ID : نام فیلد
TEXT1.TEXT: مقدار فیلدتون هست .

[UpgradeVB6Code]

من درست متوجه نشدم
ببینید فرض کنید متن داخل تکست باکس "مثال" باشه

کد اول رکورد هایی رو که عبارت داخل فیلد ID اونها عبارت "مثال" باشه فیلتر میکنه و
کد دوم رکورد هایی رو که عبارتی رو که عبارت داخل فیلد ID اونها شبیه به کلمه "مثال" باشه فیلتر میکنه ؟؟؟
درسته !؟

پس اگر درست باشه نتیجه میگیریم که با متد فیلتر سطر ها (رکوردها) رو میتونیم فیلتر کنیم نه یک ستون (فیلد) را ؟

پس اگر من بخوام ستون خاصی رو داخل رکوردست نداشته باشم باید با دستور Select فیلدهای مورد نظرم رو انتخاب کنم !؟

این جملاتی که من گفتم درسته ؟

[فاطمه وطن دوست]

سلام


پس اگر درست باشه نتیجه میگیریم که با متد فیلتر سطر ها (رکوردها) رو میتونیم فیلتر کنیم نه یک ستون (فیلد) را ؟
بله درسته .


پس اگر من بخوام ستون خاصی رو داخل رکوردست نداشته باشم باید با دستور Select فیلدهای مورد نظرم رو انتخاب کنم !؟

این جملاتی که من گفتم درسته ؟
بله اینم درسته .

[فاطمه وطن دوست]

سلام
این نمونه رو ببینید .

[UpgradeVB6Code]

شرمنده
سه سوال از نوع Boolean دارم

من تا حالا فکر میکردم وقتی از متد فیلتر مربوط به رکورد ست استفاده میکنم اون رکورد هایی که فیلتر شدن ندیده گرفته میشن و مابقی رکورد ها به رکوردست متصل میشه :گیج:

اما با دیدن این سورس این طوری بود که رکورد هایی که فیلتر میشن به رکوردست متصل هستند و مابقی رکورد ها ندیده گرفته میشن :لبخندساده:

درسته ؟؟؟ :متفکر:

[فاطمه وطن دوست]

سلام
بله دیگه با استفاده از متد filter در واقع مشخص می کنیم که کدوم رکوردها باید انتخاب بشن .
و بقیه رکودها نادیده گرفته میشن .