[ابو انس]

وعليكم السلام

قاعدة البيانات لم تفتح 
انا افترضت ان العمود المسؤول عن كود الصنف اسمه colname وهو من نوع نصي موجود داخل الجدول CODE_22 في حال كان من نوع رقمي حول المتغير a الى النوع المناسب مثلا double او ما تراه مناسبا

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

كود :

Dim da As New OleDbDataAdapter
       Dim dt As New DataTable
       dt.Clear()
       Dim a As String = PRO_CODE.Text
       da = New OleDbDataAdapter("select colname from CODE_22 where colname='" & a & "'", con4)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then

           'هنا نكتب كود التعديل على الصنف اذ انه موجود من قبل
       Else
           'هنا نكتب كود اضافة الصنف لانه غير موجود من قبل
       End If