الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال/ هل بالإمكان عمل أزرار للتحديث والتعديل والحذف والإضافة

بدأه hassaan100 في 30 مايو 2009 · 2 رد · 829 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي قاعدة بيانات قمت بإنشائها باستخدام SQL SERVER E . وعند القيام بربطها مع ال #C قمت باستخدام معالج BindingNavigator

إلا أنني لم أجد تلك المرونة في إدخال البيانات واستعراضها كما هي في الأزرار.

لذا هل بالإمكان إنشاء أزرار على النموذج خاصة بالتحديث والإضافة والحذف والتعديل؟ وما هو الكود المناسب لذلك ؟

تحياتي ،،،

#2

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

الموضوع ده فيه المطلوب

تم تعديل هذه المشاركة بواسطة KEMOOO في 30 مايو 2009 في 15:23

#3

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

طبعا اخى يمكن اضافة ازرار

كود الحفظ كالتلى 

</DIV><DIV align="left">sqlcommand cmd = new sqlcommand();
</DIV><DIV align="left">cmd.Connection = cnn;
			cmd.CommandText = "insert patients (PatientName, Address, Job, Tel, Mobile," +
				"Socialstate,Age,Gender) values (@PatientName,@Address,@Job,@Tel,@Mobile," +
				"@Socialstate,@Age,@Gender)";
			cmd.Parameters.Clear();
			cmd.Parameters.Add("@PatientName", SqlDbType.NVarChar, 200).Value = txtpatientname.Text;
			cmd.Parameters.Add("@Address", SqlDbType.NVarChar, 250).Value = txtpatientaddress.Text;
			cmd.Parameters.Add("@Job", SqlDbType.NVarChar, 50).Value = txtpatientjob.Text;
			cmd.Parameters.Add("@Tel", SqlDbType.NVarChar, 20).Value = txtpatienttel.Text;
			cmd.Parameters.Add("@Mobile", SqlDbType.NVarChar, 20).Value = txtpatientmobile.Text;
			cmd.Parameters.Add("@Socialstate", SqlDbType.NVarChar, 10).Value = cmbsocial.Text;
			cmd.Parameters.Add("@Age", SqlDbType.NVarChar, 3).Value = numericUpDown1age.Value;
			cmd.Parameters.Add("@Gender", SqlDbType.NVarChar, 10).Value = cmbgender.Text;
			cnn.Open();
			cmd.ExecuteNonQuery();</DIV><DIV align="left">cnn.close();

كود التعديل

</DIV><DIV align="left">
SqlCommand cmd = new SqlCommand();
			cmd.Connection = cnn;
			cmd.CommandText = "update Patients set PatientName=@PatientName, Address=@Address," +
				"Job=@Job,Tel=@Tel,Mobile=@Mobile, Age=@Age, Gender=@Gender, Socialstate=@Socialstate " +
				"where PatientId = '" + textBox1.Text + "' ";
			cmd.Parameters.Clear();
			cmd.Parameters.Add("@PatientName", SqlDbType.NVarChar, 200).Value = txtname.Text.ToString();
			cmd.Parameters.Add("@Address", SqlDbType.NVarChar, 250).Value = txtpatientaddress.Text.ToString();
			cmd.Parameters.Add("@Job", SqlDbType.NVarChar, 50).Value = txtpatientjob.Text.ToString();
			cmd.Parameters.Add("@Tel", SqlDbType.NVarChar, 20).Value = txtpatienttel.Text.ToString();
			cmd.Parameters.Add("@Mobile", SqlDbType.NVarChar, 20).Value = txtpatientmobile.Text.ToString();
			cmd.Parameters.Add("@Age", SqlDbType.NVarChar, 3).Value = numericUpDown1age.Value.ToString();
			cmd.Parameters.Add("@Gender", SqlDbType.NVarChar, 10).Value = cmbgender.Text.ToString();
			cmd.Parameters.Add("@Socialstate", SqlDbType.NVarChar, 10).Value = cmbsocial.Text.ToString();
			cnn.Open();
			cmd.ExecuteNonQuery();
			cnn.Close();

كود الحذف

</DIV><DIV align="left">
qlCommand cmd = new SqlCommand();
					SqlCommand cmd1 = new SqlCommand();
					cmd.Connection = cnn;
					cmd.CommandText = "delete patients where patientId = '"+txtpatientcode.Text+"' "'";
					cnn.Open();
					cmd.ExecuteNonQuery();
					cnn.Close();
					MessageBox.Show("تم حذف ببانات المريض بنجاح", "حذف بيانات مريض", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign);

اذا كانت المعلومات غير واضحة بلغنى وان شاء الله ارسل لك مشروع فيه العمليات كاملة ان شاء الله تعالى والله المستعان

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…