Da flexgrid a Db access

[nikeddy]

Ok vorrei capire comefare il contrario..

cioe' importo i dati da excel in una flexgrid.

li visualizzo

premendo un bottone (esporta) me li inserisce in un database access (tabella )

il mio problema nasce qui sull'ultima istruzione...

io fino a farli vedere nella flexgrid ci sono (e ok) mi manca esportarli in una tabella access
(matrice come farla? scorrere uno ad uno i dati e inserirli uno ad uno)

help me ...

[nikeddy]

sono abituato a fare il contrario..se riuscite ad avere una solution.

attendo fiducioso

[oregon]

La tua riga rappresenta un record e le colonne i campi di una tabella.

Devi avere un db Access con una tabella organizzata con i campi che ti servono.
Poi, con un ciclo, fai tutte le INSERT ...

[nikeddy]

oregon posso farti i complimenti per le volte che mi rispondi.Grazie (se passi per roma hai una birra pagata.)

cmq

come faccio il ciclo per inserire i dati nel db?

[oregon]

Originariamente inviato da nikeddy
se passi per roma ...

Io ci abito a Roma ...

come faccio il ciclo per inserire i dati nel db?

Sai accedere alle singole colonne di una riga della griglia?

[nikeddy]

Private Sub Elaboraturni()
Dim percorso As String
Dim zona As String
Dim stit As String
Dim count As Integer
Dim excellapp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim risp As Integer
DoEvents

risp = MsgBox("Vuoi Importare il documento selezionato?", 1, "Importa turni")
If risp = 1 Then

excellapp.Workbooks.Open fileselezionato
excellapp.Worksheets(1).Select

fxg_turni.ColWidth(0) = 0
fxg_turni.ColWidth(1) = 1500

fxg_turni.Row = 0

fxg_turni.Rows = 1

fxg_turni.ColWidth(0) = 0

fxg_turni.Row = 0

fxg_turni.Col = 1
fxg_turni.Text = "Ausiliari"

fxg_turni.Col = 2
fxg_turni.Text = "Turnazione"

For i = 22 To 267
fxg_turni.Rows = fxg_turni.Rows + 1
fxg_turni.Row = fxg_turni.Rows - 1
'ID

fxg_turni.Col = 0
fxg_turni.Text = excellapp.Cells(i, 1)
txt_codaux.Text = excellapp.Cells(i, 1)
'NOMI

fxg_turni.Col = 1
fxg_turni.Text = excellapp.Cells(i, 2)
txt_nome.Text = excellapp.Cells(i, 2)
'Turnazione

fxg_turni.Col = 2
fxg_turni.Text = excellapp.Cells(i, 3)
txt_primogiorno.Text = excellapp.Cells(14, 4)
txt_data1.Text = excellapp.Cells(14, 4)
txt_turnazione.Text = excellapp.Cells(i, 3)
txt_datafine.Text = excellapp.Cells(19, 4)
fxg_turni.Col = 3

If IsDate(txt_primogiorno.Text) Then

Dim LastDate As Date

LastDate = DateAdd("d", 1, CDate(txt_primogiorno.Text))
For a = 0 To txt_datainizio.count - 1
txt_datainizio(a).Text = LastDate
If Weekday(LastDate) = 1 Then
txt_datainizio(a).ForeColor = vbRed
Else
txt_datainizio(a).ForeColor = vbBlack
End If
fxg_turni.Text = LastDate
LastDate = DateAdd("d", 1, LastDate)
fxg_turni.Col = 3
fxg_turni.Text = txt_primogiorno.Text
Next a
fxg_turni.Col = 4
fxg_turni.Text = txt_datainizio(0)
fxg_turni.Col = 5
fxg_turni.Text = txt_datainizio(1)
fxg_turni.Col = 6
fxg_turni.Text = txt_datainizio(2)
fxg_turni.Col = 7
fxg_turni.Text = txt_datainizio(3)
fxg_turni.Col = 8
fxg_turni.Text = txt_datainizio(4)

End If

If Err Then
MsgBox ("Il file " & stit & " non è stato trovato.")

End If
DoEvents

percorso = ""
zona = ""
stit = ""

Next i
End If
End Sub


cosi ora leggo....elaboro..ma come inserisco?

singola riga uso Row

[nikeddy]

Oregon dove a roma?

[nikeddy]

nulla..oregon help

[nikeddy]

help..

[oregon]

Non ho capito una cosa ... la connessione al DB l'hai gia' fatta?

Puoi inserire il codice tra i tag CODE e /CODE ? Altrimenti si fa fatica a seguirlo ...

In quale punto del codice hai tutti i dati che ti servono per un singolo record? In quel punto utilizzi il metodo Execute di una connection con la frase SQL

INSERT INTO ...

P.S. Lavoro a centro ...