منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كود التأكد قبل الحفظ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 

ممكن كود التأكد من السجل إذا كان موجود فالجدول ؟ 

اذا كان موجود تظهرلي رسالة البيانات مسجلة مسبقا 

واذا كانت غير موجوده يحفظ البيانات 


شكرا
'التحقق من اسم الصنف
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
انا شفت واحد من حبايبنا مش متذكره وضع سطر واحد يعرف بيه اذا السجل موجود ولا لا، بصراحة عجبني الاختصار، شوفو معايا
كود :
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 If
شكرا لكم الاكواد شغاله تمام