Dim strConnUpload As String = " Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = " & FPath & ";Extended Properties=Excel 8.0" connUpload = New System.Data.OleDb.OleDbConnection(strConnUpload) connUpload.Open() Dim strSQL As String = "SELECT * FROM [Sheet1$]" Dim daUpload As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(strSQL, connUpload)Dim com As New System.Data.OleDb.OleDbCommand(strSQL, connUpload)dsUpload = New DataSet dsUpload.Clear() daUpload.Fill(dsUpload, "(Sheet1$)")showMsg(dsUpload.Tables("(Sheet1$)").Rows.Count) =========================== 这是导入的代码
connUpload = New System.Data.OleDb.OleDbConnection(strConnUpload)
connUpload.Open() Dim strSQL As String = "SELECT * FROM [Sheet1$]"
Dim daUpload As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(strSQL, connUpload)Dim com As New System.Data.OleDb.OleDbCommand(strSQL, connUpload)dsUpload = New DataSet
dsUpload.Clear()
daUpload.Fill(dsUpload, "(Sheet1$)")showMsg(dsUpload.Tables("(Sheet1$)").Rows.Count)
===========================
这是导入的代码
这两种方式好像不一样如果你没有数据的行有设置格式,可能也会出问题,你可以在EXCEL中加一个列,比如一列数字,在处理DATASET判断该列必须不能为空,否则不导入
excel表如果不輸入是null。輸入後刪除是""
所以導入時對加個判斷語句就行了。如果是""就不要錄入。
查詢時和數據庫一樣的。select * from [sheet1$]連接語句要寫一下,給個例子"Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + filepath + ";" +"Extended Properties='Excel 8.0';";