scorpio 7 Denunciar post Postado Junho 17, 2009 TCp Provider: Normalmente é permitida apenas uma utilização de cada endereço de siquete (protocolo/endereço de rede/porta) rec.Open(strSQl, prAdcon, ADODB.CursorTypeEnum.adOpenForwardOnly) Do While Not rec.EOF ... strSQl = "Select count(cli_cod_cliente) from tb_cli_cliente_knb1 Where cli_cod_cliente = '" & sCodCliente & "'" recTmp.Open(strSQl, prAdcon, ADODB.CursorTypeEnum.adOpenForwardOnly) If recTmp.Fields(0).Value <= 0 Then strSQl = "Insert tb_cli_cliente_knb1 values ('" & sCodCliente & "','" & sBUKRS & "')" prAdcon.Execute(strSQl) End If recTmp.Close() rec.MoveNext() Loop rec.Close() sCodCliente vem do primeiro RS. Sempre me da erro em recTmp.Open ou no .Execute. Olhei na internet e vi que fica um monte de portas abertas quano ta executando. tipo da porta 1000 até a 5000. todas com o SQl server. Acho que é isso é a causa do erro. tem alguma coisa que eu possa matar essas conexões com o SQL. sem ter que fechar e abrir de novo a "real conexao" ? Compartilhar este post Link para o post Compartilhar em outros sites
scorpio 7 Denunciar post Postado Junho 17, 2009 Adicionei MARS Connection=True; na string de conexao e parece que foi. até agora nao deu erro. Compartilhar este post Link para o post Compartilhar em outros sites