02-01-24, 11:06 PM
(آخر تعديل لهذه المشاركة : 02-01-24, 11:20 PM {2} بواسطة مبرمج صغير 1.)
السلام عليكم ورحمة الله وبركاته
لدي برنامج وضعت فيه خانة رقم الهوية الرئيسي (textbox) ووضعت فيه خانه اخري التابعين (textbox)
المطلوب
لو قمت ووضعت رقم هوية احد التابعين في خانة التابع وتم الحفظ
وبعد وقت اريد ان اضيف التابع في خانه رقم الهوية الرئيسي
اذا قمت وادخلت هوية التابع في الرئيسي
اريد ان تظهر رساله الشخص موجود في قائمة التابعين للهوية الرئيسي رقم ....................
قاعدة البيانات اكسس
قاعدة البيانات اكسس
اتمني وصلت الفكرة
هذا الكود للحفظ واضهار رساله اذا كان الرقم موجود مسبقا في الرئيسي فقط
كود :
If connAccess2005.State = ConnectionState.Closed Then connAccess2005.Open()
Dim cmd As New OleDbCommand("SELECT COUNT([idr]) FROM [tan] WHERE [idr]=? ", connAccess2005)
cmd.Parameters.AddWithValue("@", Val(txtidr.Text))
If cmd.ExecuteScalar > 0 Then
MsgBox("رقم الهوية مضاف مسبقا!", MsgBoxStyle.Exclamation, "تنبية!")
Return
End If
Try
Dim cmdinsert As New OleDbCommand("insert into tan (idr, idt ) values ('" & txtidr.Text & "','" & txtidt.Text & "')")
cmdinsert.Connection = connAccess2005
cmdinsert.ExecuteNonQuery()
MsgBox("تم حفظ البيانات بنجاح")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
connAccess2005.Close()