الله يعافيكم أبغى مساعده في شغله "مناقشتي يوم الثلاثاء"

#18 فبراير 2009 في 12:29 صاحب الموضوع

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

الله يعافيكم ويجزاكم خير ان شاءالله

مناقشتي للمشروع يوم الثلاثاء ونقاصني كود الحذف لمن اضغط على button

دورت عليه بكل مكان عجزة القا المناسب مع البرامج الي استخدمها

(البرنامج فجول ستديو دوت نت وقاعدة البيانات أكسس)

كود الحفظ والتعديل والبحث الحمدالله ضبط معي

بس الحذف ماعرفت

مشروعي عباره عن ادارة نظام لفندق بس مُبسط

الاكواد الي استخدمتها

كود الحفظ

Dim DSET As New DataSet





DSET.Clear()



Try

If Not IsNumeric(TxtCstmrId.Text) Or TxtCstmrId.Text = "" Then

MsgBox("عزيزي المستخدم,يجب ادخال قيمة رقمية في هذا الحقل")

TxtCstmrId.Focus()

OleConn.Close()

Exit Sub

Else

OleDataAdapt.SelectCommand.CommandText = "select * from Cstmr where CstmrId = " & Val(TxtCstmrId.Text) & ""

OleDataAdapt.Fill(DSET, "Cstmr")

If DSET.Tables(0).Rows.Count = 0 Then

OleDataAdapt.InsertCommand.CommandText = "Insert Into Cstmr " _

& "(CstmrId,CstmrName,CstmrNation,CstmrTel) " _

& " Values(" & TxtCstmrId.Text & " ,'" & TxtCstmrName.Text & "', " _

& "'" & TxtCstmrNation.Text & "' , '" & TxtCstmrTel.Text & " ')"



OleDataAdapt.InsertCommand.ExecuteNonQuery()



MsgBox("ألف مبروك, تم الحفظ بنجاح")

Else

MsgBox("عفواً,الرقم مدخل مسبقاً")

TxtCstmrId.Focus()

Exit Sub

End If

End If

Catch ex As Exception



MsgBox(ex.Message)

End Try



End Sub

كود التعديل

Dim DSet As New DataSet



DSet.Clear()



Try

If Not IsNumeric(TxtCstmrId.Text) Or TxtCstmrId.Text = "" Then

MsgBox("عزيزي المستخدم,يجب ادخال قيمة رقمية في هذا الحقل")

TxtCstmrId.Focus()

OleConn.Close()

Exit Sub

Else

OleDataAdapt.SelectCommand.CommandText = "select * from Cstmr where CstmrId = " & Val(TxtCstmrId.Text) & ""

OleDataAdapt.Fill(DSET, "Cstmr")

If DSet.Tables(0).Rows.Count <> 0 Then



OleDataAdapt.UpdateCommand.CommandText = "Update Cstmr Set " _

& "CstmrName='" & TxtCstmrName.Text & "', " _

& "CstmrNation='" & TxtCstmrNation.Text & "', " _

& "CstmrTel='" & TxtCstmrTel.Text & " ' " _

& "Where CstmrId = " & TxtCstmrId.Text & ""



OleDataAdapt.UpdateCommand.ExecuteNonQuery()



MsgBox("ألف مبروك, تم التعديل بنجاح")

Else

MsgBox("عفواً,الرقم مدخل غير موجود")

TxtCstmrId.Focus()

Exit Sub

End If

End If

Catch ex As Exception



MsgBox(ex.Message)

End Try

End Sub

كود البحث

Dim InputVal As String

Dim DSET As New DataSet

Dim C As Integer

'OleConn.Open()

DSET.Clear()



InputVal = InputBox("فضلاً, أدخل رقم العميل المراد البحث عنه", "البحث")

Try



If InputVal <> "" Then



OleDataAdapt.SelectCommand.CommandText = "Select * From Cstmr Where CstmrID = " & InputVal & ""

OleDataAdapt.Fill(DSET, "Cstmr")

If DSET.Tables(0).Rows.Count <> 0 Then

TxtCstmrId.Text = DSET.Tables(0).Rows(0)("CstmrId")

TxtCstmrName.Text = DSET.Tables(0).Rows(0)("CstmrName")

TxtCstmrNation.Text = DSET.Tables(0).Rows(0)("CstmrNation")

TxtCstmrTel.Text = DSET.Tables(0).Rows(0)("CstmrTel")



Else

MsgBox("عفواً، الرقم المدخل غير صحيح")



Exit Sub

End If



Else

MsgBox("فضلاً، أدخل قيمة صحيحة في البحث")



Exit Sub

End If

Catch Ex As Exception



MsgBox(Ex.Message)



End Try

End Sub

اصدار الفجول 2003

والاكسس 2003

تم تعديل هذه المشاركة بواسطة soso al في 8 فبراير 2009 في 12:33

#28 فبراير 2009 في 16:51

		If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
			Exit Sub
		End If
		Dim SavInto As New OleDb.OleDbCommand
		Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
		SavInto.Connection = Conn
		SavInto.CommandType = CommandType.Text
		SavInto.CommandText = "DELETE FROM Table1 WHERE mobile ='" & Trim(TextBox3.Text) & "'"
		Conn.Open()
		SavInto.ExecuteNonQuery()
		DataSet1.Clear()
		DataAdapter1.Fill(DataSet1, "Table1")
		Conn.Close()
		MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
		ChangePosition()

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

تم تعديل هذه المشاركة بواسطة 2120 في 8 فبراير 2009 في 16:53

#38 فبراير 2009 في 22:15

جزاك الله خير ان شاءالله

بجرب وارد لك

مع اني خايفه انو يطلع غلط

مره تعقدت وفيني خوف

#49 فبراير 2009 في 10:32

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

هذا برنامج باذن الله يفيدك

http://www.4shared.com/file/84395771/f703e..._2__Prayer.html

مع قاعدة بيانات اكسس 2003 مع اصدار 2005

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

Mail : pc-moon@hotmail.com

من تواضع لله رفعه

قل خيرا أو اصمت

#59 فبراير 2009 في 14:12

اخوي 2120

الكود ماضبط معي

pcmoon

التحميل مايضبط عندي لانه

rar

مايفتح عندي

ايش الحل؟

#69 فبراير 2009 في 14:17

2120

الكود الي كاتبه sql

وانا قاعدة البيانات اكسس

#79 فبراير 2009 في 15:35

ممكن ارفاق المشروع وسأحاول مساعدتك

مع ذكر الفورم المعني بالحذف

وشكرا لكي

واذا لم تكن مستعجل فان الاخ المهندس عدي جزاه الله خيرا وضع كتابا جميلا في قسم الado.net تحت اسم الكامل في قواعد البيانات تجد فيه هذه الجزئية ان شاء الله (الموضوع مثبت )

أنا ممكن أساعدك على اصدار فيجوال .نت 2005 فهو الاصدار الذي اعمل عليه حاليا

تم تعديل هذه المشاركة بواسطة Mohamed-Riadh في 9 فبراير 2009 في 15:55

#89 فبراير 2009 في 21:21

اختي

soso al

هي كود الحذف

وإن شاء الله بالتوفيق بالمناقشة

كود الحذف

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

con.Open()

cmd.CommandText = "delete from Person where PName = t1 and PNo = t2 and PPhone = t3 and PMail = t4"

With cmd.Parameters

.Clear()

.AddWithValue("t1", TextBox1.Text)

.AddWithValue("t2", TextBox2.Text)

.AddWithValue("t3", TextBox3.Text)

.AddWithValue("t4", TextBox4.Text)

End With

cmd.ExecuteNonQuery()

MsgBox("لقد تم الحذف")

con.Close()

End Sub

بسم الله الذي لا يضر مع اسمه شيء بالارض ولا بالسماء وهو السميع العليم

#99 فبراير 2009 في 22:16

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

تحياتي

وإذا ما ضبط معاك .. المثال السابق فقط قومي بوضع هذا الكود في زر الحذف وإن شاء الله بيشتغل :

		If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
			Exit Sub
		End If
		Dim SavInto As New OleDb.OleDbCommand
		Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
		SavInto.Connection = Conn
		SavInto.CommandType = CommandType.Text
		SavInto.CommandText = "DELETE FROM Cstmr  WHERE CstmrTel ='" & Trim(TxtCstmrTel.Text) & "'"
		Conn.Open()
		SavInto.ExecuteNonQuery()
		DataSet1.Clear()
		DataAdapter1.Fill(DataSet1, "Cstmr ")
		Conn.Close()
		MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
		ChangePosition()
	End Sub

My_Delete.rar

