ERRO AO FECHAR O BD


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ERRO AO FECHAR O BD

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 22/08/2012 12:54 hs

Amigos, estou usando o ADO com PostgreSQL, a atualização abaixo é feita perfeitamente, mas ao fechar o banco dá erro:
sSQL = "UPDATE receber SET juros=0,valoratual=0 WHERE codcli='" & txtCODCLI.Text & "'"
        sSQL = sSQL & " AND situacao<>'PAGA'"
        rsRECEBER.Open sSQL, cn, adOpenDynamic, adLockBatchOptimistic
        rsRECEBER.Close  ' AQUI DÁ O ERRO
        Set rsRECEBER = Nothing

Erro 3704 operação não permitida quando o objeto está fechado
Mas eu abro a tabela, se eu tirar a linha, tudo funciona.
O que há de errado?

vlu//

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 22/08/2012 14:57 hs

não tem nada de errado o rsRECEBER so abre para efetuar a consulta, não precisa ser fechado

então vc não precisa colocar a linhas seguintes

TÓPICO EDITADO

LCRamos

GOIANIA
GO - BRASIL

ENUNCIADA !

Postada em 22/08/2012 15:59 hs

Obrigado, mais uma, inexperiência em ADO.

vlu//

ivanhoe

BARRA BONITA
SP - BRASIL

ENUNCIADA !

Postada em 29/08/2012 22:26 hs

Eu utilizo assim :


             sqlx = ""
             sqlx = sqlx & " Update EST_COMP_NIV3 Set "
             sqlx = sqlx & " VlrCustoUnit          = '" & PlicValor4D(dblVlrCusto) & "',"
             sqlx = sqlx & " VlrTotal =  (Quantidade * VlrCustoUnit)" & ""
             sqlx = sqlx & " Where  CodigoMateriaPrima  = " & dblCodigoDoProduto
             dblLinhasAfetadas = 0
             adoBanco.Execute (sqlx), dblLinhasAfetadas
             If dblLinhasAfetadas = 0 Then
               dblErros = (dblErros + 1)
               lblInconsiste1.Caption = "Inconsistências - " & CStr(dblErros)
             End If

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR