Microsoftjetoledb

Hai un problema con Excel?

Nuova discussione

Microsoft.jet.oledb ???
di Paolo (utente non iscritto) data: 07/05/2011
Salve,
vorrei utilizzare il codice sql su tabelle di u foglio excel. ho letto che è possibile con: microsoft.jet.oledb.4.0 !!!
come si usa ???
qual'è il migliore, il più veloce fra questi???
.. microsoft jet ole db 4.0
.. ace oledb 12.0
.. microsoft excel odbc driver

ho trovato questa dicitura in internet: il data source non deve essere un file, ma lo stesso file, come faccio???
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=c:somepathmySpreadsheet.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes"""

Microsoft.jet.oledb ???
di Paolo (utente non iscritto) data: 07/05/2011
Ho trovao questo codice, ma in vba non funziona!!!

aiuto

Private Sub WriteExcelFile(ByVal FilePath As String)
 Dim oledbConn As OleDb.OLEDBConnection
 Dim oleCmd As OleDb.OLEDBCommand
 oledbConn = New OleDb.OLEDBConnection
 oledbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
 FilePath & ";Extended Properties = ""Excel 8.0;HDR=YES;"""
 oledbConn.Open
 oleCmd = New OleDb.OLEDBCommand
 oleCmd.Connection = oledbConn
 For I = 0 To 10
  oleCmd.CommandText = "INSERT INTO [Foglio1$] (ColonnaA, ColonnaB, ColonnaC) VALUES " & _
  "('Riga " & I & " Colonna A', 'Riga " & I & " Colonna B', 'Riga " & I & " Colonna C')"
 oleCmd.ExecuteNonQuery
 Next
 oleCmd.Dispose
 oleCmd = Nothing
 oledbConn.Dispose
 oledbConn = Nothing
End Sub

Private Sub ReadExcelFile(ByVal FilePath As String)
 Dim oledbConn As OleDb.OLEDBConnection
 Dim oleCmd As OleDb.OLEDBCommand
 Dim oleDR As OleDb.OleDbDataAdapter
 Dim myData As Data.DataSet
 myData = New Data.DataSet
 oledbConn = New OleDb.OLEDBConnection
 oledbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
  FilePath & ";Extended Properties = ""Excel 8.0;HDR=YES;"""
 Call oledbConn.Open
 oleCmd = New OleDb.OLEDBCommand
 oleCmd.Connection = oledbConn
 oleCmd.CommandText = "SELECT * FROM [Foglio1$]"
oleDR = New OleDb.OleDbDataAdapter(oleCmd)
oleDR.Fill(myData, "Tab")
myGridView.DataSource = myData.Tables("Tab")
myData.Dispose()
myData = Nothing
oleDR.Dispose()
oleDR = Nothing
oleCmd.Dispose()
oleCmd = Nothing
oledbConn.Dispose()
oledbConn = Nothing
End Sub

Vuoi Approfondire?