Microsoft OLE DB Provider for SQL Server (0x80040E14)

[Clauido José 3]

Pessoal to quebrando a cabeça tive como coloquei no topico anterior eu migrei um sistema que fiz e asp e acces para sql server bom o bug da data eu resolvi, estou verificando modulo por modulo do sistema para ver se nao da erro e pra minha supresa estou empacado, num modulo que funcionava beleza no access ja verifique na tabela os campos e os valores recebidos no UPDATE parecer ser na linha do UPDATE.

 

bou postar o UPDATE

 

sSql = "Update tabTecnicos set "
sSql = sSql & "idEmpresa=" 		& Empresa & ""
sSql = sSql & ",Tecnico='" 		& NomeTec & "'"
sSql = sSql & ",Rg=" 			& RgTecni & "" 
sSql = sSql & ",Re='" 			& ReTecni & "'"
sSql = sSql & ",AtivoSn='" 		& AtivoSn & "'"
if trim(sDtAtivo) <> "" then sSql = sSql & ",DatAtivo='" & sDtAtivo & "'" end if
if trim(sDtInativo) <> "" then sSql = sSql & ",DatDesativo='" & sDtInativo & "'" end if
sSql = sSql & ",Marca='" 		& sMarca1 & "'"
sSql = sSql & ",Modelo='" 		& sModelo & "'"
sSql = sSql & ",Placa='" 		& sPlaca1 & "'" 
sSql = sSql & ",Ano='" 			& sAno111 & "'"
sSql = sSql & ",foto='" 			& filename & "'"
sSql = sSql & ",Observacao='" 	& Observa & "'"
sSql = sSql & " where idTecnico = " & Request.QueryString("idTecnico")
response.Write(sSql)
response.End()

o resutado do response.write.

Update tabTecnicos set idEmpresa=18,Tecnico='ADAILTON NUNES DA SILVA',Rg=166.913.048-70,Re='181818',AtivoSn='A',DatAtivo='2009/3/31',Marca='UNO',Modelo='GERAÇÃO 3',Placa='JQN 7913',Ano='2009',foto='',Observacao='' where idTecnico = 125

mensagem de erro que ta dando

Microsoft OLE DB Provider for SQL Server (0x80040E14)

Line 1: Incorrect syntax near '.048'

[Ted k' 126]

coloque a variavel de RG com aspas simples tbm, como fez com placa e RE

[Clauido José 3]

Ted veja como esta insert

 

campo= "idEmpresa,Tecnico,RG,RE,AtivoSn,Marca,Modelo,Placa,Ano,Foto,Observacao"
			if trim(objUpload.form("txDatAtivo"))<> "" or trim(objUpload.Form("txDatAtivo"))<>null  then 
				campo = campo & ",DatAtivo"
			end if
			if trim(objUpload.Form("txDatInativo"))<>"" or trim(objUpload.Form("txDatInativo"))<> null then
				campo = campo & ",DatDesativo"
			end if
			valores = Empresa & ",'"  & NomeTec & "'," & RgTecni & ",'" & ReTecni & "','" & Ativosn & "','" & sMarca1 
			valores = valores & "','" & sModelo & "','" & sPlaca1 & "','" & sAno111 & "','" & filename & "','" & Observa & "'"
			if trim(objUpload.Form("txDatAtivo"))<> "" or trim(objUpload.Form("txDatAtivo"))<>null  then 
				valores = valores & ",'" & sDtAtivo & "'" 
			end if	
			if trim(objUpload.Form("txDatInativo"))<> "" or trim(objUpload.Form("txDatInativo"))<>null  then
				valores = valores & ",'" & sDtInativo & "'"
			end if
			strNew = "Insert Into tabTecnicos (" & campo & ") values (" & valores & ")"

O RG está sem asp simples e funciona

[Ted k' 126]

você imprimiu e ele deu erro no campo de RG, e como você disse agora que está funcionado?

 

se ele é string, coloca a aspas simples ;)

[Clauido José 3]

é assim o campo RG no insert ta sem asp simples e funciona entedeu.

[Mário Monteiro 179]

mas voce usa este padrao com ponto e hifem no inserte? provavelemente nao senao daria erro

 

o campo é de que tipo no banco?