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

مشكله فى حذف سجل من قاعده البيانات

بدأه Mohamed glal في 7 فبراير 2009 · 4 رد · 915 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

المشكله فى الكود التالى عند وجود اكتر من اسم مكرر يحذفهم جميعا انا اريد حذف السجل الحالى فقط

جربت اضع حقل اوتو نمبر لحذف على اساس الرقم يظهر خطا لى

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 UserN ='" & Trim(TextBox1.Text) & "'"

Conn.Open()

SavInto.ExecuteNonQuery()

DataSet1.Clear()

DataAdapter1.Fill(DataSet1, "Table1")

Conn.Close()

MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")

وهذا المشروع

#2

ياأخي يوجد شرط في جملة where

فيعتمد الخذف على الشرط الذي وضع بعد where وهو أحذف أي سجل يساوي UserN

فبهذه الحالة يقوم الحذف على جميع السجلات التي تساوي هذا الشرط .

ولكن أذا أردت أن تحذف سجل معين لابد من قيمة غير مكررة ويستند الشرط عليها مثال :

DELETE FROM Table1 WHERE UserN=Mohamed and  userid =  7

في هذا الشرط تم وضع شرطين يجب توافقهما ليتم عملية الحذف وهو الشرط الاول أن الاسم لابد من أن يساوي Mohamed والثاني رقم السجل لابد من أن يساوي 7 .

#3
mam555 كتب:
ياأخي يوجد شرط في جملة where

فيعتمد الخذف على الشرط الذي وضع بعد where وهو أحذف أي سجل يساوي UserN

فبهذه الحالة يقوم الحذف على جميع السجلات التي تساوي هذا الشرط .

ولكن أذا أردت أن تحذف سجل معين لابد من قيمة غير مكررة ويستند الشرط عليها مثال :

DELETE FROM Table1 WHERE UserN=Mohamed and  userid =  7

في هذا الشرط تم وضع شرطين يجب توافقهما ليتم عملية الحذف وهو الشرط الاول أن الاسم لابد من أن يساوي Mohamed والثاني رقم السجل لابد من أن يساوي 7 .

post-181452-1234003485_thumb.jpg

انا اريد ان يحذف السجل على اساس الرقم اللى موجود فى التكست بوكس 5

ولا كن يوجد مشكله فى السطر

SavInto.ExecuteNonQuery()

ومشكله اخرى هى عند عمل اتو نمبر مثلا 123 وعند حذف رقم 2 يبقى 1 3

ولا يعديد الترتيب

#4

أستخدم هذا 

  Dim ConStr As String = "provider=microsoft.jet.oledb.4.0;data source=" & _
	   Application.StartupPath & "\re.mdb;user id=admin;jet oledb:database password=123"

		Dim CON As New OleDb.OleDbConnection
		Dim INTO As OleDb.OleDbCommand
		CON.ConnectionString() = ConStr
		CON.Open()
		INTO = New OleDb.OleDbCommand("delete from  Table1 where   userid=" & TextBox1.Text & "", CON)
		INTO.ExecuteNonQuery()
		CON.Close()
		MsgBox("تمت عملية الحذف بنجاح")
#5

الف الف شكر

بس مفيش حل لترتيب الاتو نمبر فى قاعده البيانات من خلال الكود او من الداتا بيز نفسها عشان عند المسح

1 2 3

ومسحنا رقم 2

يبقى 1 3

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

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

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

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

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