تم تعديل هذه المشاركة بواسطة 2120 في 9 فبراير 2009 في 22:39

#1010 فبراير 2009 في 12:19

ماضبط الكود

انا سويت هذا الكود ماطلع ايرور الحمدالله بس لمن اشغل البرنامج اوضيف بينات موجود وبحذفها

ماتنحذف

ويطلع رسالة ايرور

Dim DSET As New DataSet





DSET.Clear()



Try

If Not IsNumeric(TxtCstmrId.Text) Or TxtCstmrId.Text = "" Then

MsgBox("عزيزي المستخدم,يجب ادخال قيمة رقمية في هذا الحقل")

TxtCstmrId.Focus()

OleConn.Close()

Exit Sub



Else





OleDataAdapt.SelectCommand.CommandText = "select * from Cstmr where CstmrId = " & Val(TxtCstmrId.Text) & ""

OleDataAdapt.Fill(DSET, "Cstmr")



If DSET.Tables(0).Rows.Count <> 0 Then



OleDataAdapt.deleteCommand.CommandText = "Delete Cstmr Set " _

& "CstmrName='" & TxtCstmrName.Text & "', " _

& "CstmrNation='" & TxtCstmrNation.Text & "', " _

& "CstmrTel='" & TxtCstmrTel.Text & " ' " _

& "Where CstmrId = " & TxtCstmrId.Text & ""



OleDataAdapt.DeleteCommand.ExecuteNonQuery()



MsgBox("لقد تم الحذف")

Else

MsgBox("عفواً,الرقم مدخل غير موجود")

TxtCstmrId.Focus()

Exit Sub

End If

End If

Catch ex As Exception



MsgBox(ex.Message)

End Try

أرفقت البرنامج

وخليت اول شاشه تفتح حقت الكوستمر(بينات النزيل)

الي قاعده احاول اطبق فيها

الله يسهل علينا

مناقشتي بالليل ,,

_________zipped__Folder.zip

#1110 فبراير 2009 في 14:08

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

أخي الكريم لقد قمت بالتعديل على برنامج ولو كان هنالك وقت لكنت عدلت على البرنامج بشكل كامل ولكن اعذرني وان احتجت اي مساعدة اخرى انا في الخدمة.

Hotel.rar

#1210 فبراير 2009 في 17:15

في فورم frmcstmr استبدل كود زر الحذف بهذا الكود

