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
Aiuto aiuto aiuto....da vb6 a vb.net per progetto xls to sql server
giovedì 10 maggio 2007 - 14.50
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
pweb
Profilo
| Newbie
9
messaggi | Data Invio:
gio 10 mag 2007 - 14:50
Innanzitutto Ciao a tutti ....
sono nuovo di vb.net e sto cozzando con ado.net
Lo scopo del progetto che devo fare è confrontare i valori di due fogli xls e fare un report....
qualcuno ha qualche idea in merito?
In ogni caso il mio problema è sul primo passo ovvero passare i dati da un foglio excel metterli su una tabella sql server....
1)Riesco a leggere le celle che mi interessano....
2) Riesco a trasferire i valori in un dataset tipizzato (sto provando cn cquesto sistema...se qualcuno suggerisce altro ben venga)
ma non riesco a salavare i dati dal dataset tipizzato a sql server?
Qui di seguito riporto il codice che ho scritto ovviamernte manca la parte per salvare i dati dal dataset a sql server......
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim excelApp As Microsoft.Office.Interop.Excel.Application
Dim FileExcel As Microsoft.Office.Interop.Excel.Workbook
Dim FoglioExcel As Microsoft.Office.Interop.Excel.Worksheet
Dim RangeExcel As Microsoft.Office.Interop.Excel.Range
Dim ds As New dsConfronto
Dim TabFornMese As New dsConfronto.TabFornMeseDataTable
Dim Rtf As dsConfronto.TabFornMeseRow
'Dim n As Int16
'applicazione Excel
excelApp = New Microsoft.Office.Interop.Excel.Application
'cartella di lavoro Excel
FileExcel = excelApp.Workbooks.Open("D:\file.xls")
'excelApp.Visible = True
'n = FileExcel.Sheets.Count
'seleziono il primo foglio
FoglioExcel = FileExcel.Worksheets("nome foglio")
ds.BeginInit()
For irow As Integer = 2 To 2
Rtf = ds.TabFornMese.NewRow
For icol As Integer = 1 To 9
If icol = 1 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.CodUtil = RangeExcel.Value
ElseIf icol = 2 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.DataRich = RangeExcel.Value
ElseIf icol = 3 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.Servizio = RangeExcel.Value
ElseIf icol = 4 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.DettServ = RangeExcel.Value
ElseIf icol = 5 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.Quantita = RangeExcel.Value
ElseIf icol = 6 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.PzUnit = RangeExcel.Value
ElseIf icol = 7 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.AddTot = RangeExcel.Value
ElseIf icol = 8 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.Nominativo = RangeExcel.Value
ElseIf icol = 9 Then
RangeExcel = FoglioExcel.Cells(irow, icol)
Rtf.Riferimento = RangeExcel.Value
End If
Next
Next
'+++++++++++++++ Qui manca la parte per passare i dati dal dataset a sql server
'+++++++++++++++ Vi prego aiutatemi è la prima volta che uso ado.net
RangeExcel = Nothing
FoglioExcel = Nothing
FileExcel = Nothing
excelApp = Nothing
End Sub
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 !