![]() |
|
دلفي و قواعد بيانات MySQL - نسخة قابلة للطباعة +- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum) +-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3) +--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15) +--- الموضوع : دلفي و قواعد بيانات MySQL (/showthread.php?tid=3720) |
دلفي و قواعد بيانات MySQL - saadbouh - 24-12-2011 السلام عليكم و رحمة الله بعد التحية عندي قاعدة بيانات على MySQL و نصبت على جهازي الذي يعمل بنظام تشغيل Win7 دلفي Delphi7 و OBDC Drive لضان الاتصال بين قاعدة البيانات و دلفي و ذلك بإنشاء الملف ذو الامتداد .udl و بختيار الصفحة (ADO) و (ADOConnection) و (ADOQuery) و فعلا تحقق ذلك و أصبحت أنفذ الاستعلات من نوع SELECT حتى المعيرة منها بالعبارة where بدون أي مشكلة و تظهر النتائج على دليفي مثلما تظهر على ماي اسكيل لكن عندي مشكلة مع الاستعلامات الحذف و الإضافة و التغيير و إنشاء التقارير. لذا اطلب منكم إرشادي إلى الحل و إلى روابط لتحميل دروس تساعدني على حل هذي المعضلة و في الأخير تقبلوا مني فائق التقدير. دلفي و قواعد بيانات MySQL - mobile - 24-12-2011 انظر هذا http://www.delphi4arab.net/forum/showpost.php?p=2485&postcount=1 ابحث في المنتدى ففيه ما يطيب لك ان شاء الله فقط استعمل البحث دلفي و قواعد بيانات MySQL - saadbouh - 24-12-2011 تحياتي أخي mobile شكرا على اهتمامك بالموضوع و على الرابط الذي يحتوي على معلومات مهمة عن SQL لكن انا لا اعاني مشكلة مع SQL بل مع DEPHI 7 عندما احاول تنفيذ استعلامات الاضافة او الحذف يرفض البرنامج هذا مثال عن الاستعلام المرفوض كود : INSERT INTO stagiaire VALUES (
null,
:Nom,
:Prenom,
:Grade,
:Stage,
:Origine,
:sexe,
:Age
);كود : procedure TForm1.etnAjouClick(Sender: TObject);
VAR
nbEnregistrement : integer;
begin
// dm = dataModule
dm.rqtInsertStagiaire.Parameters.ParamByName('Nom').Value := edtNom.Text;
dm.rqtInsertStagiaire.Parameters.ParamByName('Prenom').Value := edtPrenom.Text;
dm.rqtInsertStagiaire.Parameters.ParamByName('Grade').Value := StrToInt(edtIDGrade.Text);
dm.rqtInsertStagiaire.Parameters.ParamByName('Stage').Value := StrToInt(edtIDStage.Text);
dm.rqtInsertStagiaire.Parameters.ParamByName('Origine').Value := StrToInt(edtIDOrigine.Text);
dm.rqtInsertStagiaire.Parameters.ParamByName('Sexe').Value := edtSexe.Text;
dm.rqtInsertStagiaire.Parameters.ParamByName('Age').Value := StrToInt(edtAge.Text);
dm.rqtInsertStagiaire.ExecSQL ;
nbEnregistrement := dm.rqtInsertStagiaire.ExecSQL ;
if nbEnregistrement = 1 then
showmessage('un enregistrement ajouté')
else
showmessage('aucun enregistrement n’’a été ajouté !') ;
end;دلفي و قواعد بيانات MySQL - mobile - 24-12-2011 اسف على التاخير خرجت لصلاة العشاء قد تراني في المنتى وانا غائب هل تقصد هذا ولا لدي شك في احتمال لخر لما تقصده كود : [align=left]
try
dm.rqtInsertStagiaire.insert
dm.rqtInsertStagiaire.Parameters.ParamByName('Nom' ).Value := edtNom.Text;
dm.rqtInsertStagiaire.Parameters.ParamByName('Pren om').Value := edtPrenom.Text;
dm.rqtInsertStagiaire.Parameters.ParamByName('Grad e').Value := StrToInt(edtIDGrade.Text);
dm.rqtInsertStagiaire.Parameters.ParamByName('Stag e').Value := StrToInt(edtIDStage.Text);
dm.rqtInsertStagiaire.Parameters.ParamByName('Orig ine').Value := StrToInt(edtIDOrigine.Text);
dm.rqtInsertStagiaire.Parameters.ParamByName('Sexe ').Value := edtSexe.Text;
dm.rqtInsertStagiaire.Parameters.ParamByName('Age' ).Value := StrToInt(edtAge.Text);
dm.rqtInsertStagiaire.open;
showmessage('un enregistrement ajouté');
except
showmessage('aucun enregistrement n’’a été ajouté !') ;
end;
[/align]دلفي و قواعد بيانات MySQL - kachwahed - 24-12-2011 وعليكم السلام ورحمة الله وبركاته لم أجرب الاتصال MySQL->ODBC->ADO بعد غير أني استثقله، اقترح عليك الحلول: - مكونات DevArt MyDAC (تجارية) - مكونات ZeosLib (مفتوحة المصدر) - نسخة دلفي أحدث ثم مكونات DBExpress، مع الانتباه إلى المسارات (مكتبات الربط dll) وضبط الإعدادات بالتوفيق. دلفي و قواعد بيانات MySQL - Lam.Abdeldjalil - 25-12-2011 السلام عليكم و رحمة االله هل تظهر رسالة خطأ أم ماذا ؟ + كود : dm.rqtInsertStagiaire.ExecSQL ;
nbEnregistrement := [COLOR=Red]dm.rqtInsertStagiaire.ExecSQL ;[/COLOR]بالتوفيق دلفي و قواعد بيانات MySQL - saadbouh - 29-12-2011 تحباتي اخوتي الاعزاء اعتذر عن تاخري في الرد و السبب اني كنت خارج التغطية عند تنفيذي للبرنامج و محاولتي ادخال المعلومات عند ضغطي على الزو الذي يحوي الكود تظهر هذي الرسالة :
mysql_odbc.jpg (الحجم : 14.27 ك ب / التحميلات : 81)
و بعدها هذي الرسالة :
mysql_odbc_.jpg (الحجم : 13.56 ك ب / التحميلات : 77)
دلفي و قواعد بيانات MySQL - mobile - 30-12-2011 السلام عليكم انا الان لم انصب دريفر MySql لكن عندك مشكلة في ربط قاعدة البيانات لانه لا يجدها .خذ بنصيحة kachwahed خاصة مع DBExpress ولا تنسى الملفات dbxmys.dll و libmysql.dll دلفي و قواعد بيانات MySQL - saadbouh - 30-12-2011 شكرا للجميع على تعاونهم الحمد لله لقد تغلبت على المشكلة حيث ان الجهاز يحتوي على اكثر من قاعدة البيانات و عند ما قمت بحديد قاعدة البيانات في الاستعلام تغلبت على المشكل |