Postada em 27/03/2007 18:14 hs
Esta dando erro: (Erro de sintaxe, operador faltando na expressão de consulta)
Não consigo achar esse operador!!!
If MsgBox("Você confirma alteração deste registro?", vbYesNo + vbExclamation) = vbYes Then
Set OP = New ADODB.Command
With OP
.ActiveConnection = BancoSobra
.CommandText = "update Localizacao set [Código]= '" & TxtCod.text & "',[Descrição]='" & TxtDesc.text & "',[Localização1]= IIF('" & TxtLc1.text & "' <>'' , '" & TxtLc1.text & "')" & "[Localização2]=IIF('" & TxtLc2.text & "'<> ' ','" & TxtLc2.text & "')" & " [Localização3]=IIF('" & TxtLc3.text & "'<> ' ','" & TxtLc3.text & "')" & " Quantidade='" & TxtQT.text & "',Unidade='" & TxtUn.text & "',Unitario='" & TxtUnit.text & "', Tipo='" & Cbo_Tipo.text & "' where [Código] = " & TxtCod.text & ";"
.Execute
End With
|
