جستجو در باک اکسس در وی بی

[hamed747]

باسلام
من یک بانک اکسس رو در با adodc و data grad وصل کردم و نمایش میدم
حالا میخوام متنی رو که توی text1نوشتم جستجو کنم و اگر بود توی data grad
رنگی بشه

این بار سوم هست تاپیک میزنم لطفا حذف نکنید
زیاد گشتم اما کد درست پیدا نکردم
لطفا راهنمایی کنید
زیاد ضروری هست

[Is Null]

فک کنم کارت رو را بندازه !


Function Caption()
DataGrid1.Columns(0).Width = 1700
DataGrid1.Columns(1).Width = 5000
DataGrid1.Columns(0).Caption = ""
DataGrid1.Columns(1).Caption = ""
DataGrid1.ForeColor = &HFF&
End Function

Private Sub Text1_Change()
On Error Resume Next
Rs.Close
Rs.Open "SELECT Table1.Field1, Table1.Field2 From Table1 GROUP BY Table1.Field1, Table1.Field2 HAVING Table1.Field1>=" & "'" + Text1 + "' ORDER BY Table1.Field1"
Set DataGrid1.DataSource = Rs
X = Caption()
End Sub

[m.4.r.m]

شما از Adodc استفاده کردی میتونی از دستور Filter خود Adodc استفاده کنی

این کد تمامی نام خانوادگی هایی که حرف اولشون شبیه هم باشه نشون میشه مثله علیزاده ، علیپور و ....

Adodc1.Recordset.Filter = "Family Like '" & Text1.Text & "%'"

[maasoomeh]

با سلام

اگر ممکنه من رو در اين زمينه راهنمايي کنيد:

مي‌خوام يک combo box در فرمم درست کنم که دو گزينه داشته باشه و با انتخاب هر گزينه و سپس زدن دکمه گزارش اون گزينه را نمايش بده.
امکان همچين کاري وجود داره؟ :متفکر:

يک سوال ديگه هم داشتم:

توي فرمم دو تا combo box دارم که يکي نام شرکت و يکي واحدهاست.
مي‌خوام وقتي که شرکت رو انتخاب مي‌کنم، combo box دوم فقط واحدهاي مربوط به همون شرکتي رو که انتخاب کردم نشون بده و واحدهاي همه شرکت‌ها رو با هم نشون نده. :متفکر:
چند راه کار که توي سايت‌هاي مختلف بود رو انجام دادم، ولي وقتي انجامشون مي‌دم combo box دوم رو خالي نشون مي‌ده. :اشتباه:

با تشکر

[m.4.r.m]

شما 2 تا جدول درست می کنی :
جدول اول : کد شرکت ، نام شرکت
جدول دوم : کد شرکت ، نام واحد

در جدول اول کد شرکت کلید اصلی باید باشه .

سپس اطلاعات رو تو اونا ذخیره کنید مثل :

جدول شرکت : 1 و شرکت داده پردازان
جدول واحد : 1 ، واحد اداری - 1 ، واحد گزینش - 1 ، واحد مالی
ببینید ارتباط 1 به چند برقرار میشه بین جدول اول و دوم به ازای کد 1 در جدول شرکت چند گزینه در جدول واحد با کد 1 وجود داره سپس با یک دستور ساده جست و جو می تونید در کومبو باکس دوم نشون بدید

[hamed747]

ببخشید من این کار را برای combo box ها انجام دادم
بعد توی یک فرم دیگه ، یک گزینه به دیتابیسی که combo بهش وصله یک گزینه اضاف میکنم اما وقتی میرم توی فرمی که combo داخلش هست ، گزینه جدید توی combo نیس
باید برنامه رو بست و دوباره باز کرد تا گزینه جدید بیاد داخل combo
میشه راهنمایی کنید چه برنامه ای بنویسم تا نیاز به باز و بسته کردن نرم افزار نباشه؟

[maasoomeh]

من اين کارها رو انجام دادم.
فقط توي جدول‌ها جواب مي‌ده.
من مي‌خوام که توي فرمم به اين شکل در بياد.
لطفا اگر مي‌دونيد چکار بايد بکنم راهنماييم کنيد.

[Is Null]

سلام، منظور شما اینه؟

116614