[hoob computer]

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته,

إخواني الافاضل, يوجد لدي مشكلة في الكود التالي:

PHP كود :

Dim DA As New OledbAdapter = ("SELECT emp_name.Emp_Tbl, emp_age.Emp_Tbl, emp_year.Emp_Tbl, emp_salary.Emp_Tbl FROM Emp_Tbl WHERE emp_year.Emp_Tbl = '" & ComboBox1.SelectValue & "'", Cn)

Dim DS As New DataSet
DS.Clear()
DA.Fill(DS,"Table") 


حيث يظهر المؤشر على الكود:

PHP كود :

DA.Fill(DS,"Table") 


و رسالة الخطأ هي:

كود :

DataType Mismatch in criteria expression

مع العلم, إن نوع بيانات الحقل emp_year.Emp_Tbl هو Integer في قاعدة البيانات من نوع Access.
و إن الـ ComboBox1 مملوء من ذلك الحقل.

و حاولت عمل التالي:

PHP كود :

Dim A1 As Integer = Convert.ToInt16(ComboBox1.SelectedValue)
Dim DA As New OledbAdapter = ("SELECT emp_name.Emp_Tbl, emp_age.Emp_Tbl, emp_year.Emp_Tbl, emp_salary.Emp_Tbl FROM Emp_Tbl WHERE emp_year.Emp_Tbl = '" & A1 & "'", Cn) 


و تبقى نفس رسالة الخطأ.

ما هو الحل؟