17-01-20, 09:38 PM
كود :
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