from Excel to Db

[Daniele80]

ciao,
chi mi spiega i vari passi per portare dei dati da excel ad un Db.
Praticamente io devo fare un file di Excel predisposto da me nel quale farò inserire dei dati. Poi dalla console devo leggere cella per cella e inserire i vari valori dentro al DB.

spero in qualche suggerimento.

ciao

[Trinità]

bhè un excel lo puoi leggere come un db , usi la stringa di connessione giusta (connectionstring.com)

a sto punto quando lo hai letto non ti resta che scrivere dentro il tuo access con un ciclo di qualche tipo.

Se legge questo topic _Jc ti potrebbe aiutare pechè mi pare che in qualche altro post parlava di lavori tipo questo

[Jc_]

bravo jc_ che si dimentica di mandare la roba a daniele..



sono in ufficio...
rimandami un altra mail dany.. sorry again

[Daniele80]

io l'email te l'ho mandata.

[Daniele80]

senti visto che devo aspettare Jc_ intanto ho provato a cercare qualcosa in rete.

''You can also use the Excel ODBC driver I believe - didn''t try though
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\exceltest.xls;" & _
"Extended Properties=""Excel 8.0;"""

''You must use the $ after the object you reference in the spreadsheet
Dim objreader As New OledbDataReader("SELECT * FROM [Sheet1$]", strConn)

ora come scorro il file? al file excel devo assegnare dei nomi alle colonne..

aiutooooooooooooo

[Jc_]

e aspetta che torno a casaaa. c'è tutto li dentro !

[Daniele80]

Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("prova.xls") & ";Extended Properties=Excel 8.0;"


        Dim oConn As OleDbConnection = New OleDbConnection

        oConn.ConnectionString = strConn
        oConn.Open()

        Dim oCmd As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Foglio1$]", oConn)
        Dim oDS As DataSet = New DataSet
        oCmd.Fill(oDS)
        Dim oRow As DataRow
        For Each oRow In oDS.Tables(0).Rows
            Response.Write("Row: " + oRow("cod_art").ToString() + "
")
        Next 


        If (oConn.State = ConnectionState.Open) Then
            oConn.Close()
        End If

mi aiutate con il ciclo visto che c'è qualcosa che non va.

[DeBe99]

invece che andare per nome colonna, non puoi usare l'indice ?

[Daniele80]

senti non ho trovato molto materiale in giro, perciò se sai come fare mi fai vedere del codice cosi lo provo.

[Daniele80]

ci sono riuscito anche se aspetto qualche dritta da Jc_

Dim oRow As DataRow
        For Each oRow In oDS.Tables(0).Rows
            Response.Write("Row: " + oRow(0).ToString() + "-")
            Response.Write("Row: " + oRow(1).ToString() + "-")
            Response.Write("Row: " + oRow(2).ToString() + "-")
            Response.Write("Row: " + oRow(3).ToString() + "-")
            Response.Write("Row: " + oRow(4).ToString() + "
")
        Next