Da flexgrid a Db access

[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

Cmq l'obiettivo e':

Apro un file excel guardo i turni lo metto dentro una flexgrid (E lo faccio tutto ok) poi dalla Flexgrid dopo averli visti e accettati li voglio inserire in una tabella di un db access.

Ti faccio l'esempio della tabella:

IdPerOpe - RCodPer - RcodTurno - RcodTipLav - data
1 123 1 2 12/02/08

io in excel che faccio..creo la turnazione metto il personale il codice per ogni persona il codice del turno e del tipo di lavoro e la data della turnazione quando e' valida.
Da li la mette nella flexgrid,e fino a qui lo faccio e va tutto bene.

ma ora vorrei capire come fare a mettere i dati in ciclo dalla flexgrid che visiona ad access,tramite una insert sql.


(io lavoro a via ostiense..)

[nikeddy]

Sicuro devo scorrere ogni volta una riga e poi una colonna e inserire a rotazione.

Agendo su TextMatrix?

Dim X As Integer
With fxg_turni
For X = 1 To .Rows - 1
' If .TextMatrix(X, Y) = "91" Then
.col = Y ' y e' il numero della colonna flex contenente il valore cercato
.Row = X ' x è il numero della riga della Flex contenente il valore cercato
End If
Next
End With

End Sub


AIUTOOOOOOOOO

[nikeddy]

oregon help....Salvami

[nikeddy]

mmm E' inserire i dati da excel a flexgrid e poi passare a access

ufff

[nikeddy]

potrei anche solamente controllare i dati della flexgrid presi da excel

controllo e confermo

e da excel passa i dati dentro la tabella access.

pero' come faccio a mettere le if nel programma?cioe' se e' M1 allora nel db metti RcodTurno = 1 ecc?

grazie

[nikeddy]

mmm fare un ciclo di insert! come farlo?????