السلام عليكم
هل استطيع عمل
"Delete From Tbl1,Tbl2 Where Tbl1.ID = " & Text1.Text & " and Tbl1.ID = Tbl2.ID "
اذا كان صحيح فهو لا يعمل لدي
اذا خطأ الرجاء تصحيحه
ولكم الشكر والامتنان
يجب ان يكون نفس الجدولين بنفس ID
كود :
Dim cmd As New OleDb.OleDbCommand
Dim cmd2 As New OleDb.OleDbCommand
cmd = New OleDb.OleDbCommand("DELETE from Tbl1 where ID = " & LblID.Text, con)
cmd2 = New OleDb.OleDbCommand("DELETE from Tbl2 where ID = " & LblID.Text, con)
con.Open()
cmd2.ExecuteNonQuery()
cmd.ExecuteNonQuery()
MsgBox("تم حذف البيانات بنجاح", MsgBoxStyle.Information, "العملية")
أتمنى ان يكون ذو فائده لك
الف شكر
نعم هذا ما كنت ابحث عنه
ولكن لو اردت حفظ رقم تسلسلي في Database من رقم 1 الى 10 فرضا
ماذا اعمل
هل استخدم
كود :
For Each row As DataRow In dt.Rows
cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.Numeric)).Value = ID +1
Next
لم أفهم قصدك اخي اتمنى ان توضح أكثر ماذا تريد
الي اقصده سؤال اخر
نفرض ان عندي قاعدة بيانات مربوطة بالمشروع
وفي قاعدة البيانات حقل ترقيم
سؤالي :
ما هي الطريقة البرمجية لترقيم هذا الحقل من 1 حتى فرضا 10 بغض النظر عن بيانات الحقول الأخرى الموجودة بنفس الجدول او جعل الحقول الاخرى فارغة فرضا
او بطريقة أخرى:
حفظ عدة معلومات او بيانات في الحقول من 1 الى فرضا 10 بضغطة زر