[Resolvido] TCP Provider

[scorpio 7]

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" ?

[scorpio 7]

Adicionei MARS Connection=True; na string de conexao e parece que foi. até agora nao deu erro.