[VB.NET] Da file Excel a DB Access

[ikaroweb]

Salve a tutti vorrei sapere come fare per copiare il contenuto di un foglio excel in un db access.
Io sono riuscito ad aprire il file excel e portarlo in una griglia ora vorrei portare i valori del foglio o della griglia in un database access come posso fare?

[galaxy]

devi ricrearti la struttura della tabella del db in excel, poi vai di copia, incolla... ovviamente devi stare attento ai campi key e foreign-key.


saluti

[sosan1]

Se lo devi fare a mano Non devi fare copia e incolla, ma puoi tranquillamente aprire il tuo db di access e selezionare NUOVA TABELLA/IMPORTA DATI e selezionare quindi il tuo file excel, li poi ti chiederà le varie informazioni ad es. se ci sono le righe di intestazione, se ci sono campi che non vuoi importare ecc., se vuoi che i dati di excel finiscano in una nuova tabella o in una esistente

oppure, se lo vuoi fare da codice


Aggiungere il riferimento alla libreria Excel.



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




Private Sub cmdLeggiExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAvvia.Click
Dim nomeFile As String
Dim mioPath As String
Dim nome As String
Dim cognome As String

mioPath = "C:\Documents and Settings\Excel\"
nomeFile = "mia_cartella.xls"

ApriExcel()
'file, foglio
ApriFile(mioPath & nomeFile, 1)

Dim numriga
Dim appoCapofila
For numriga = 2 To dammiNumRighe()
CellaFoglioExcel = FoglioExcel.Cells(numriga, 3)

nome= CellaFoglioExcel.Value
CellaFoglioExcel = FoglioExcel.Cells(numriga, 5)
cognome= CellaFoglioExcel.Value
insertRecord(nome, cognome)


Next


chiudifile()
chiudiExcel()
lblmess.Text = "Operazione terminata"
End Sub