[firebase-br] problema no recordset

Otto ottofuch em terra.com.br
Qui Mar 9 20:18:51 -03 2006


Copie a mensagem de erro e cole no campo de pesquisa do Google, e veja o que
vai aparecer.
[]´s
Otto
----- Original Message ----- 
From: "Daniel Weber" <wweber em brturbo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Thursday, March 09, 2006 4:36 PM
Subject: [firebase-br] problema no recordset


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
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa







Mais detalhes sobre a lista de discussão lista