15000 query!

[longline]

Originariamente inviato da magnus
Ma così sarebbe ancora più lento che fare 15000 query!

Così come?

Dove ho scritto "Dovresti fare così"... è il modo più veloce che c'è, direi!

[magnus]

Originariamente inviato da longline
Così come?

Dove ho scritto "Dovresti fare così"... è il modo più veloce che c'è, direi!

Se ci fosse la possibilità di fare tutto in una sola query si farebbe molto prima

Nel caso che hai esposto comunque fai 15000 inserimenti...

[magnus]

Per il metodo transfertext devo provare... Forse potrebbe fare al caso mio... ( speriamo )

[longline]

Originariamente inviato da magnus
Se ci fosse la possibilità di fare tutto in una sola query si farebbe molto prima

Nel caso che hai esposto comunque fai 15000 inserimenti...

E che problema c'è? Tanto fa tutto automaticamente...

[xegallo]

pardon su db2 funziona

[magnus]

Originariamente inviato da longline
E che problema c'è? Tanto fa tutto automaticamente...

Si, ma in quanto tempo?

Il problema nel mio caso è il tempo!

Considera che facendo qualche calcolo in più ci vorrebbero minuti!
Invece ho bisogno di velocità

[longline]

In quanto tempo? Io ho fatto la prova con questo codice:

Private Sub Comando0_Click()

Dim db As DataBase
Dim rs As DAO.Recordset
Dim rec As Integer

Dim inizio As Date
Dim fine As Date

Set db = CurrentDb
Set rs = db.OpenRecordset("Tabella1", dbOpenDynaset)

inizio = Now()
For rec = 1 To 15000
  rs.AddNew
  rs!Campo = rec
  rs.Update
Next

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
fine = Now()

MsgBox "Per fare 15000 record ci ho messo " & DateDiff("s", inizio, fine) & " secondi."

End Sub

Questo è il risultato:

[magnus]

for i=1 to 3000
query="insert into eccc...."
conn.execute query
next i

Strano io con un codice del genere ci metto 7 secondi per fare 3000 query!


Allora adesso provo il metodo che mi hai proposto...

Ciao...

[longline]

Riceverai un errore di compliazione se non hai inserito il Riferimento "Microsoft DAO 3.6 Object Library" nel menu Strumenti -> Riferimenti.

[magnus]

Con questo sorgente ci metto 3 secondi ( 1000 record )!

inizio = Now()
For i = 1 To 1000
datPrimaryRS.Recordset.AddNew
datPrimaryRS.Recordset.Fields("test") = "01"
datPrimaryRS.Recordset.Update
Next i
fine = Now()
MsgBox "Per fare " & i & " record ci ho messo " & DateDiff("s", inizio, fine) & " secondi."

Perchè?