Postada em 09/07/2004 09:51 hs
Cara vc passou 240mil linhas passo a passo?
Brincadeira
Vc tá usando INSERT INTO, né? Tenta usar um Recordset:
Do While Not EOF(intArqu) Input #intArqu, strCodi, strNome adoRecordset.Open "SELECT * FROM Tabela", adoConexao, adOpenKeyset, adLockOptimistic adoRecordset.AddNew adoRecordset("IdCodigo") = strCodi adoRecordset("Nome") = strNome adoRecordset.Update adoRecordset.Close Loop Close #intArqu
________________________ Té + Que NIMB role bons Dados! 
|