(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

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

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

(05-07-21, 08:30 PM)خالد كامل1 كتب : حياك الله اخى ابو انس الكريم الكود تمام ولكن ظهرت لى مشكله اخرى اربده ان وجد المريض فى جدول المرضى اريده ان يضيف 1 على عدد الزيارات  فاستعملت هذا الكود ولكن يعطينى البيانات غير متطابقه جعلت حقل عدد الزيارات مره نص ومره رقم ولكن المشكله قائمه

كود :

Sub add_kashf()
       Dim cmdmaden As New OleDbCommand

       Dim kashf_number_a As String = kashf_number.Text
       With cmdmaden
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = " Update sik_a set SIK_KASHF_NUMBER= SIK_KASHF_NUMBER +" & Val(kashf_number.Text) & "  where sik_phone =" & SIK_PHONE.Text & ""
       End With
       If con.State = 1 Then con.Close()
       con.Open()
       cmdmaden.ExecuteNonQuery()
       con.Close()

   End S