olá pessoal

o q pode estar errado com este código:

rsTabela.Open "orca", cnConexao, adOpenStatic, adLockPessimistic
  rsTabela.AddNew

 

esta demorando muito, o banco é access e tem mais de 3000 reg

seguinte, se vc quer dar um simples insert, pq nao assim

 

sql="insert into tabela(campo1,campo2) values (" & txt1.text & "," & txt1.text & ")"

conexao.execute sql

Você diz que tem um problema, mas não diz o erro, apenas que está lento...

Isso pode ser um conjunto de problemas, 3000 registros é muito pouco para dar esse erro, tenho bases de dados com mais de 50000 registros e isso não ocorre.

Primeiro, adOpenStatic faz uma cópia dos dados para a memória, prefira usar adOpenKeyset, que carrega apenas um ponteiro para os registros;

Verifique a integridade da base de dados, mande reparar e compactar, depois, verifique a rede (caso esteja em uma), por último, tente aumentar o timeout da conexão e dos comandos, atraves das propriedades ConectioTimeout e CommandTimout, defina as duas para 60 ou 120 (o padrão é 30). Talvez isso ajude.

 

Sandro.

Ola amigo,,,  eu faço da seguinte maneira:

 

---------------------------------------------------------------

'CONSULTAR REGISTROS:

TabBibli.CursorLocation = adUseServer
TabBibli.Open "Select seq, titulo, subtitulo from CadLivro where seq =" & Text & "", BancoBibli, adOpenForwardOnly, adLockReadOnly, adCmdText
----------------------------------------------------

 

---------------------------------------------------

'GRAVA REGISTROS:

TabBibli.CursorLocation = adUseServer
TabBibli.Open "Select * From CadLivro", BancoBibli, adOpenKeyset, adLockOptimistic, adCmdText

TabBibli.AddNew
-------------------------------------------------------

 

 

dessa forma acima, eu tenho os registro d acordo com o criterio informado para consulta, usando banco d dados access...

 

t+