تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ما الخطأ في هذا الكود
#1
كود :
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;datasource='" & 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("D:\atlas\database\atlas.xls", "Select القارة from [data$]")
       Me.cmbbxcontinent.DataSource = dt
       Me.cmbbxcontinent.DisplayMember = dt.Columns(0).ToString
       Me.cmbbxcontinent.ValueMember = dt.Columns(0).ToString
       Me.cmbbxcontinent.SelectedIndex = 1

   End Sub
End Class
الرد
تم الشكر بواسطة:
#2
الخطأ في datasource، فهي كلمتين منفصلتين بمسافة فتكون data source
الرد
تم الشكر بواسطة: sawsan , sawsan
#3
(17-01-20, 09:46 PM)جميل4 كتب : الخطأ في datasource، فهي كلمتين منفصلتين بمسافة فتكون data source

شكراً جزيلاً , لم أنتبه إلي ذلك
الرد
تم الشكر بواسطة: جميل4


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماسبب عدم تنفيذ الكود عند استخدام قارئ الباركود جيولوجي مبتدئ 4 115 24-07-21, 08:07 AM
آخر رد: جيولوجي مبتدئ
  ازاى احفظ الكود masport tv 1 73 21-07-21, 12:48 AM
آخر رد: ميدو الفنان
  ارجو منكم المساعده و التعديل علي الكود اليوم السابع 5 297 14-06-21, 09:58 PM
آخر رد: trakktour
  كيف استثني يوم الجمعة في الكود التالي abomo3ath 1 184 07-06-21, 11:51 PM
آخر رد: Fareed2
  [VB.NET] كيف أستخدم TRansaction حتى أضمن تطبيق الكود بشكل جيد sniperjawadino 6 522 09-05-21, 05:29 PM
آخر رد: sniperjawadino
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 4 596 23-04-21, 08:30 AM
آخر رد: d3vc0d
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 532 10-04-21, 06:33 PM
آخر رد: معتز حسن
  [VB.NET] اريد مساعدة في حل الكود asrar 6 1,049 27-03-21, 11:08 PM
آخر رد: asrar
  كيف أحط attachment في إيميل المرسل من البرنامج؟ ما هو الكود؟ Alziny 2 416 27-03-21, 05:17 AM
آخر رد: علي بنيان
  ارجو التعديل علىى هذا الكود من فضلكم على زهران 2 567 19-03-21, 11:31 PM
آخر رد: على زهران

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم