Arquivado
Este tópico foi arquivado e está fechado para novas respostas.
- 0

ERRO -3704 OPERAÇÃO NÃO PERMITIDA QUANDO O OBJETO ESTÁ FECHADO
Perguntado por
lsmecenas@gmail.com
Este tópico foi arquivado e está fechado para novas respostas.
Perguntado por
lsmecenas@gmail.com
Ao usar o fórum, você concorda com nossos Termos e condições.
Oi gente, comecei a mexer em banco de dados na semana passada, então sou muito leigo em algumas partes....
Não estou conseguindo atualizar uma tabela, eu quero trocar todas as células que estão escritas 'RE1' por 'B1', e depois fazer mais atualizações ( mas não nesse momento).
Esse aqui colado abaixo, é o meu código, e quando vou atualizar o meu arquivo, ele dá o erro -3704 "OPERAÇÃO NÃO PERMITIDA QUANDO O OBJETO ESTÁ FECHADO".
Alguém poderia me ajudar por favor?
Sub conexão()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQLstr As String
'PathArqTUCA1 = "\Reportes\" & rngData(iArquivo, 1)
'nomeArquivo = "[" & rngData(iArquivo, 2) & "]"
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.ACE.OLEDB.12.0"
cnn.ConnectionTimeout = 90
cnn.ConnectionString = "Data Source= C:\Nova pasta\Testando\" _
& ";" & "Extended Properties=""text;HDR=Yes;FMT=Delimited"""
cnn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
SQLstr = _
" UPDATE [UCBT_01.txt] " & _
" SET GRU_TAR='B1'" & _
" WHERE GRU_TAR= 'RE1';"
rs.Open SQLstr, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
'cria arquivo texto
'Set txtFile = fso.CreateTextFile("C:\Nova pasta\Testando\arqTexto.txt", True)
'escreve e utiliza o separador ( tabulado ) entre os campos
'txtFile.Write (rs.GetString(adClipString, , "", vbCrLf, ""))
'MsgBox "Arquivo texto gerado com sucesso !", vbInformation, "Exportando um Recordset como Texto"
'Exit Sub
'trata_erro:
'MsgBox "Ocorreu o seguinte erro : " & Err.Description
' End Sub
Planilha1.Range("F2").CopyFromRecordset rs
rs.Close
cnn.Close
End Sub
Compartilhar este post
Link para o post
Compartilhar em outros sites