Public Class Import
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim controllo = Me.DatiExcelDataSet.DatiTot.Rows.Count
Dim i = 0
For i = 1 To controllo Step 1
If i = controllo Then
Exit For
End If
Dim Bike = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Bicicletta
Dim Cat = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Categoria
Dim Dat = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Data
Dim Desc = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Descrizione
Dim Nots = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Note
Dim CondizioniMet = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.CondizioniMeteo
Dim Chilomet = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Chilometraggio
Dim VMax = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.VelocitàMassima
Dim AVG = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.VelocitàMedia
Dim TT = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.TempoTotale
Dim Year = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Anno
Dim Day = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Giorno
Dim Partec = From riga As DatiExcelDataSet.DatiTotRow In Me.DatiExcelDataSet.DatiTot _
Where riga.Nr = i Select riga.Partecipanti
Dim InsertinDatiBici As DBDatiBiciDataSetTableAdapters.DatiBiciTableAdapter = New DBDatiBiciDataSetTableAdapters.DatiBiciTableAdapter
Try
InsertinDatiBici.ImportQuery1(Dat, Desc, Nots, CondizioniMet, Chilomet, VMax, AVG, TT, Year, Cat, Bike, Day, Partec)
MsgBox("Inserimento in database completato" & i & "riga", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Next
End Sub
Private Sub Import_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DatiTotTableAdapter.Fill(Me.DatiExcelDataSet.DatiTot)
Me.DatiBiciTableAdapter.Fill(Me.DbDatiBiciDataSet.DatiBici)
End Sub
End Class