pessoal, estou com a seguinte instrução update:
Set OP = New ADODB.Command
With OP
sql = "UPDATE tblRecursosHumanos SET "
sql = sql & "Nome = '" & frmrh.txtNome.text & "', " '1'
sql = sql & "RG = '" & frmrh.mskRg.text & "', " '2
sql = sql & "CPF = '" & frmrh.mskCpf.text & "', " '3
sql = sql & "Endereco = '" & frmrh.TxtEndereco.text & "', " '4
sql = sql & "Complemento = '" & frmrh.TxtComp.text & "', " '5
sql = sql & "Bairro = '" & frmrh.TxtBairro.text & "', " '6
sql = sql & "Cidade = '" & frmrh.TxtCidade.text & "', " '7
sql = sql & "Estado = '" & frmrh.TxtEstado.text & "', " '8
sql = sql & "Email = '" & frmrh.TxtEmail.text & "', " '9
sql = sql & "EstadoCivil = '" & frmrh.cmbEstadoCivil.text & "', " '10
sql = sql & "Sexo = '" & OptSexo & "', " '11
sql = sql & "Conjugue = '" & frmrh.TxtConjugue.text & "', " '12
sql = sql & "Nacionalidade = '" & frmrh.TxtNacionalidade.text & "', " '13
sql = sql & "Naturalidade = '" & frmrh.TxtNaturalidade.text & "', " '14
sql = sql & "DataNasc = '" & frmrh.mskdataNasc.text & "', " '15
sql = sql & "TelResidencial = '" & frmrh.mskTelResidencial.text & "', " '16
sql = sql & "TelCelular = '" & frmrh.mskTelCelular.text & "', " '17
sql = sql & "Ramal = '" & frmrh.TxtRamal.text & "', " '18
sql = sql & "TelRecado = '" & frmrh.mskTelRecado.text & "', " '19
sql = sql & "FalarCom = '" & frmrh.TxtFalarCom.text & "', " '20
sql = sql & "NumPrevidencia = '" & frmrh.TxtNumPrevSocial.text & "', " '21
'sql = sql & "Banco = '" & var_banco & "', " '22
sql = sql & "Banco = '" & frmrh.TxtBanco.text & "', " '22
sql = sql & "Dependentes = '" & Dependentes & "', " '23
'sql = sql & "Ag_Conta = '" & var_conta & "', " '24
sql = sql & "Ag_Conta = '" & frmrh.mskConta.text & "', " '24
sql = sql & "Portador_Deficiencia = '" & Portador_Deficiencia & "', " '25
sql = sql & "Qual = '" & frmrh.TxtQual.text & "', " '26
sql = sql & "Cargo = '" & frmrh.TxtCargo.text & "', " '27
'sql = sql & "SalarioBase = '" & var_salario & "', " '28
sql = sql & "SalarioBase = '" & frmrh.txtSalario.text & "', " '28
sql = sql & "Filial_Atual = '" & frmrh.TxtFilial.text & "', " '29
sql = sql & "Departamento = '" & frmrh.cmbDeptoRH.text & "', " '30
sql = sql & "Registro = '" & frmrh.TxtRegistro.text & "', " '31
sql = sql & "Obs = '" & frmrh.txtObs.text & "'," '32
sql = sql & "DataAdmissao = '" & frmrh.mskDataAdmissao.text & "', " '33
sql = sql & "DataDemissao = '" & frmrh.mskDataDemissao.text & "', " '34
sql = sql & "Beneficios1 = " & frmrh.ChkAssistenciaMedica.Value & ", " '35
sql = sql & "Beneficios2 = " & frmrh.ChkValeRefeicao.Value & ", " '36
sql = sql & "Beneficios3 = " & frmrh.ChkValeTranporte.Value & ", " '37
sql = sql & "ctps = '" & frmrh.mskCTPS.text & "'," '38
sql = sql & "tituloeleitor = '" & frmrh.mskTituloEleitor.text & "', " '39
sql = sql & "nomepai = '" & frmrh.txtNomePai & "', " '40
sql = sql & "nomemae = '" & frmrh.txtNomeMae & "', " '41
sql = sql & "tipo_pagemento = '" & frmrh.txtMensal & "', " '42
sql = sql & "horarioinicial = '" & frmrh.txtHorarioInicial & "', " '43
sql = sql & "horariofinal = '" & frmrh.txtHorarioFinal & "', " '44
sql = sql & "cadastradopis = '" & frmrh.mskCadastro.text & "', " '45
sql = sql & "numeropis = '" & frmrh.mskNumPIs.text & "', " '46
sql = sql & "depbancopis = '" & frmrh.txtDepBanco & "', " '47
sql = sql & "enderecopis = '" & frmrh.txtEndPis & "', " '48
'sql = sql & "bancopis = '" & var_bancopis & "', " '49
sql = sql & "bancopis = '" & frmrh.txtBancoPis.text & "', " '49
'sql = sql & "agcontapis = '" & var_agcontapis & "', " '50
sql = sql & "agcontapis = '" & frmrh.mskAgContaPis.text & "', " '50
sql = sql & "endagpis = '" & frmrh.txtEndBancoPis & "' "
sql = sql & "WHERE Identif= '" & frmrh.txtIdentif.text & "' "
'Set rs = Conn.Execute(sql)
.ActiveConnection = Conn
.CommandText = sql
.Execute
'MsgBox sql
'Open App.Path & "SQL.txt" For Output As #1
'Print #1, sql
'Close #1
End With
Set OP = Nothing
Call GravaImagemBDRH '52
MsgBox "Registro alterado com sucesso!", vbInformation, "Recursos Humanos"
só q naum está atualizando ne fu.... Chega no .excute sai da função.
Já verifiquei tipos de campo, tamamhos, aspas, tudo mais naum adianta.
Alguém sabe o q pode ser?
