السلام عليكم احبتى
اريد كود تحقق من اسم مريض مثلا فى عياده هل له سجل او لا وان وجد يخرجلى رساله بانه موجود هل تريد المتابعه او الخروج وان وافقت على المتابعه يزودلى رقم الزيارات 1
لكم منى جزيل الشكر
كود :
تحديد جملة السلكت
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, 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 يكمل الاجراء اجراء الحفظ وباترك الله فيك
حياك الله اخى ابو انس الكريم الكود تمام ولكن ظهرت لى مشكله اخرى اربده ان وجد المريض فى جدول المرضى اريده ان يضيف 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 Sub
(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
حسب الكود الي انت كاتبه يجب ان يكون في قاعدة البياناات
SIK_KASHF_NUMBER رقم و SIK_PHONE نص
ولكن من وجهة نظري اجعل تيكس بوكس المسؤول عن عدد الزياراتkashf_number يظهر لنا عدد الزيارات ,وفي كود التحديث اجعله يحدث SIK_KASHF_NUMBER
SIK_KASHF_NUMBER=AA
حيث AA متغير رقمي قيمته تساوي kashf_number+1
طبعا هذا في حال ضغط المستخدم على زر التأكيد بأن المريض وصل له الدور
PHP كود :
CON_MY.CON_TXT("update ITEME set date= " & date_ & " where GUID='" & Guid & "'")
هذا كود من برنامجي لتحديث تاريخ معين انا اتعامل مع سيكوال سيرفر ولم اتعامل من قبل مع اكسس ولا اعرف مدى الاختلاف بينهن من حيث هذه الاكواد
Guid متغير تم تعريفه من قبل
date_ متغير تم تعريفه من قبل
---------------------------------------------
وبدك تعمل الغاء للزيارة او تراجع يعني مثلا المريض عندما ربما يتراجع في اخر لحظة ولا يدخل لعند الطبيب بجوز مثلا يفكر انو الاموال الي رح يدفعها للطبيب بيشتري فيها جاجة مشوية مع قنينة كولا وبتعشا هو المدام ...
ثم اني عندي ملاحظة بخصوص رقم الموبايل رقم الموبايل قابل للتغيير انا بشوف كثير ناس خصوصا الجيل الجديد من الشباب كل يوم بغيرو مية رقم
امامك الكثير من العمل