ERRO VB COM ORACLE -1
Senhores meus amigos.
Estou apanhando ao dar um select na minha aplicacao VB no banco oracle. Até testo o a condicao pra saber se achei o registro ou nao. Mas ele encontrando ou nao me retorna na tela no absolutepositon o resultado -1
Mando a sintaxe do select e da conexao.
Agradeço se alguem me ajudar o corrigir o erro.
Abraço a todos
[ô]Inicica conexão com o banco de dados
usuario = [Ô]xyz[Ô]
senha = [Ô]zyz[Ô]
servidor = [Ô]AJR[Ô]
bancodados = [Ô]xyz[Ô]
cn.Provider = [Ô]SQLOLEDB[Ô]
cn.Properties([Ô]Data Source[Ô]).Value = servidor
cn.Properties([Ô]Initial Catalog[Ô]).Value = bancodados
cn.Properties([Ô]User ID[Ô]).Value = usuario
cn.Properties([Ô]Password[Ô]).Value = senha
cn.Open
cn1.Provider = [Ô]MSDAORA[Ô]
cn1.Properties([Ô]Data Source[Ô]).Value = [Ô]teste_local[Ô]
cn1.Properties([Ô]User ID[Ô]).Value = [Ô]MExyz[Ô]
cn1.Properties([Ô]Password[Ô]).Value = [Ô]ExyzA[Ô]
cn1.Open
sqlNota = [Ô]SELECT * FROM MGFIN.FIN_VW_BAIXASCRE WHERE TO_number(BXMOV_ST_DOCUMENTO) = [ô][Ô] & cnumtitulo1 & [Ô][ô] and BXMOV_ST_PARCELA = [Ô] & cparcela & [Ô] and ORIMOV_DT_DATADOCTO = [ô][Ô] & Format(diapes & [Ô]/[Ô] & mespes & [Ô]/[Ô] & anopes, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô] AND BXORG_IN_CODIGO=2 [Ô]
Set rsnota = cn1.Execute(sqlNota)
If rsnota.EOF Then
anopg1 = [Ô]nao[Ô] [ô]MsgBox [Ô]Titulo não cadastrado.[Ô], vbOKOnly + vbQuestion, MSG_TITULO_MSGBOX
Else
Text13.Text = rsnota!BXMOV_DT_DATADOCTO
Text11.Text = rsnota!BXMOV_ST_DOCUMENTO
Text12.Text = rsnota!bxmov_st_parcela
Text10.Text = rsnota!BXMOV_DT_DATADOCTO
[ô]anopg1 = rsnota!BXMOV_DT_DATADOCTO
anopg1 = [Ô]aachei[Ô]
anopg2 = rsnota.AbsolutePosition [ô] AQUI TA RETORNANDO SEMPRE -1
End If
strSQL15 = [Ô]insert into serasa (linha)[Ô]
strSQL15 = strSQL15 & [Ô]Values ([ô][Ô] & busca1 & cnumtitulo & cparcela & busca3 & anopg1 & anopg2 & busca5 & [Ô][ô] )[Ô]
cn.Execute (strSQL15)
rsContas.MoveNext
ajrconciliacao.Refresh
Loop
Estou apanhando ao dar um select na minha aplicacao VB no banco oracle. Até testo o a condicao pra saber se achei o registro ou nao. Mas ele encontrando ou nao me retorna na tela no absolutepositon o resultado -1
Mando a sintaxe do select e da conexao.
Agradeço se alguem me ajudar o corrigir o erro.
Abraço a todos
[ô]Inicica conexão com o banco de dados
usuario = [Ô]xyz[Ô]
senha = [Ô]zyz[Ô]
servidor = [Ô]AJR[Ô]
bancodados = [Ô]xyz[Ô]
cn.Provider = [Ô]SQLOLEDB[Ô]
cn.Properties([Ô]Data Source[Ô]).Value = servidor
cn.Properties([Ô]Initial Catalog[Ô]).Value = bancodados
cn.Properties([Ô]User ID[Ô]).Value = usuario
cn.Properties([Ô]Password[Ô]).Value = senha
cn.Open
cn1.Provider = [Ô]MSDAORA[Ô]
cn1.Properties([Ô]Data Source[Ô]).Value = [Ô]teste_local[Ô]
cn1.Properties([Ô]User ID[Ô]).Value = [Ô]MExyz[Ô]
cn1.Properties([Ô]Password[Ô]).Value = [Ô]ExyzA[Ô]
cn1.Open
sqlNota = [Ô]SELECT * FROM MGFIN.FIN_VW_BAIXASCRE WHERE TO_number(BXMOV_ST_DOCUMENTO) = [ô][Ô] & cnumtitulo1 & [Ô][ô] and BXMOV_ST_PARCELA = [Ô] & cparcela & [Ô] and ORIMOV_DT_DATADOCTO = [ô][Ô] & Format(diapes & [Ô]/[Ô] & mespes & [Ô]/[Ô] & anopes, [Ô]dd/mm/yyyy[Ô]) & [Ô][ô] AND BXORG_IN_CODIGO=2 [Ô]
Set rsnota = cn1.Execute(sqlNota)
If rsnota.EOF Then
anopg1 = [Ô]nao[Ô] [ô]MsgBox [Ô]Titulo não cadastrado.[Ô], vbOKOnly + vbQuestion, MSG_TITULO_MSGBOX
Else
Text13.Text = rsnota!BXMOV_DT_DATADOCTO
Text11.Text = rsnota!BXMOV_ST_DOCUMENTO
Text12.Text = rsnota!bxmov_st_parcela
Text10.Text = rsnota!BXMOV_DT_DATADOCTO
[ô]anopg1 = rsnota!BXMOV_DT_DATADOCTO
anopg1 = [Ô]aachei[Ô]
anopg2 = rsnota.AbsolutePosition [ô] AQUI TA RETORNANDO SEMPRE -1
End If
strSQL15 = [Ô]insert into serasa (linha)[Ô]
strSQL15 = strSQL15 & [Ô]Values ([ô][Ô] & busca1 & cnumtitulo & cparcela & busca3 & anopg1 & anopg2 & busca5 & [Ô][ô] )[Ô]
cn.Execute (strSQL15)
rsContas.MoveNext
ajrconciliacao.Refresh
Loop
Essa propriedade e mais alguns outros não funcionam quando o cursor fica no servidor.
Obrigado pela ajuda.
Mas no codigo eu mostro como crio a conexao no oracle.
Onde tenho que mudar no codigo para utilizar o cursor na estacao.?
abraço
Mas no codigo eu mostro como crio a conexao no oracle.
Onde tenho que mudar no codigo para utilizar o cursor na estacao.?
abraço
cn.CursorLocation = adUseClient
Veja se funciona, pois não sei se funciona em todos os bancos. Uma outra coisa que vc precisa levar em consideração é que o cursor no cliente pode comprometer a performance. Então, evite ao máximo o cursor no cliente. Tente outras alternativas.
E pq vc quer a propriedade [Ô]AbsolutePosition[Ô]?
Vc testou este SELECT no SQL Plus para ver o resultado?
Tenho um SELECT QUE FAZ ALGO PARECIDO
no Oracle 8i e9i
(datSearch.Recordset.AbsolutePosition + 1)
esté é o seu que modifiquei
anopg2 = (rsnota.Recordset.AbsolutePosition) [ô] AQUI TA RETORNANDO SEMPRE -1
no Oracle 8i e9i
(datSearch.Recordset.AbsolutePosition + 1)
esté é o seu que modifiquei
anopg2 = (rsnota.Recordset.AbsolutePosition) [ô] AQUI TA RETORNANDO SEMPRE -1
Tópico encerrado , respostas não são mais permitidas