[alaqsa]

اخي الكريم

جزالك الله خيرا عى التجاوب


هل ممكن يعمل هذا الكود

كود :

' كود تاكد من البيانات السابقه
        Dim cmlo As New OleDbCommand("select count(Startdata) from TrainingUnit where Startdata='" & Startdata.MyText & "'", conn)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        If cmlo.ExecuteScalar > 0 Then
            MsgBox("تاريخ موجود مسبقا", MsgBoxStyle.Critical, "تنبيه")
            Exit Sub
        End If