[firebase-br] problema no recordset

[Daniel Weber]

Vamos a questao
1-eu uso vb e vb.net com o firebird mas o meu problema esta no vb6 com o firebird, atualmente eu realizo a conexao atraves do drive odbc da ibphonex(acho q e assim q se escreve).
2-um amigo me indicou um drive oledb da ibprovider, muito mais rapido para o acesso e estou migrando um projeto pronto todo escrito para o odbc mas esta dando erro ao passar para o ibprovider

vamos ao codigo
conexao com o banco
con.Open "Provider=LCPI.IBProvider.3;Data Source=" & "localhost:C:\Teste\teste.fdb" & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey" & ";Persist Security Info=True"
con.Properties("Session AutoCommit") = True

ate aqui tudo ok, o meu problema esta onde eu fiz um pqno form para realizar os testes e ja consultei todos os links de exemplos e tudo mais q tinha disponivel no site do ibprovider (ver links abaixo)

oq acontece qndo eu realizo uma insercao de registro pelo metodo insert ok funciona perfeitamente
con.Execute "Insert Into xxtestexx (nome,teste) Values ('" & "NomeA" & "','" & "testeA" & "')"


agora qndo eu utilizo o metodo addnew, como mostra os proprios exemplos do site da erro, diz que o conjunto de registros nao oferece suporte a tal, q pode ser uma restricao do provedor ou do tipo de bloqueio, porem ja mudei todos os ponteiros mudei para todas as opcoes de bloqueio inclusive cheguei a copiar o codigo do site mesmo para testar e continua dando o erro, a questao e preciso saber onde estou errando pois a aplicacao total tem 95 forms e em varios eu usei o metodo addnew e em outros o insert e eu preciso migrar para esse provedor.


Set Ts1 = New ADODB.Recordset
Ts1.Open "SELECT * FROM xxtestexx", con, adOpenDynamic, adLockOptimistic

Ts1.AddNew
Ts1!nome = "nomeA"
Ts1!Teste = "testeA"
Ts1.Update

link para os exemplos 
http://www.ibprovider.com/eng/documentation/examples.html

link para dowload do ibprovider free
apenas a dll
http://www.ibprovider.com/download/eng/free/eng_2002_01_11_IBProviderFree_dll.zip
executavel de instalacao com o help
http://www.ibprovider.com/download/eng/free/eng_IBProviderFree.exe


at Weber