If I use the following to add records from one Database to another :
VB Code:
Do While Not rstHDNET.EOF With rstLabel .AddNew() .Fields("PROD_CODE").Value = rstHDNET("Q$LITM").Value .Fields("PROD_DESC").Value = rstHDNET("Q$DSC").Value .Fields("PROD_PRICE").Value = Math.Round(rstHDNET("Q$SRP").Value, 2) .Update() End With prgMain.Value = rstHDNET.AbsolutePosition rstHDNET.MoveNext() Application.DoEvents() lblCount.Text = "Record Number " & rstHDNET.AbsolutePosition & " of " & rstHDNET.RecordCount Loop
It will do around 130000 records in about 10 minutes.
If I use a dataset and use the mydataadapter.update(mydataset, "tablename") it takes absolutley donkeys years. Like around 3 hours or something.
Am I doing something wrong or what???




Reply With Quote