+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ادخال البيانات الى قاعدة البانات (/showthread.php?tid=3986)
ادخال البيانات الى قاعدة البانات - مبرمج مبتدأ - 11-03-2012
السلام عليكم و رحمة الله و بركاته
إخواني الأكارم لدي قاعدة بيانات و بها معلومات الاسم و اللقب و الرقم كيف اجعل الاسم لا يتكر
فمثلا لما ادخل محمد بن محمد و رقمه 10 مرتين تظهر لي رسالة تقول لي أن الإسم موجود
استخدمت هذا الكود لكنه لم يعمل
PHP كود :
if Table1.locate('CODE_PROJ',Edit8.Text,[]) then
Begin
ShowMessage('This user already exists');
edit8.Clear;
edit10.setfocus;
exit;
End
Else
Begin
if (Edit8.Text <> '') then
Begin
Table1.Insert;
Table1N_AP.AsString := Edit8.Text;
Table1Nom_enter.AsString := edit9.Text;
ادخال البيانات الى قاعدة البانات - أبو معاذ - 11-03-2012
[INDENT]
وعليكم السلام ورحمة الله وبركاته ـ
يمكنك استعمال ال Sql و هو أفضل و بضل تحضر نفسك للانتقال إلى قواعد بيانات أكثر أمانا و استقرارا.
كود :
Select CODE_PROJ
From MyTable
where CODE_PROJ = :MyParamatreلاحظ أخي الحبيب أن الأمر أصبح أكثر تعقيدا للوهلة الأولى.
1- ستستعمل الSql .
2- ستستعمل ال Paramaitre.
3- تستعمل Query بدلا عن Table.
حاول و نحن هنا.
واطلع على الرابط التالي سيفيدك كثيرا :
http://www.delphi4arab.net/forum/showthread.php?tid=6979
بالتوفيق أخي الحبيب.
[/INDENT]
ادخال البيانات الى قاعدة البانات - kachwahed - 11-03-2012
وعليكم السلام ورحمة الله وبركاته
إذا أنشأت فهرس Index فريد Unique على الحقل لن تحتاج إلى كل ذلك
للإجابة عن الحدث وإظهار رسالة خطأ مناسبة من خلال حدث OnPostError أو غيرها...
بالتوفيق.