+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كود التأكد قبل الحفظ (/showthread.php?tid=14101)
كود التأكد قبل الحفظ - sameerah - 12-12-15
السلام عليكم
ممكن كود التأكد من السجل إذا كان موجود فالجدول ؟
اذا كان موجود تظهرلي رسالة البيانات مسجلة مسبقا
واذا كانت غير موجوده يحفظ البيانات
شكرا
RE: كود التأكد قبل الحفظ - walkady - 12-12-15
'التحقق من اسم الصنف
Dim sqlstr As String = "Select nameitem From items Where nameitem=@nameitem"
Dim cmd As New OleDb.OleDbCommand(sqlstr, con)
cmd.Parameters.AddWithValue("@nameitem", TextBox3.Text)
If con.State = ConnectionState.Closed Then con.Open()
dr = cmd.ExecuteReader
If dr.HasRows Then
MsgBox("الإسم موجود مسبقا في قاعدة البيانات")
TextBox3.Focus()
Return
End If
dr.Close()
con.Close()
End If
RE: كود التأكد قبل الحفظ - hamada558 - 12-12-15
انا شفت واحد من حبايبنا مش متذكره وضع سطر واحد يعرف بيه اذا السجل موجود ولا لا، بصراحة عجبني الاختصار، شوفو معايا
كود :
Dim ret As Integer = (New OleDb.OleDbDataAdapter("SELECT id FROM table1 WHERE id=" & Val(textBox1.Text), cnn).Fill(New DataTable))
If ret > 0 Then
MsgBox("البيانات مسجلة مسبقا")
Else
' هنا يتم الحفظ
End IfRE: كود التأكد قبل الحفظ - sameerah - 12-12-15
شكرا لكم الاكواد شغاله تمام