[VB6]: Inserimento dati da flex a tabella access

[vr-claudio]

Ciao ragazzi,
scusate ma secondo voi dove sto' sbagliando?:
Ho una flex dove utilizzo per inserire i dati in una tabella db.mdb e faccio cosi:

Set cn = New ADODB.Connection
Set rstTemp = New ADODB.Recordset


strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\...\DB.mdb"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strCnn & ";Jet OLEDBatabase"
adOpenDynamic, adLockOptimistic, adCmdText
rstTemp.Open "SELECT * FROM ORDINI_IN_ARRIVO", cn, adOpenDynamic, adLockOptimistic, adCmdText
rstTemp.AddNew
rstTemp!RIF_CLIENTE = Trim(FLEX.TextMatrix(FLEX.row, 0))
rstTemp!FORNITORE = Trim(FLEX.TextMatrix(FLEX.row, 1))
rstTemp!PRODOTTO = Trim(FLEX.TextMatrix(FLEX.row, 2))
...
...
Tutto cio' funziona ma mi copia solo la prima riga della flex, le altre non le considera nemmeno...dove sbaglio?

Grazie Claudio

[Grumpy]

Sai indicarmi, per favore, quali sono le linee di codice che secondo te dovrebbero aggiungere alla tabella del database le righe delle flexgrid successive alla prima?

(Tralasciamo per il momento la stringa di connessione)

[gibra]

Dovresti fare un ciclo sulle righe (rows) del FlexGrid.

[vr-claudio]

Ciao ragazzi,
scusate il ritardo, sotto indicazioni di Gibra ho fatto cosi' e sembra funzionare, ma resto
ad un vostro giudizio, ecco come ho fatto:

With FLEX
.col = .FixedCols
.row = .FixedRows
.ColSel = .Cols - 1
.RowSel = .Rows - 1
Debug.Print .Clip
For i = 1 To FLEX.Rows - 1
rstTemp.AddNew
rstTemp!RIF_CLIENTE = Trim(FLEX.TextMatrix(i, 0))
rstTemp!FORNITORE = Trim(FLEX.TextMatrix(i, 1))
rstTemp!PRODOTTO = Trim(FLEX.TextMatrix(i, 2))
...
rstTemp.Update
Next
rstTemp.Close
End With

Grazie infinite per la collaborazione e la velocità.
vr-claudio