[خالد كامل1]

(05-07-21, 12:06 AM)mrfenix93 كتب :

كود :

تحديد جملة السلكت
Dim strSql As String = "SELECT * FROM  customer where name= name.text

تعليف الداتا تيبل
Dim dt As New DataTable

يتم هنا فتح الكونكشن و ملاء الداتا تيبل  يمكنك استخدام اكود لا يهم المهم ملئ ال داتا تيبل
Using cnn As New SqlConnection(connectionString)
 cnn.Open()
 Using dad As New SqlDataAdapter(strSql, cnn)
   dad.Fill(dt)
 End Using
 cnn.Close()
End Using


اذا كان عدد الحقول المستخرجة اكثر من 0 اي انه يوجد جقول بنفس اس
If dt.Rows.Count > 0 Then
                   MsgBox("...........", MsgBoxStyle.Critical)
                   Exit Sub
               End If

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

والأفضل رقم الهاتف لأنه من الصعب تسجيل الرقم القومي للمرضي

بارك الله فيك اخى الكريم ولكن
ناقص شيء
اريد ان تخرج الرساله غيها خيارين yes or no ان اختر  no يخرج بدون ان يكمل اجراء الحفظ وان اخترت yes يكمل الاجراء اجراء الحفظ  وباترك الله فيك