Gravar Variavel do Combo no BD

[sasleal 0]

Tenho um combo que é alimentado pelo banco de dados, nele traz o nome do produto e seu valor é o codigo do produto.

Porém não consigo trazer o valor para gravar no banco, ele grava somente o valor 0.

 

Segue abaixo a função que alimenta o combo.

Sub Cria_Combo_Correlacao_ADM(VarCodigo_chave,VarAdicional,VarLanguage)		Set RS_Produtos = Server.CreateObject("ADODB.Recordset")	RS_Produtos.CursorLocation = 3	RS_Produtos.CursorType = 0	RS_Produtos.LockType = 1	RS_Produtos.Open "SELECT codigo_chave, nome_produto FROM Produtos WHERE sigla_idioma = '"&varLang&"' ORDER BY nome_produto", Conexao	If RS_Produtos.Eof Then		checkProdutos = "Não há Produtos cadastrados"	Else%>		<SELECT NAME="codigo_correlacao" class="FORMbox" <%=Action%> <%=VarAdicional%>>			<OPTION value="">Selecione</OPTION><%			While Not RS_Produtos.EOF			If CDbl(Varcodigo_chave) = CDbl(RS_Produtos("codigo_chave")) Then				SELECTED = "SELECTED"			Else				SELECTED = ""			End if%>			<OPTION value="<%= RS_Produtos("codigo_chave")%>" <%=SELECTED%>><%=RS_Produtos("nome_produto")%></OPTION><%			RS_Produtos.MoveNext			Wend%>			</SELECT><%	checkProdutos = "Possui produtos cadastrados"	End if	RS_Produtos.Close	Set RS_Produtos = NothingEnd Sub

Segue o codigo para gravar no banco.

RS_Produto("codigo_correlacao") = myFileUpload.form("codigo_correlacao|"&Trim(codigo_chave))

[Ted k' 126]

cara você pega normalmente assim como vou colocar!!!

 

Ex:

valor = myFileUpload.form("codigo_correlacao")

[jrcardozo 4]

veja se assim resolve pois você não pode atribuir da forma que fizeste

 

var =  myFileUpload.form("codigo_correlacao") var = var &"|"& trim(codigo_chave)

[sasleal 0]

Ambos os codigos estão danto este erroMicrosoft Cursor Engine error '80040e21' Multiple-step operation generated errors. Check each status value. /ecommerce/painelctrl/ADM_insereAltProduto.asp, line 692

[jothaz 1]

Camarada,

 

No códgio postado onde fica alinha 692 retornada no erro?

 

Facilita a ajuda.

 

t+

[sasleal 0]

a linha 692 é a linha onde coloquei o codigo sugerido pelo jonathan

[Ted k' 126]

já que você fez o código do jonathandj poste ele ai pra gente ver!

[sasleal 0]

Segue o codigo.RS_Produto("codigo_correlacao") = myFileUpload.form("codigo_correlacao")ouRS_Produto("codigo_correlacao") = var &"|"& trim(codigo_chave)Ambos os codigo apresentam o seguinte erroMicrosoft Cursor Engine error '80040e21' Multiple-step operation generated errors. Check each status value. /ecommerce/painelctrl/ADM_insereAltProduto.asp, line 692 A Linha 692 é onde inserir este codigo.

[hargon 64]

Esse RS_Produto("codigo_correlacao") é do tipo texto? Pq está utilizando " | " ?

[sasleal 0]

a value do combo é do tipo numerico, e o campo do BD também.utilizei este codigo, porque é assim que as demais informações estão sendo gravadas no BDcodigo originalRS_Produto("codigo_correlacao") = myFileUpload.form("correlacao|"&Trim(codigo_chave))Com esse codigo é gravado no banco o valor 0Atraves da sugestão do jonathan que utilizei esses codigos.RS_Produto("codigo_correlacao") = myFileUpload.form("codigo_correlacao")ouRS_Produto("codigo_correlacao") = var &"|"& trim(codigo_chave)Porém apresenta aquele erro.

[hargon 64]

Já tentou assim?

RS_Produto("codigo_correlacao") = myFileUpload.form("codigo_correlacao") &"|"& trim(codigo_chave)

[jrcardozo 4]

a value do combo é do tipo numerico, e o campo do BD também.utilizei este codigo, porque é assim que as demais informações estão sendo gravadas no BDcodigo originalRS_Produto("codigo_correlacao") = myFileUpload.form("correlacao|"&Trim(codigo_chave))Com esse codigo é gravado no banco o valor 0Atraves da sugestão do jonathan que utilizei esses codigos.RS_Produto("codigo_correlacao") = myFileUpload.form("codigo_correlacao")ouRS_Produto("codigo_correlacao") = var &"|"& trim(codigo_chave)Porém apresenta aquele erro.

Se o campo na tabela é tipo inteiro você não pode colocar caracteres alfabéticos, no caso |Sugiro que faça uns testes:Verificar se o campo codigo_correlacao e a variável codigo_chave estão sendo enviados e se estão de que forma chega

var = myFileUpload.form("codigo_correlacao")response.write(var)response.write("<br>")response.write(codigo_chave)response.end()RS_Produto("codigo_correlacao") = cint(var)

[sasleal 0]

com esse codigoRS_Produto("codigo_correlacao") = myFileUpload.form("codigo_correlacao") &"|"& trim(codigo_chave)ele apresenta o mesmo erro.

[hargon 64]

Agora que vi aqui no post anterior... se o campo é numerico, pra que serve o "|"? Essa variavel codigo_chave recebe valor de onde?

 

Faça os testes que o jonathandj sugeriu e posta ai os resultados.

[sasleal 0]

jonathan o resultado do teste é esse30, 251Sendo que o value correto é o 25.

[jrcardozo 4]

esse 30, tem ideia de onde surgiu? possivelmente tem outro campo no formulário com o mesmo NAME

[sasleal 0]

jonathand realmente tinha eu o excluir e agora esta aparecendo assim251E o codigo ficou assimRS_Produto("codigo_correlacao") = myFileUpload.form("Varcodigo_correlacao")Porém ele continua gravando 0

[jrcardozo 4]

não amigo, está erradoseguinte, você tem 25 e 1, teria que ficar gravado como? 251?

[Ted k' 126]

cara como é que está seu SQL para inserir?

[jrcardozo 4]

cara como é que está seu SQL para inserir?

pela estrutura do código creio que com rs.addnew, por iso essa forma "diferente" de gravar, porém é bem proveitosa sua questão, coloque ai o código que realiza a gravação