如何把Execl里的数据导入到DataGrid中？

Question

如何把Execl里的数据导入到DataGrid中？

Answer 1

通过OLEDB将Excel数据转换成sql server中的数据表中，然后再绑定。

Answer 2

用数据联结组件读出数据添加到dataGride中，也可以这样读出数据 到dataset中， 然后绑定到dataGride控件上了。

Answer 3

这段代码可以，不过是VB的Dim FileName As String
Dim DS As New DataSet
Dim FlowCode As String = "800"
Dim FP As String
Dim PFP As String
Dim Address As String
Dim MyCommand As OleDbDataAdapter
Dim MyConnection As OleDbConnection
Try
FileName = MaterialFileToUpload.PostedFile.FileName
FP = GetFileName(FileName)
PFP = Request.PhysicalApplicationPath & basedata1.InitiateEmpCode & "\FileUp\" & FlowCode
Address = PFP & FP'检查是否已存在该文件路径
If Not Directory.Exists(PFP) Then
Directory.CreateDirectory(PFP)
End IfMaterialFileToUpload.PostedFile.SaveAs(PFP & FP)
FileName = HalfFileToUpload.PostedFile.FileName
If CheckIsExcelFile(HalfFileToUpload.PostedFile.FileName) = False Then
lblMsg.Text = "<font color=red>请选择excel路径!!</font>"
Exit Sub
Else
MyConnection = New System.Data.OleDb.OleDbConnection( _
"provider=Microsoft.Jet.OLEDB.4.0; " & _
"data source=" & Address & "; " & _
"Extended Properties=Excel 8.0;")MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
"select * from [Sheet1$]", MyConnection)DS = New System.Data.DataSet
MyCommand.Fill(DS)
DGHalf.DataSource = DS.Tables(0).DefaultView
ViewState("Half") = DS.Tables(0)
DGHalf.DataBind()
DGHalf.Columns(0).Visible = False
DGHalf.Columns(6).Visible = False
End IfGetCancelTotalAmount()
Catch ex As Exception
lblMsg.Text = "<font color=red>请确认上载的excel格式是否正确!!</font>"
Finally
If Not MyConnection Is Nothing Then
If MyConnection.State = ConnectionState.Open Then
MyConnection.Close()
End If
End If
End Try
End Sub