Jump to content

lsmecenas@gmail.com

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About lsmecenas@gmail.com

  1. 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
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.