اقتباس
If MsgBox("Delete The Custummer?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If
Try
Dim Dset As New DataSet
Dim Constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\hotel.mdb"
Dim SavInto As New OleDb.OleDbCommand
Dim sqlstr As String = "select * from cstmr"
Dim conn As New OleDbConnection(Constr)
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "delete from Cstmr where CstmrId = " & Val(TxtCstmrId.Text) & ""
Conn.Open()
SavInto.ExecuteNonQuery()
DSet.Clear()
DataAdapter1.Fill(DSet, "Cstmr")
Conn.Close()
MsgBox("Delete Succeful")
Catch ex As Exception
MsgBox(ex.Message)
End Try

ولو حدث خطأ يرجى ارفاق صورة للخطأ او نص الخطأ

وشكر

انا بالانتظار واسف لاني لم استطع التعديل لاني لا املك visuel studio 2003

ملاحظة :ضع قاعدة البيانات داخل مجلد المشروع وبالضبط داخل مجلد BIN

تم تعديل هذه المشاركة بواسطة Mohamed-Riadh في 10 فبراير 2009 في 17:22

#1310 فبراير 2009 في 17:26

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

فهو يحوي مثال بالشرح لعمل دليل التلفونات بشرح اكثر من مبسط

/index.php?showtopic=123613

#1410 فبراير 2009 في 19:25

اخوي ابراهيم عساف

الكود الي حاطه غلط في اب ديت

وانا ابغى حذف

انا وضعت خذا الكود ولمن احذف البيانات الموجوده يعطيني

sntakx eror from clause

Dim DSET As New DataSet





DSET.Clear()



Try

If Not IsNumeric(TxtCstmrId.Text) Or TxtCstmrId.Text = "" Then

MsgBox("عزيزي المستخدم,يجب ادخال قيمة رقمية في هذا الحقل")

TxtCstmrId.Focus()

OleConn.Close()

Exit Sub



Else





OleDataAdapt.SelectCommand.CommandText = "select * from Cstmr where CstmrId = " & Val(TxtCstmrId.Text) & ""

OleDataAdapt.Fill(DSET, "Cstmr")



If DSET.Tables(0).Rows.Count <> 0 Then



OleDataAdapt.deleteCommand.CommandText = "Delete Cstmr Set " _

& "CstmrName='" & TxtCstmrName.Text & "', " _

& "CstmrNation='" & TxtCstmrNation.Text & "', " _

& "CstmrTel='" & TxtCstmrTel.Text & " ' " _

& "Where CstmrId = " & TxtCstmrId.Text & ""



OleDataAdapt.DeleteCommand.ExecuteNonQuery()



MsgBox("لقد تم الحذف")

Else

MsgBox("عفواً,الرقم مدخل غير موجود")

TxtCstmrId.Focus()

Exit Sub

End If

End If

Catch ex As Exception



MsgBox(ex.Message)

End Try

وكود اخوي محمد

ماضبط يعطيني مساار

انا خايفه قرب الوقت

#1510 فبراير 2009 في 22:10

تفضلي هذا المثال .. عدلت زر الحذف والكثير في البرنامج .. لأني بكل صراحة لا أعرف الطريقة التي تربطي بها البرنامج

ربط قاعدة البيانات بالكود .. وعدلت فيه كثيرا .. حذي الزين وتركي الشين .. وحاولي

أنا أشتغل على 2008 ..

أنا ضبط معاي بس معاك الله أعلم .. بالتوفيق

Hotel.rar

#1611 فبراير 2009 في 11:02

البرنامج شغال مئة بالمئة ...........

تم تعديل هذه المشاركة بواسطة IbrahimAssaf في 11 فبراير 2009 في 11:22

#1711 فبراير 2009 في 11:13

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

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

  Dim dbCommand As New OleDbCommand()
		Try
			If MessageBox.Show("هل انت متأكد من عملية الحذف؟", "حذف البيانات", MessageBoxButtons.YesNo, MessageBoxIcon.Information, 0, MessageBoxOptions.RightAlign) = Windows.Forms.DialogResult.Yes Then
				If TxtCstmrId.Text.Trim() <> "" And IsNumeric(TxtCstmrId.Text) Then
					Dim blnCheckIfExistCustomerID As Boolean = CheckIfExistCustomer(CInt(TxtCstmrId.Text))
					If blnCheckIfExistCustomerID = True Then
						If OleConn.State = ConnectionState.Closed Then
							OleConn.Open()
						End If
						dbCommand.Connection = OleConn
						dbCommand.CommandText = "DELETE FROM Cstmr WHERE CstmrId=" & TxtCstmrId.Text
						dbCommand.ExecuteNonQuery()
						MessageBox.Show("عملية الحذف تمت بنجاح", "تمت العملية بنجاح", MessageBoxButtons.OK, MessageBoxIcon.Information, 0, MessageBoxOptions.RightAlign)
						OleConn.Close()
					Else
						TxtCstmrId.Focus()
						MessageBox.Show("الرقم المدخل غير مودجود", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error, 0, MessageBoxOptions.RightAlign)
					End If
				Else
					MessageBox.Show("عزيزي المستخدم يجب ادخال قيمة رقمية في هذا الحقل", "خطا", MessageBoxButtons.OK, MessageBoxIcon.Error, 0, MessageBoxOptions.RightAlign)
				End If
			End If
		Catch ex As Exception
			MessageBox.Show("حدث خطأ في عملية الحذف", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, 0, MessageBoxOptions.RightAlign)
		End Try

والكود التالي عبارة عن دالة للتاكد للتاكد من رقم المستخدم ان كان موجود في قاعدة البيانات ام لا

Dim dbCommand As New OleDbCommand("SELECT COUNT(*) FROM Cstmr WHERE CstmrId=" & intCustomerID.ToString(), OleConn)
If dbCommand.ExecuteScalar() <> 0 Then
Return True
Else
Return False
End If
End Function

Private Function CheckIfExistCustomer(ByVal intCustomerID As Integer) As Boolean

تم تعديل هذه المشاركة بواسطة IbrahimAssaf في 11 فبراير 2009 في 11:21

#1812 فبراير 2009 في 01:04

جزاكم الله كل الخير يارب

ماقصرتوا

الله يعافيكم أبغى مساعده في شغله "مناقشتي يوم الثلاثاء"

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

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