ماهي المشكلة في Datagrid

dv.RowFilter = "name1 = '" & TextBox1.Text & "' And Phone1 = '" & TextBox2.Text & "'" & ... etc...

يعني استخدم المعامل AND للفصل بين الحقول التي تود البحث فيها تماما كجملة Sql عادية

هناك فى المواضيع موضوع باسم ( ممكن سؤال فى الـ datagridview ) ممكم يساعدك

ولو كنت عاوز من البرنامج الاعتراض عند اخاف نفس البيانات مره اخرى زى ما فهمت هذا هو الكود

dim dr as oledbdatareader
dim sql as rteing
sql = " select * from tabel1 where  Name1= '" & name1 & "' or Phone1  = '"  &phone1 &"' or &jop1  ='" & jop1 &"' or mang1 = '" & mang1 &"' or mangg1 = '" & mangg1 &"' or total ='" & total &'""  
cm.commandtext = sql
cm.connection = cnn
dr = cm.executereader()
if dr.read then
msgbox(" يوجد ملف بنفس الاسم ")
exit sub 
end if

اخي العزيز مشكور جدا ردك وعلي مجهودك

بالفعل نجحت المشكلة في الداتا جريد

ولكن بعض المشاكل واجهتني وسوف اشرحها لك وهي:-

اول مشكلة

انا بالفعل قمت بتجربة الكود الذي ارسلته ولكن لم يفلح معي وارفقته لتوضح لي ماهو الخطأ:-

name1 = txt_name1.Text

phone1 = txt_phone1.Text

job1 = dtp1.Text

mang1 = dtp2.Text

mangg1 = cmb1.Text

total = txt_total.Text

cm.CommandText = "INSERT INTO Table1(Name1,phone1,job1,mang1,mangg1,total)" & _

"values ('" & Trim(name1) & "','" & Trim(phone1) & "','" & Trim(job1) & "','" & Trim(mang1) & "','" & Trim(mangg1) & "','" & Trim(total) & "' ) "

cm.Connection = cnn

Try

cm.ExecuteNonQuery()

Catch ex As Exception

MsgBox(ex.Message)

End Try

Dim dr As OleDbDataReader

Dim sql As String

sql = "SELECT Name1, Phone1,job1,mang1,mangg1,total,id FROM table1 ORDER BY Name1;"

cm.CommandText = sql

cm.Connection = cnn

dr = cm.ExecuteReader()

If dr.Read Then

MsgBox(" يوجد ملف بنفس الاسم ")

Exit Sub

End if

ولكن يقوم بالاضافة ثم تظهر الرسالة بذلك

فماهي المشكلة ارجو كيفية عمل ذلك الكود

ثانيا اهم مشكلة واجهتها اليوم ولم تخطر في بالي وشرحها كالاتي

علي سبيل المثال :-

انا قمت بعمل اجازة كالاتي

رقم القيد الاسم تاريخ البداية تاريخ الانتهاء

10 علي 10/2/2008 13/2/2008

ثم قمت باضافة اجازة لنفس الموظف كالاتي

رقم القيد الاسم تاريخ البداية تاريخ الانتهاء

10 علي 10/2/2008 11/2/2008

اظن الفكرة اتضحت حيث انه من المفروض اظهار رسالة تفيد انه توجد اجازة للموظف " علي " موجودة بالفعل من تاريخ 10/2/2008 الي 13/2/2008

معلش انا وجعت دماغك بس انا كمان مش عارف اكمل البرنامج معلش انا ثقلت عليك

بسم الله الرحمن الرحيم

اولا : اخى هل انت عرفت name1 ..... الخ على انها متغير نصى ولا .........

ثانيا : انت استخدمت insert into قبل ما تعمل استعلام حاول تعديل الكود

بحيث عند تنفيذ الامر يتم عمل استعلام ان كانت البيانات موجوده سوف يظهر الرساله وان لم تكن موجوده سوف يتم الادخال حيث ان read هى المسئوله عن تحديد هل الكائن يحتوى على بيانات ناتجه من الاستعلام ام لا .

وحاول لوسمحت تضع الكود فى الخانه الخاصه بالكود حى يتم قراءه الكود بسهوله وطبعا ان مش حكتب الكود علشان تحاول فيه لان هذه الطريقه بالنسبه لى هو افضل طريقه للتعلم فالمهم هو تعلم اللغه وليس عمل برامج وعلى فكره انا لسه بفك الخط يعنى على قدى بس المشكله دى واجهتنى والحمد لله طرحتها فى المنتدى وتم الرد من لاخوه الافاضل ف المنتدى بارك الله فيهم وانا معاك ان شاء الله.

السلام عليكم ورحمة الله وتعالي

مشكور ردك والحمد اللله قمت بحل مشكلة التكرار بس علي فكرة بطريقة اخري عن طريق عمل استعلام في جدول الاكسس عن طريق التكرار والحمد الله وفقت ونجحت الطريقة علي اكمل وجه وعلي فكرة ايضا انا والحمد لله قمت بتعليم نفسي جدا دون اللجوء الي فرصات او غيره وليس بمجرد نقل الاكواد

والمشكلة الثانية التي طر حتها لم استطيع بالفعل حلها وعلي فكرة انا بعد يومين ارسلتها فان اردت المساعدة ساعدني وان لم ترد جزاء الله اخي علي كل شء

وانا بالفعل قمت بالبحث من خلال المنتدي علي هذه الفكرة ولم اجدها

السلام عليكم ورحمه الله وبركاته

ارجوك حدد المشكله تفصيلا وان شاء الله اقدر اساعدك انت قلت ان مشكله التكرار قدرت تحلها يعنى بقى مشكله ان البرنامج يقوم بالاضافه ثم تظهر الرساله (ولا ايه )

مع خالص تحياتى