Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. WinForms / WPF .NET
Prima riga Excel
martedì 07 marzo 2006 - 10.44
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
Marc1982
Profilo
| Newbie
34
messaggi | Data Invio:
mar 7 mar 2006 - 10:44
Buongiorno,
io riesco a leggere il contenuto del file excel e delle sue righe l'unica cosa che salta la prima riga come sela vedesse cme l'intestazione..come posso fare a farla leggere??????
Sotto posto il codice usato
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Percorso & ";" & _
"Extended Properties=Excel 8.0;HDR=No")
con.Open()
Dim cmd As New OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", con)
DS = New DataSet
cmd.Fill(DS, "tabella")
Dim c As Integer
MsgBox(DS.Tables("tabella").Rows.Count)
For c = 0 To DS.Tables("tabella").Rows.Count - 1
If DS.Tables("tabella").Rows(c).Item(0) Is System.DBNull.Value = False Then
MsgBox(DS.Tables("tabella").Rows(c).Item(0))
End If
Next
con.Close()
Grazie mille
Marco
Ciciu
Profilo
| Senior Member
233
messaggi | Data Invio:
mar 7 mar 2006 - 13:16
Ciao.
Ho provato il Tuo codice e devo dire che funziona.
Ho fatto una prova mettendo le lettere "a", "b", "c", e "d" nelle celle A1, A2, A3 e A4.
>
>Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;"
>& _
> "Data Source=" & Percorso & ";" & _
> """Extended Properties=Excel 8.0;HDR=No""")
> con.Open()
Un problema che ho riscontrato è la mancanza dei doppi apici che racchiudono le Extended Properties. Ma a me dava un errore, per cui non mi apriva neanche la connessione... Proverei a racchiudere la sottostringa "Extended Properties=Excel 8.0;HDR=No" tra doppi apici, che significa, nell'ambito di una stringa, raddoppiarli...
Un altro dubbio che mi verrebbe, se fossi in Te, è il seguente : la cella A1 è carica ? Contiene qualcosa ? Se così non fosse, il Tuo controllo
>If DS.Tables("tabella").Rows(c).Item(0) Is System.DBNull.Value = False Then
Ti farebbe, ovviamente, saltare il primo message box...
Ciao - Fabio
Fabio G
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !