هل هنالك من يستطيع مساعدتي ارجوكم لقد ربطت قاعدة البيانات بالبرنامج بشكل صحيح ولكن اريد قبل ان تتم الاضافة على اي سجل أن يتاكد بأن هذا الاسم غير موجود مسبقا ويعطي مسج بوكس بان الاسم قد اضيف من قبل وشكرا
سؤال في البحث في قواعد البيانات حيرني وصار الي اكثر من شهر بستنى في رد من اي شخص ارجوكم
مغلق
لآ دى سهلة ومش مستاهلة شهر بص يا اخى العزيز
if you use ado
rs.movefirst
rs.find "name='" & text1.text & "'"
if rs.eof =false then
msgbox "عفوا هذا الإسم مسجل مسبقا"
exit sub
end if
rs.addnew
rs("name")=text1.text
rs.update
msgbox"تم الحفظ بنجاح"
msgbox"مع تحياتى اخوك انس عمر ارجو ان تكون استفدت واى مناقشة انا جاهز"
'يوجد عدة طرق اخرى
سبحان الله العظيم ............ سبحان الله وبحمده
اللهم علمنا بما ينفعنا وانفعنا بما علمتنا
بسم الله الرحمن الرحيم
بسم الله ما شاء الله
استاذ بيشرح ربنا يزود علمك
بس كان ليه تعليق بسيط
يا ريت تستخدم الداله
mono.NoMatch
فهي ادق
وشكرا لسعه الصدر اخوكم مونو
سبحان الله وبحمده سبحان الله العظيم
متى نحكم العالم زى زمان ايام اجددناصلى الله على محمد صلى الله عليه وسلم
الأخ مونو الغالى جدا
not match
دى بتاع الداو اما انا بتكلم عن الأدو مستوى اعلى واتمنى اشوف مواضيعك الحلوة تنور المنتدى مع انى بفضل استخدام لغة اس كيو الى فى معظم شغل قواعد البيانات والله الموفق :rolleyes:
ادعو لى بالتوفيق والنجاح
سبحان الله العظيم ............ سبحان الله وبحمده
اللهم علمنا بما ينفعنا وانفعنا بما علمتنا
فعلا صديقى ANASS OMAR دى بتاعة الادو بس ما فيش مانع اننا نتعرض لها تلبيتا لرغبة صديقناmono4hack
وذلك بالكود التالى
table.FindFirst "cell = '" + Text1.Text + "'"
If table.NoMatch = False Then
MsgBox "عفوا هذا الإسم مسجل مسبقا"
Exit Sub
End If
table.AddNew
table("cell") = Text1.Text
table.update
msgbox"تم الحفظ "
مشروعك جميل
بس بسيط جدا
project على كل حال سأرسل لك كنت جايبه من النت
شوفه كده يمكن يحل مشكلتك
وعلى كل حال انك اكيد هتستفيد منه كتير جدا
تم تعديل هذه المشاركة بواسطة restart_walid في 8 يوليو 2007 في 04:44
ANASS OMAR كتب:rs.movefirstrs.find "name='" & text1.text & "'"
if rs.eof =false then
msgbox "عفوا هذا الإسم مسجل مسبقا"
exit sub
end if
rs.addnew
rs("name")=text1.text
rs.update
msgbox"تم الحفظ بنجاح"
مشكور اخي الكريم ولكن ماذا تقصد بـ rs
هل هي Adodc
؟؟
لانها لم تزبط معي انا ارفقت مشروع صغير ارجو ان تشرحلي الطريقة التي ممكن استخدمها فيه
اخي رستارت مشكور على المثال اللي وضعته ولكن للاسف انا حاولت ان افهم كود البحث اللي فيه ولكن لم استطع ارجو من يستطيع شرحه بالتفصيل ( كود البحث فقط ) ان يضعه لنا
هذا المشروع اللي اقوم به بعده في الخطوة الاولى انا في بالي اعمل برنامج للشبكة لتسجيل اسم المستخدم ومعلوماته عندي في قاعدة بيانات واعطيه يوزر نيم وكلمة سر ليقوم بفتح الجهاز عن طريق البرنامج بتاعي وتسجيل ملف لوج في السيرفر بمن كان يستخدم الجهاز وفي اي وقت لاني في انترنت كافيه وعن طريق هذا البرنامج ساعرف من جلس على هذا الجهاز في وقت معين .
اين انتم يا شباب
................................................................................
............
أخى العزيز
المقصود بكلمة rs هو أداة بياناتك . أى هو أيآ من
Adodc1.Recordset
data1.Recordset
datPrimaryRS.Recordset
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــة ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
شكراً لك اخي الكريم
أخى العزيز
اليك الكود الذى يعمل test للداتا قبل الإضافة
conacc.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\datatest.mdb" recex.Open "select * from data1 where id like '" & TextBox1.Text & "'", conacc, adOpenStatic, adLockReadOnly If recex.RecordCount = 0 Then recacc.Open "select * from data1", conacc, adOpenDynamic, adLockOptimistic recacc.AddNew recacc![ID] = TextBox1.Text recacc![Name] = TextBox2.Text recacc![Age] = TextBox3.Text recacc.Update conacc.Close Set conacc = Nothing TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" Else MsgBox " الملف موجود أرجو الإدخال مرو أخرى " conacc.Close Set conacc = Nothing End If
وبالتوفيق أخى إن شاء الله
هذا الموضوع مغلق.