Connection til Excel
Jeg kan godt lave en forbindelse med denne connection string: Microsoft.Jet.OLEDB.4.0Men kan ikke få skabe en forbindelse med denne connection string:
Microsoft.ACE.OLEDB.12.0
Hvordan får jeg ACE forbindelsen til at virke, så jeg kan skabe forbindelse til xlsx Excel-filer?
Public Sub Excel()
Dim MyConnection As OleDb.OleDbConnection
Dim MyCommand As OleDb.OleDbCommand
Dim sql As String
MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='c:\Test\Test.xls';Extended Properties=Excel 8.0")
'MyConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='c:\test\test2.xlsx';Extended Properties='Excel 12.0 Xml';HDR=YES")
sql = "Update [Ark1$] set name = 'New Name' where id=1"
Try
MyConnection.Open()
MyCommand = New OleDb.OleDbCommand(sql, MyConnection)
MyCommand.ExecuteNonQuery()
MyCommand.Dispose()
MyCommand.Clone()
MsgBox("Der er skabt forbindelse")
Catch ex As Exception
MsgBox("Der er ikke skabt forbindelse")
End Try
MyConnection.Close()
End Sub