Enviar dados do Select para BD

[fabio Avila 1]

Ola amigos ,

 

Mais uma ve recorro aos mestres deste forum para me ajudar .. bom tenho uma tabela de produtos e uma tabela de pedidos , dentro da Cadastro de Pedidos eu tenho um select que busca os produtos da tabela produtos , buscar o nome e enviar para minha tabela pedidos eu consigo , agora gostaria de saber se tem como eu mandar tb o id do produto .. abaixo o codigo q to usando para envia o nome do produto

<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source="&Server.MapPath("pedidos.mdb")&";Provider=Microsoft.Jet.OLEDB.4.0;" 
strQ = "SELECT * FROM produtos ORDER BY produto ASC"
Set objRS = objCon.Execute(strQ)
 
Response.Write "<SELECT NAME='produto'>"
Response.Write "<OPTION VALUE='' SELECTED></OPTION> "
 
If Not objRS.EOF Then
  While Not objRS.EOF
    Response.Write "<OPTION VALUE='" & objRS("produto") & "'"
    If Request("produto") = objRS("produto") Then Response.Write " selected"
    Response.Write ">" & objRS("produto") & "</OPTION>"
    objRS.MoveNext
  Wend
End If
 
Response.Write "</SELECT>"
 
objCon.Close

Set objRS = Nothing
Set objCon = Nothing 
%></b></font>

[]cs

[xanburzum 169]

passe o ID do produto no value da tag select

 

"<OPTION VALUE='" & objRS("ID_produto") & "'"

[fabio Avila 1]

funcionou so um detalhe ele ta colocando uma virgula antes do campo ex: ,00098 .. da pra tirar esse sinal ?

[xanburzum 169]

como assim naun entendi...

poste como esta o code

[fabio Avila 1]

Assim , ele envia o ID do Produto para o bd mas junto com o ID esta indo uma virgula entendeu ?

 

Response.Write "<SELECT NAME='produto'>"
Response.Write "<OPTION VALUE='' SELECTED></OPTION> " 
If Not objRS.EOF Then  While Not objRS.EOF    
Response.Write "<OPTION VALUE='" & objRS("id") & "'"   
If Request("produto") = objRS("produto") Then Response.Write " selected"    
Response.Write ">" & objRS("produto") & "</OPTION>"   
 objRS.MoveNext  
WendEnd If

[Patrique 0]

Estranho, mais tente assim

 

<%
Response.Write "<SELECT NAME=""produto"">"
Response.Write "<OPTION VALUE="""" SELECTED></OPTION>"
If Not objRS.EOF Then
While Not objRS.EOF
Response.Write "<OPTION VALUE=""" & objRS("id") & """"
If Request("produto") = objRS("produto") Then
Response.Write " selected>"
Response.Write objRS("produto") & "</OPTION>"
 objRS.MoveNext
Wend
End If
%>

[xanburzum 169]

verifique no bd se exoste esta virgula inserida nele...

pois eu testei e naun vem virgula...

[fabio Avila 1]

E ae beleza ,

 

Então ele envia para o Bd tb , como falei se o codigo do produto for 100 , no bd ele ta indo como , 100

 

vlw