[Mtaktak]

السلام عليكم

هل استطيع عمل

"Delete From Tbl1,Tbl2 Where Tbl1.ID = " & Text1.Text & " and  Tbl1.ID = Tbl2.ID "

اذا كان صحيح فهو لا يعمل لدي

اذا خطأ  الرجاء تصحيحه

ولكم الشكر والامتنان

[Mtaktak]

.....,,,,؟؟؟؟؟؟؟

[alshandodi]

يجب ان يكون نفس الجدولين بنفس 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, "العملية")

أتمنى ان يكون ذو فائده لك 

[Mtaktak]

الف شكر

نعم هذا ما كنت ابحث عنه

ولكن لو اردت حفظ رقم تسلسلي في Database  من رقم 1 الى 10 فرضا

ماذا اعمل
هل استخدم

كود :

For Each row As DataRow In dt.Rows

           cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.Numeric)).Value = ID +1
Next

[alshandodi]

لم أفهم قصدك اخي اتمنى ان توضح أكثر ماذا تريد

[Mtaktak]

الي اقصده سؤال اخر

نفرض ان عندي قاعدة بيانات مربوطة بالمشروع

وفي قاعدة البيانات حقل ترقيم

سؤالي :
ما هي الطريقة البرمجية لترقيم هذا الحقل من 1 حتى فرضا 10 بغض النظر عن بيانات الحقول الأخرى الموجودة بنفس الجدول او جعل الحقول الاخرى فارغة فرضا

او بطريقة أخرى:
حفظ عدة معلومات او بيانات في الحقول من 1 الى فرضا 10 بضغطة زر