AJUDA COM UPDATE PLEASE??

MARCELO.TREZE 10/12/2013 14:27:47
#431970 Resposta escolhida

colega você postou a query que parece estar correta mas em que linha o programa para? tenho quase certeza que não é na query. então posta o código deste botão pra gente

MESTRE 10/12/2013 14:39:15
#431971

Opa sorry ta ai.. no botão editar defino o valor de wNovoESP = 1

[th][/th]

Código

Private Sub cmdGravarEsp_Click() If txtCodigo.Text = [Ô][Ô] Or txtTipoMedicao1.Text = [Ô][Ô] Or txtTipoMedicao2.Text = [Ô][Ô] Or txtMP.Text = [Ô][Ô] Or txtItem = [Ô][Ô] Or txtItemEsp = [Ô][Ô] Or cbostatus = [Ô][Ô] Then MsgBox ([Ô]Erro: é Necessário digitar um valor válido nos campos![Ô] & Error), vbCritical, wSistema Else tipomedicao1 = txtTipoMedicao1.Text tipomedicao2 = txtTipoMedicao2.Text DCODPRO = txtCodigo.Text DCODPRI = txtMP.Text status = cbostatus.Text DCODEQUIP = txtItem.Text DCODEQUIP2 = txtItemEsp.Text If WNovoEsp = 1 Then WCrit = [Ô]UPDATE DETALHESCONSTRUTIVOSEQUIP SET DCODPRO = [ô][Ô] & txtCodigo.Text & [Ô][ô], DCODPRI = [ô][Ô] & txtMP.Text & [Ô][ô], DCODEQUIP = [ô][Ô] _ & txtItem.Text & [Ô][ô], tipomedicao1 = [ô][Ô] & txtTipoMedicao1.Text & [Ô][ô], tipomedicao2=[ô][Ô] & tipomedicao2.Text & [Ô][ô], status=[ô][Ô] & cbostatus.Text & [Ô][ô], DCODEQUIP2 = [ô][Ô] & txtItemEsp.Text & [Ô][ô] WHERE DCODPRO = [ô][Ô] & txtCodigo & [Ô][ô] AND DCODEQUIP = [ô][Ô] & txtItem & [Ô][ô][Ô] [ô] AND DCODEQUIP2 = [ô][Ô] & txtItemEsp.Text & [Ô][ô][Ô] [ô][ô]MsgBox WCrit CnBanco.Execute WCrit MsgBox [Ô]Equipamento alterada com sucesso.[Ô], vbInformation, wSistema ElseIf WNovoEsp = 0 Then WCrit = [Ô]SELECT * FROM DETALHESCONSTRUTIVOSEQUIP2 WHERE DCODPRO = [ô][Ô] & txtCodigo & [Ô][ô] and DCODPRI = [ô][Ô] & txtMP & [Ô][ô] AND DCODEQUIP = [Ô] & Val(txtItem) & [Ô] ORDER BY DCODEQUIP, DCODEQUIP2[Ô] [ô]WHERE NOMREPR = [ô][Ô] & cboRepr.Text & [Ô][ô][Ô] Set QueryCli = New ADODB.Recordset QueryCli.CursorLocation = adUseClient QueryCli.Open WCrit, CnBanco, adOpenDynamic, adLockOptimistic If WNovoEsp = 0 Then If Not QueryCli.BOF Then QueryCli.MoveLast txtItemEsp = QueryCli!DCODEQUIP2 + 1 Else txtItemEsp = 1 End If ITEMDET = ITEMDET ITEMGRAV = txtItemEsp DCODEQUIP = txtItem.Text DCODEQUIP2 = txtItemEsp.Text wSql = [Ô]INSERT INTO DETALHESCONSTRUTIVOSEQUIP2 (DCODPRO, DCODPRI, DCODEQUIP,tipomedicao1,tipomedicao2,status,DCODEQUIP2) [Ô] _ & [Ô]VALUES( [ô][Ô] & DCODPRO & [Ô][ô],[ô][Ô] & DCODPRI & [Ô][ô],[ô][Ô] & DCODEQUIP & [Ô][ô],[ô][Ô] & tipomedicao1 & [Ô][ô],[ô][Ô] & tipomedicao2 & [Ô][ô],[ô][Ô] & status & [Ô][ô],[ô][Ô] & DCODEQUIP2 & [Ô][ô])[Ô] CnBanco.Execute wSql Else End If End If Call procTodosGrd End If End Sub

MARCELO.TREZE 10/12/2013 16:37:45
#431982

onde e como você declarou CnBanco

MESTRE 10/12/2013 16:53:20
#431985

Cara resolvi!! apaguei o UPDATE TODO! e refiz do zero !!!!!!! deu certo!!

Obrigado pela atenção vou postar ai o que mudou! as vezes e melhor apagar tudo e fazer denovo..


[th][/th]

CODIGO ANTIGO

If WNovoEsp = 1 Then WCrit = [Ô]UPDATE DETALHESCONSTRUTIVOSEQUIP SET DCODPRO = [ô][Ô] & txtCodigo.Text & [Ô][ô], DCODPRI = [ô][Ô] & txtMP.Text & [Ô][ô], DCODEQUIP = [ô][Ô] _ & txtItem.Text & [Ô][ô], tipomedicao1 = [ô][Ô] & txtTipoMedicao1.Text & [Ô][ô], tipomedicao2=[ô][Ô] & tipomedicao2.Text & [Ô][ô], status=[ô][Ô] & cbostatus.Text & [Ô][ô], DCODEQUIP2 = [ô][Ô] & txtItemEsp.Text & [Ô][ô] WHERE DCODPRO = [ô][Ô] & txtCodigo & [Ô][ô] AND DCODEQUIP = [ô][Ô] & txtItem & [Ô][ô][Ô] [ô] AND DCODEQUIP2 = [ô][Ô] & txtItemEsp.Text & [Ô][ô][Ô] [ô][ô]MsgBox WCrit CnBanco.Execute WCrit

[th][/th]

[txt-color=#0000f0]CODIGO NOVO[/txt-color]

If WNovoEsp = 1 Then tipomedicao1 = txtTipoMedicao1.Text tipomedicao2 = txtTipoMedicao2.Text DCODPRO = txtCodigo.Text DCODPRI = txtMP.Text Status = cbostatus.Text DCODEQUIP = txtItem.Text [ô]ITEM DET DCODEQUIP2 = txtItemEsp.Text [ô]ITEM ESP [ô]-------------- WCrit = [Ô]UPDATE DETALHESCONSTRUTIVOSEQUIP2 SET DCODPRO = [ô][Ô] & DCODPRO & [Ô][ô],DCODPRI = [ô][Ô] & DCODPRI & [Ô][ô], DCODEQUIP = [ô][Ô] & DCODEQUIP & [Ô][ô], tipomedicao1 = [ô][Ô] & tipomedicao1 & [Ô][ô], tipomedicao2 = [ô][Ô] & tipomedicao2 & [Ô][ô], status = [ô][Ô] & Status & [Ô][ô], DCODEQUIP2 = [ô][Ô] & DCODEQUIP2 & [Ô][ô] WHERE DCODPRO = [ô][Ô] & txtCodigo & [Ô][ô] AND DCODEQUIP = [ô][Ô] & DCODEQUIP & [Ô][ô] AND DCODEQUIP2= [ô][Ô] & DCODEQUIP2 & [Ô][ô][Ô] CnBanco.Execute WCrit MsgBox [Ô]Equipamento alterada com sucesso.[Ô], vbInformation, wSistema Call procDesabilitaCampos End If