[alshandodi]

(21-06-19, 06:03 AM)علاء الكبابي كتب : احبابي في الله السلام عليكم 
في تصميمي لبرنامج صغير للاستعلام عن الاسعار باستخدام فيجوال بيسك ٢٠١٠ وقاعدة بيانات اكسس.....
اريد كود اذا تم ادخال رقم لصنف غير مسجل على قاعدة البيانات تظهر رسالة تنبيه... الصنف غير مسجل
ولكم جزيل الشكر

إقتباس :

كود :

 Private Sub txtID_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtID.KeyDown
       If e.KeyCode = Keys.Enter Then
           'get product infos

           Try

               cmd = New OleDb.OleDbCommand("select Label , price from Table1 where id = " & Textbox1.Text, con)
               con.Open()
               Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
               dr.Read()
            If dr.HasRows Then
             textbox2.Text = dr(1)        
                   textbox3.Text = dr(2)
                   textbox4.Focus()
                   textbox4.Text = "1"
               Else
                   MsgBox("لايوجد معرف بهذا الرقم", MsgBoxStyle.Exclamation, "تنبيه")
                   clear()
               End If
               dr.Close()

           Catch ex As Exception
               Exit Sub
           Finally
               con.Close()
           End Try




       End If

   End Sub

 أتمنى ان يفيدك هذا الكود المتواضع