用Visual Studio 2005实现将Excel工作表中数据转到Access表中
用Visual Studio 2005实现将Excel工作表中数据转到Access表中求助
用Visual Studio 2005实现将Excel工作表中数据转到Access表中，用下面语句运行：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.OpenFileDialog1.Filter = "Excle文件(*.xls)|*.xls"
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
TextBox1.Text = Me.OpenFileDialog1.FileName
Dim myDataset As New DataSet
Dim ExcelConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & TextBox1.Text & "';Extended Properties=Excel 8.0;"
Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", ExcelConnStr)
Me.Cursor = Cursors.WaitCursor
Try
myDataAdapter.Fill(myDataset)
DataGridView1.DataSource = myDataset.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
Me.Cursor = Cursors.Default
Exit Sub
End Try
End If
End Sub
运行时数据处理完了，但为什么鼠标总是“漏斗”型的，不变回指针状，是不是没有关闭哪个过程造成的？
------解决方案--------------------
Me.Cursor = Cursors.Default
写到Catch块里了，没异常的话不会执行
用Visual Studio 2005实现将Excel工作表中数据转到Access表中，用下面语句运行：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.OpenFileDialog1.Filter = "Excle文件(*.xls)|*.xls"
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
TextBox1.Text = Me.OpenFileDialog1.FileName
Dim myDataset As New DataSet
Dim ExcelConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & TextBox1.Text & "';Extended Properties=Excel 8.0;"
Dim myDataAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", ExcelConnStr)
Me.Cursor = Cursors.WaitCursor
Try
myDataAdapter.Fill(myDataset)
DataGridView1.DataSource = myDataset.Tables(0)
Catch ex As Exception
MsgBox(ex.Message)
Me.Cursor = Cursors.Default
Exit Sub
End Try
End If
End Sub
运行时数据处理完了，但为什么鼠标总是“漏斗”型的，不变回指针状，是不是没有关闭哪个过程造成的？
------解决方案--------------------
Me.Cursor = Cursors.Default
写到Catch块里了，没异常的话不会执行