Here's my connection string
Expand|Select|Wrap|Line Numbers
- Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Book1.xls;Extended Properties=""Excel 12.0;HDR=NO"""
Expand|Select|Wrap|Line Numbers
- INSERT INTO [Sheet1$](ColA,ColB,ColC,ColD) VALUES('A','B','C','D')
Help would be very much appreciated
working code with header:
Expand|Select|Wrap|Line Numbers
- Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Book1.xls;Extended Properties=""Excel 12.0;HDR=YES"""
- Dim factory As DbProviderFactory = DbProviderFactories.GetFactory("System.Data.OleDb")
- Dim Command As DbCommand = factory.CreateCommand
- Dim Connection As DbConnection = factory.CreateConnection()
- Connection.ConnectionString = connectionString
- Command.CommandText = "INSERT INTO [Sheet1$](ColA,ColB,ColC,ColD) VALUES('A','B','C','D')"
- Connection.Open()
- Command.Connection = Connection
- Command.ExecuteNonQuery()