السلام عليكم
أحاول الربط مع برنامج الاكسل عبر هذا الكود
Dim strCn As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & a & ";Extended Properties=Excel 12.0 " Dim query As String query = "SELECT * FROM [" & cmb_sheetN.Text & "]" cn = New OleDbConnection(strCn) If cn.State = ConnectionState.Closed Then cn.Open() cmd = New OleDbCommand(query, cn) da = New OleDbDataAdapter(cmd) ds = New DataSet() da.Fill(ds) For i = 0 To ds.Tables(0).Rows.Count - 1 dg.DataSource = ds.Tables(0).Rows(i).Item(0) Next da.Dispose() cn.Close() cn.Dispose() End If
توجد طرق عديده أسهل من ذلك ولكن العرض من هذا الكود
dg.DataSource = ds.Tables(0).Rows(i).Item(0)
هو جلب عمود واحد فقط من الاكسل مثل عمود (A) او (A)و ( B ) وذلك حسب مستخدم البرنامج
ولكن بدون جدوى حيث لا يوجد خطأ ولكن لا تظهر البيانات في الداتا جريد فيو
أرجو المساعدة في ذلك ولكم جزيل الشكر
