大家好,事实证明我正在制作一个导入器,其中包括将数据从 Excel 文件加载到 SQL Server 制作的表(在 VB.NET 制作的应用程序中),我正在根据我的需要和何时调整代码导入 Excel 文件给我以下错误
Microsoft ACE.OLEDB.12.0 提供程序未在本地计算机上注册。
值得一提的是,我的电脑上安装了office 2016,我使用的visual studio是VB 2010 Pro,我不知道这是否是我错误的原因,非常感谢你能给我的任何指导。
Sub excelAsql()
Dim myFileDialog As New OpenFileDialog()
Dim xSheet As String = ""
With myFileDialog
.Filter = "Archivos de Excel |*.xlsx"
.Title = "Abrir archivo excel"
.ShowDialog()
End With
If myFileDialog.FileName.ToString <> "" Then
Try
Dim ExcelFile As String = myFileDialog.FileName.ToString
xSheet = InputBox("Nombre de la Hoja", "")
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "data source=" & ExcelFile & "; " & "Extended Properties='Excel 12.0;HDR=Yes'")
conn.Open()
da = New OleDbDataAdapter("SELECT * FROM [" & xSheet & "$]", conn)
Dim dt As New DataTable
da.Fill(dt)
frmLista.DataGridView1.DataSource = dt
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
已修复(根据我的个人经验)!
安装以下驱动程序数据连接组件