从CSV文件直接读取并生成DATASET,然后显示在前台的DataGrid中,但是发现DataGrid的列标题被第一行内容复盖掉了。正常情况下如果一个DataSet没有列标题的话,会自动赋上列标题column1,comlumn2,......如何把列标题自动赋上呢。
这是所用的读CSV文件的方法:
Dim strConn As String
strConn = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq="
strConn = strConn & strFilePath
strConn = strConn & ";Extensions=asc,csv,tab,txt;"
Dim objConn As Odbc.OdbcConnection
objConn = New Odbc.OdbcConnection(strConn) Dim CSVDataSet = New DataSet
Try
Dim strSql As String
strSql = "select * from " & strFileName
Dim ODBCCSVDataAdapter As Odbc.OdbcDataAdapter
ODBCCSVDataAdapter = New Odbc.OdbcDataAdapter(strSql, objConn)
ODBCCSVDataAdapter.Fill(CSVDataSet)
Return CSVDataSet
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Function
End Try
这是所用的读CSV文件的方法:
Dim strConn As String
strConn = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq="
strConn = strConn & strFilePath
strConn = strConn & ";Extensions=asc,csv,tab,txt;"
Dim objConn As Odbc.OdbcConnection
objConn = New Odbc.OdbcConnection(strConn) Dim CSVDataSet = New DataSet
Try
Dim strSql As String
strSql = "select * from " & strFileName
Dim ODBCCSVDataAdapter As Odbc.OdbcDataAdapter
ODBCCSVDataAdapter = New Odbc.OdbcDataAdapter(strSql, objConn)
ODBCCSVDataAdapter.Fill(CSVDataSet)
Return CSVDataSet
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Function
End Try
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货