تمام يا فندم المشكله اتحلت دلوقتي بقى يقولي The Microsoft Jet database engine could not find the object 'data$'. Make sure the object exists and that you spell its name and the path name correctly. ياريت لو تشوف الحل عندك في البرنامج اللي انا بعتهولك :) وشكرا واسف على التعب
حضرتك في الفيجوال بيسك تمام حضرتك بس جاتلي مشكله اني لما ببدأ بتجيلي الكلمه دي Cannot update. Database or object is read-only. وحضرتك كمان لما بضغط f11 بتجيلي عند ال form events و تثبت عليها كانها مشكله الكود : Public Class Form1 Function GetDatafromExcelSheet(ByVal FilePath As String, ByVal sql As String) As DataTable Dim Myconnection As New OleDb.OleDbConnection Dim Mycommand As New OleDb.OleDbCommand Dim da As New OleDb.OleDbDataAdapter Dim dt As New DataTable Myconnection.ConnectionString = "provider=Microsoft.Jet.Oledb.4.0;Data Source='" & FilePath & "';Extended Properties=Excel 8.0" Mycommand.Connection = Myconnection Mycommand.CommandText = sql da.SelectCommand = Mycommand da.Fill(dt) Return dt End Function Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Dim dt As New DataTable dt = GetDatafromExcelSheet("C:/Atlas/database/atlas.xlsx", "Select distinct القارة from [data$]") cmbbxContinent.DataSource = dt cmbbxContinent.DisplayMember = dt.Columns(0).ToString cmbbxContinent.ValueMember = dt.Columns(0).ToString cmbbxContinent.SelectedIndex = 1 End Sub End Class
بارك الله فيك.هل من طريقة لتحويل المشروع إلى صيغة apk أو exe
ممكن هذا البرنامج يشتغل على الونيدوز والاندرويد
تمام يا فندم المشكله اتحلت دلوقتي بقى يقولي The Microsoft Jet database engine could not find the object 'data$'. Make sure the object exists and that you spell its name and the path name correctly. ياريت لو تشوف الحل عندك في البرنامج اللي انا بعتهولك :) وشكرا واسف على التعب
ورقة العمل فى ملف الاكسل لازم يكون اسمها data
حضرتك في الفيجوال بيسك
تمام حضرتك بس جاتلي مشكله اني لما ببدأ بتجيلي الكلمه دي Cannot update.
Database or object is read-only.
وحضرتك كمان لما بضغط f11 بتجيلي عند ال form events و تثبت عليها كانها
مشكله
الكود :
Public Class Form1
Function GetDatafromExcelSheet(ByVal FilePath As String, ByVal sql
As String) As DataTable
Dim Myconnection As New OleDb.OleDbConnection
Dim Mycommand As New OleDb.OleDbCommand
Dim da As New OleDb.OleDbDataAdapter
Dim dt As New DataTable
Myconnection.ConnectionString =
"provider=Microsoft.Jet.Oledb.4.0;Data Source='" & FilePath &
"';Extended Properties=Excel 8.0"
Mycommand.Connection = Myconnection
Mycommand.CommandText = sql
da.SelectCommand = Mycommand
da.Fill(dt)
Return dt
End Function
Private Sub Form1_Shown(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Shown
Dim dt As New DataTable
dt = GetDatafromExcelSheet("C:/Atlas/database/atlas.xlsx",
"Select distinct القارة from [data$]")
cmbbxContinent.DataSource = dt
cmbbxContinent.DisplayMember = dt.Columns(0).ToString
cmbbxContinent.ValueMember = dt.Columns(0).ToString
cmbbxContinent.SelectedIndex = 1
End Sub
End Class
اضغط ملف المشروع وابعتهولى على الايميل
اتفضل حضرتك و شكرا على مجهودك وتعبك معانا
up.top4top.net/downloadf-2944r37p1-rar.html
انت تستخدم ملف اكسل بامتداد xlsx
حول الملف الى xls وغير الامتداد فى الكود الى xls
+Sameh Kamel شكرا يا فندم هشوفها وهبلغ حضرتك على اي مشكله وشكرا ع المساعده