السلام عليكم
اخوتي الاعزاء انا مازلت جديد في التعامل مع الفيجوال 2005 وواجهتني مشكله وصفها كالتالي:
لدي قاعدة بيانات access بها جدول واحد وهو hossam به ثلاث اعمده كالتالي no,ara,eng
وقمت بوضع الكود التالي لعمل الاستعلام
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
تعريف الاتصال
Dim con As New OleDb.OleDbConnection()
تعريف جملة الاستعلام
Dim sql As String
sql = "select ara from hossam WHERE hossam.eng =" + "'" + " " + tex.Text + "'"
تعريف شرط الاتصال
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\db6.mdb;Persist Security Info=False"
تعريف داتا سيت جديده
Dim ds As New DataSet
Try
Dim da As New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "hossam")
DataGridView1.DataSource = ds.Tables("hossam")
Catch e1 As OleDb.OleDbException
End Try
Label1.Text = sql
End Sub[left\]ولكن عند التنفيذ لايقوم باظهار النتائج في الداتا جريد ولكن يظهر صف واحد فارغ كما بالصوره المرفقه فما الخطأ الذي يحدث .
وشكرا مسبقا
وفقنا الله واياكم
