【发布时间】:2021-11-18 08:44:28
【问题描述】:
我正在使用下面的源代码在 VB.Net 中开发我的应用程序,但我遇到的问题是 DataGridView 中的数据未完全显示。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As OleDb.OleDbConnection
Dim dta As OleDb.OleDbDataAdapter
Dim dts As DataSet
Dim excelpath As String
Dim ExcelQuery As String = "Select * From [IOT_NOVA$B12:S257]"
Try
If TextBox1.Text = "" Then
MsgBox("Please select Excel file to upload!", vbExclamation)
Exit Sub
End If
excelpath = TextBox1.Text
conn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excelpath + ";Extended Properties='Excel 12.0;HDR=YES;IMEX=1';")
dta = New OleDb.OleDbDataAdapter(ExcelQuery, conn)
DtSet = New DataTable
dta.Fill(DtSet)
DataGridView1.DataSource = DtSet
conn.Close()
conn.Dispose()
Catch ex As Exception
MsgBox(ex.Message, vbCritical)
End Try
End Sub
【问题讨论】:
标签: vb.net datagridview