تقييم الموضوع :
  • 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



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


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