Paginação com Campos

[Alexandre de Luccia 0]

Abaixo a imagem com os dois campos, "Presenças e Notas".

 

 

Como faço para resgatar os valores dos campos em uma página? Alguém tem algum exemplo?

 

Obrigado,

 

 

Alexandre de Luccia

[Ted k' 126]

Request.Form("Campo")

[Alexandre de Luccia 0]

Sei, ele traz os valores separados por vírgula ",". Tenho que fazer a consulta assim pegando pelo Where, no caso quero alterar.Uso um update com um WHERE ID IN (" & id_cronograma & ")"É isso?

[Flavio Uccela 0]

UPDATE tabela SET campo = "valor" WHERE ID = "  & id_cronograma

[Alexandre de Luccia 0]

Eu trago várias chaves primárias do form que é o id_presenca

 

Tentei assim: u="UPDATE TB_PRESENCAS_NOTAS SET nota = ("& strNota& ") WHERE id_presenca IN (" & strIdPre & ")"

 

Mas dá erro o seguinte erro:

sintaxe (vírgula) na expressão de consulta '(1, 1)'.

 

Esses valores vem do strNota

 

Obrigado a todos.

[jrcardozo 4]

veja se assim rola

u="UPDATE TB_PRESENCAS_NOTAS SET nota = ('"& strNota& "') WHERE id_presenca IN (" & strIdPre & ")"

[Flavio Uccela 0]

O BD não aceita vírgula, você vai ter q gravar com "." a não ser que você faça uma função que tranforme o "." numa "," quando você puxar do BD.

 

Eu achei um site que diz para você usar

CDBL(valor)

mas cara, sinceramente não testei e nem sei se funciona mas é um VBScript.

[Ted k' 126]

Função para substituir é só usar o replace:

 

Ex:

 

Valor = Replace(Campo, '.', ',')

[Alexandre de Luccia 0]

veja se assim rola

u="UPDATE TB_PRESENCAS_NOTAS SET nota = ('"& strNota& "') WHERE id_presenca IN (" & strIdPre & ")"

Tentei assim mas não funcionou.

O BD não aceita vírgula, você vai ter q gravar com "." a não ser que você faça uma função que tranforme o "." numa "," quando você puxar do BD. Eu achei um site que diz para você usar

CDBL(valor)

mas cara, sinceramente não testei e nem sei se funciona mas é um VBScript.

Cara também não funcionou fazendo o replace para "."De qualquer forma obrigado. Tem alguma outra opção?

[jrcardozo 4]

como está o tipo de dados na tabela no campo Nota???

[Alexandre de Luccia 0]

como está o tipo de dados na tabela no campo Nota???

Está como Numérico Duplo.Obrigado.

[jrcardozo 4]

vai nessa

 

u="UPDATE TB_PRESENCAS_NOTAS SET nota = ("& replace(strNota,",",".")& ") WHERE id_presenca IN (" & strIdPre & ")"

[Flavio Uccela 0]

Tenha em mente que ele vai pro banco como "." não como ",", então pra você fazer ele voltar pra , você vai ter q dar um replace tbm qdo puxar do banco pra página.

[Alexandre de Luccia 0]

Fiz assim:

u="UPDATE TB_PRESENCAS_NOTAS SET nota = ("& replace(strNota,",",".")& ") WHERE id_presenca IN (" & strIdPre & ")"

 

Deu o seguinte erro:

Erro de sintaxe (operador faltando) na expressão de consulta '(2. 1)'.

/programa/presencas_notas/ins.asp, line 32

 

Agradeço muito a ajuda de todos!

 

Dei um response no select:

 

Ficou assim:

UPDATE TB_PRESENCAS_NOTAS SET nota = (1. 2) WHERE id_presenca IN (5, 6)

[Ted k' 126]

tente isso colega:

 

Dim strNota2
strNota2 = Replace(strNota, ",", ".")
	
u="UPDATE TB_PRESENCAS_NOTAS SET nota = '"&strNota2&"' WHERE id_presenca IN ("&strIdPre&")"

[Alexandre de Luccia 0]

Não rolou, acho q tenho q fazer um loop e fazer update campo a campo, como faço isso?

[Ted k' 126]

cara rola sim, eu fiz isso pq você ñ faria, ñ desista cara, vamos lá.

 

qual foi o erro?

[Alexandre de Luccia 0]

Seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/programa/presencas_notas/ins.asp, line 33

 

Eu acho q o problema é que eu tenho que criar arrays e depois fazer um update com um loop. Mas não estou conseguindo fazer mesmo com este exemplo:

 

IdAluno = trim(Request.form("IdAluno"))ArrIdAluno = split(IdAluno,",")for x = 0 to UBound(ArrIdAluno)   SQLIns = "Insert Into tTabelaNotas (IdAluno, Nota) values (" & ArrIdAluno(x) & ", " & request.form("NomeDoCampoNota_"& ArrIdAluno(x) ) & ")"   Conn.execute(SQLIns)next

Entendeu + ou - o que eu preciso?

[Alexandre de Luccia 0]

Seguinte erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério./programa/presencas_notas/ins.asp, line 33Eu acho q o problema é que eu tenho que criar arrays e depois fazer um update com um loop. Mas não estou conseguindo fazer mesmo com este exemplo:

IdAluno = trim(Request.form("IdAluno"))ArrIdAluno = split(IdAluno,",")for x = 0 to UBound(ArrIdAluno)   SQLIns = "Insert Into tTabelaNotas (IdAluno, Nota) values (" & ArrIdAluno(x) & ", " & request.form("NomeDoCampoNota_"& ArrIdAluno(x) ) & ")"   Conn.execute(SQLIns)next

Entendeu + ou - o que eu preciso?

Resolvi:<%id=request.QueryString("id")IdAluno = trim(Request.form("IdAluno"))response.Write(IdAluno)response.Write("<br>")ArrIdAluno = split(IdAluno,",")Set objCon = Server.CreateObject("ADODB.Connection")objCon.Open strConfor x = 0 to UBound(ArrIdAluno)ArrIdAluno(x)=replace(ArrIdAluno(x)," ","") SQLIns = "Insert Into TB_NOTAS (id_cronograma, id_participante, nota) values (" & id & ", " & ArrIdAluno(x) & ", " & request.form("nota"& ArrIdAluno(x) ) & ")"objCon.execute(SQLIns)next%>Obrigado a todos!