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

[mina_n]

سلام
1-من با adodc,datagrid کار کردم حالا می خوام بر اساس تکست اول جستجو کنم واطلاعات تکست های دیگه رو نشون بده یا تو datagrid بره اون رکورد رو پیدا کنه میشه سورس بدین
2- مشکل دومم اینه که می خوام یه کمبو بذارم که کاربر بتونه خودش لیست کنه (یه سازمان دارم یه زیر سازمان) زیر سازمانها مشخص نیست کاربر تو کمبو وارد کنه چطور ارتباط بدم

[Di Di]

سوالاتت خيلي نامفهومه! تا اونجائي كه از سوال اول فهميدم مي خواي در بانك اطلاعاتيي جستجو كني. اين كار به سادگي با متد جستجو ( FindFirst ) انجام مي شه. شما فقط توجه داشته باش تمام كارت داخل بانك اطلاعاتي انجام مي شه و ديتاگريد يا هر چيز ديگه اي فقط وظيفه نمايش اطلاعات رو داره.
سوال دومت انگار قصد داري دو تا بانك اطلاعاتي رو به هم ربط بدي. براي اين كار بايد از يه فيلد مشترك استفاده كني . مثلا اينجا گفتي سازمان و زير سازمان . يعني يكي بانك اطلاعات سازمان هاست و يكي ديگه زير سازمان ها . خوب براي ارتباط دادن اين دو بايد داخل بانك سازمانها فيلدي براي كد سازمان قرار بدي و در قسمت زير سازماتنها فيلدي برا سازمان بالادست كه همون شماره كد سازمان مربوطه هست.
بعد اين دوتا فيلد رو به هم مرتبط كني ...

[mina_n]

میشه برنامم رو تا اینجایی که کار کردم بذارم ببینید ؟؟؟؟

[Di Di]

بذار مشكلي نداره ..

[mina_n]

ممنون میشم اگه خیلی فوری کارمو راه بندازین
- من با datagrid,daodc کار کردم می خوام برحسب یکی از تکستهام جستجو کنم و بقیه تکستها رو نمایش بده یا روی datagrid نمایش بده اما هر کدی مینویسم error داره
2- فرم آخرم فرم گزارش هست یعنی اطلاعات که درdatagrid وارد شد باید با زمان وتاریخ مقایسه بشه که در زمان وتاریخ مقرر پیگیری انجام بشه (مثلا امروز با سازمانی تماس گرفته شده قراره فردا دوباره تماس بگیریم یا 2ساعت دیگه تماس بگیریم ما این گزارش را وارد می کنیم اما فردا یا 2 ساعت دیگه به ما Alarm بده که با سازمان مورد نظر تماس بگیرید یا اسامی سازمانها را در فرم جداگانه نمایش دهد با Alarm) راهنمایی کنید که چطور این مقایسه را انجام بدم
ممنونم

[far_222000]

چون از Adodc استفاده کردین باید برای جستجو این کار رو بکنین:
به تعداد فیلد های جدولتون روی فرمتون تکست باکس بکشین. حالا از کد زیر استفاده کنین:
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
If textbox1.Text = "Search" Then Exit Do
Adodc1.Recordset.MoveNext
Loop

کلمه "Search"، اون کلمه ای هست که دنبالشین و textbox1، اون تکست باکسی هست که دیتاسورسش روی فیلدی که می خواین روش سرچ کنین، ست شده!!

ولی راه اصولیش اینه که بعد از کشیدن textbox ها، از شرط WHERE توی RecordSource استفاده کنین. الان نوشتین select * from table1 که برای سرچ کردن باید مثلاً بشه: SELECT * FROM table1 WHERE field1 = 'phrase'

[phpnet]

چون از Adodc استفاده کردین باید برای جستجو این کار رو بکنین:
به تعداد فیلد های جدولتون روی فرمتون تکست باکس بکشین. حالا از کد زیر استفاده کنین:
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
If textbox1.Text = "Search" Then Exit Do
Adodc1.Recordset.MoveNext
Loop

کلمه "Search"، اون کلمه ای هست که دنبالشین و textbox1، اون تکست باکسی هست که دیتاسورسش روی فیلدی که می خواین روش سرچ کنین، ست شده!!

ولی راه اصولیش اینه که بعد از کشیدن textbox ها، از شرط WHERE توی RecordSource استفاده کنین. الان نوشتین select * from table1 که برای سرچ کردن باید مثلاً بشه: SELECT * FROM table1 WHERE field1 = 'phrase'

آقا من یک مشکلی همچنینی دارم لطفا راهنمایی کنید.
من یه فرم دارم که با بانک اطلاعاتی کار میکنه میخوام مثلا وقتی کسی بخواد جستجو کنه با وارد کردن کد یا هر چیز انتخاب شده دیگر اطلاعات مورد نظر ما در فرم نمایش داده بشه.
مثلا اگه کسی کد 003 رو که قبلا در بانک اطلاعاتی اضافه شده رو در کادر متنی وارد کرد و دکمه سرچ رو زد فرم اطلاعات 003 رو از بانک اطلاعاتی بخونه و لازم نباشه یکی یکی بگردیم تا پیداش کنیم.
فایلش رو هم ضمیمه کردم اگه لطف کنید کدش رو بنویسید برام.

[Mr.pRoGraMmer]

سلام
منم نیاز دارم به همچین کاری

[Mr.pRoGraMmer]

سلام
پیداش کردم و خودم نوشتم یه سری دستورات اسونه که کسی به سختی یاد ادم میده ولی یاد هم میگیره حال میده

[phpnet]

سلام
پیداش کردم و خودم نوشتم یه سری دستورات اسونه که کسی به سختی یاد ادم میده ولی یاد هم میگیره حال میده

خوب حالا که پیداش کردی و حلش کردی به ما هم بگو ما هم حلش کنیم دوست عزیز

[Mr.pRoGraMmer]

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

کد:

Private Sub lvButtons_H1_Click()
Data2.RecordSource = ("select forosh where Number_faktor")
Text114.Text = Data2.Recordset.RecordCount + 1
data1.Recordset.Update (1)
data1.Recordset.MoveLast
End Sub

با کد زیر هم فرم جستجو را به نماش در میوردم

کد:

Private Sub lvButtons_H5_Click()
Find_Database.Show , Me
End Sub

اینم کد فرم جستجو

کد:

Private Sub lvButtons_H1_Click()
Form1.data1.Recordset.MoveFirst
Do While Form1.data1.Recordset.EOF = False
If Form1.Text114.Text = Text1.Text Then Exit Do
Form1.data1.Recordset.MoveNext
Loop
End Sub

اینم عکس برنامه تا متوجه بشید