[princelovelorn]

(18-02-19, 11:00 PM)atef_020 كتب : اشكرك اخى الكريم ........ولكن كيف انشى استعلاما اذا كان كود الصنف موجود ام لا تحياتى لك ....

الحمد لله والشكر لله

استخدم الدالة التالية

كود :

Public Function CheckCode() As Boolean
       Dim sql = "select * from t1 where code ='" & (t4.text) & "'"

       Dim adp As New Sql.SQLDataAdapter(sql, con)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       If dt.Rows.Count = 0 Then
           MsgBox("الكود غير موجود")
           CheckCode = False
       Else
           MsgBox("الكود موجود")
           CheckCode = True
       End If

       Return CheckCode()
   End Function

تمنياتي لك بالتوفيق والنجاح