update com select

[marvazoler 0]

Olá galera beleza?

 

Seguinte:

Tenho uma tela que é proviniente de um filtro(select) e gostaria de atualizar dos dados dela, eu só consegui fazer o update, mas no disparo do update eu tenho que voltar para a tela de filtro.

 

O código:<%

Dim oConn

Dim oRs

Dim filePath

Dim varlinha

Dim vartrajeto

Dim vardia

Dim varcodigo

Dim varcentro

Dim varbairro

filePath = Server.MapPath("banco\joana_darc.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = Server.CreateObject("ADODB.Recordset")

varlinha = request.Form("linha")

vartrajeto = request.Form("trajeto")

vardia = request.Form("dia")

varcodigo = request.Form("codigo")

varcentro = request.Form("centro")

varbairro = request.Form("bairro")

set oRs = oConn.Execute("UPDATE HORARIO SET CENTRO = '"&varcentro&"', BAIRRO = '"&varbairro&"' where codigo = '"&varcodigo&"' and('SELECT * From HORARIO where COD_LINHA = '"&varlinha&"' AND trajeto = '"&vartrajeto&"' AND cod_dia = '"&vardia&"')')")

Response.Redirect("alterar_horario_asp.asp")

%>

 

 

O erro:

 

Microsoft JET Database Engine erro '80040e07'

 

Tipo de dados imcompatível na expressão de critério.

 

/alterar_horario_res.asp, line 29

 

Iai o que eu faço?

 

Desde já agradeço

[jrcardozo 4]

Tópico duplicado

 

Continua em http://forum.imasters.com.br/index.php?showtopic=230699