Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Erro em INSERT com CHECKBOX...

Por , em Flash, ActionScript e tecnologias Adobe

Recommended Posts

Igor FV    0

Igor FV
Postado

Amigos boa tarde!!!

 

Estou tentando fazer um INSERT multiplo ao inves de DELETE, atraves do DW, seguindo o TUTORIAL do Imasters DELETANDO MULTIPLOS REGISTROS COM CHECKBOX.

 

O delete está funfando certinho, mas quando tento fazer o INSERT, está aprersentando o seguinte erro:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[MySQL][ODBC 3.51 Driver][mysqld-5.0.22-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'SELECT id_item FROM tbl_item)id_item=1' at line 1

/rodrigoerenata/insert_item2.asp, line 26

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MEGAUPLOAD 1.0; .NET CLR 2.0.50727; .NET CLR 1.1.4322)

 

Página:

GET /rodrigoerenata/insert_item2.asp

 

Hora:

sexta-feira, 6 de abril de 2007, 12:58:23

A minha pagina de INSERT estaá logo abaixo e está apresentando erro na linha "cmd.Execute()":

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/conn_rod_ren.asp" -->

<%

dim num

dim letra

dim palavra

dim sql

 

palavra= ""

letra= split(request.querystring("checkbox"),",",-1,1)

 

for each num in letra

if palavra <> "" then palavra = palavra & " or "

palavra = palavra & "id_item=" & num

next

 

sql= "INSERT INTO tbl_item_usuario VALUES (SELECT id_item FROM tbl_item)"

sql= sql & palavra

 

Set cmd = Server.CreateObject ("ADODB.Command")

cmd.ActiveConnection = MM_conn_rod_ren_STRING

cmd.CommandText = sql

cmd.CommandType = 1

cmd.CommandTimeout = 0

cmd.Prepared = true

cmd.Execute()

 

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<title>Untitled Document</title>

</head>

 

<body>

</body>

</html>

Alguem pode me ajudar?

 

Desde já agradeço pela ajuda...

 

Vlw Amigos..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor FV    0

Igor FV
Postado

Amigo Douglas, alterei o codigo da pagina insert, mas os registros são inseridos na tabela TBL_ITEM_USUARIO em branco e só está fazendo o insert de um registro, se eu selecionar mais de um checkbox na pagina de listar só vai um registro em branco. Teria como me ajudar amigo?Abaixo segue o codigo alterado:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/conn_rod_ren.asp" --><%dim numdim letra dim palavradim sqlpalavra = "" letra = split(request.querystring("checkbox"),",",-1,1) For each num in letra If palavra <> "" Then palavra = palavra & " or " palavra = palavra & "id_item=" & num next sql= "INSERT INTO tbl_item_usuario (id_item) VALUES ("& palavra &")" 'sql= sql & palavraSet cmd = Server.CreateObject ("ADODB.Command")cmd.ActiveConnection = MM_conn_rod_ren_STRINGcmd.CommandText = sqlcmd.CommandType = 1cmd.CommandTimeout = 0cmd.Prepared = truecmd.Execute()%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title></title></head><body></body></html>

Vlw... e um grande abraço...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor FV    0

Igor FV
Postado

Abaixo segue o codigo da pagina que lista os registros da tabela TBL_ITEM:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/conn_rod_ren.asp" --><%Dim RS_list_bar__MMColParamRS_list_bar__MMColParam = "0"If (Request("MM_EmptyValue") <> "") Then RS_list_bar__MMColParam = Request("MM_EmptyValue")End If%><%Dim RS_list_barDim RS_list_bar_cmdDim RS_list_bar_numRowsSet RS_list_bar_cmd = Server.CreateObject ("ADODB.Command")RS_list_bar_cmd.ActiveConnection = MM_conn_rod_ren_STRINGRS_list_bar_cmd.CommandText = "SELECT * FROM bd_rod_ren.tbl_item WHERE qtd_item <> ? ORDER BY nome_item ASC" RS_list_bar_cmd.Prepared = trueRS_list_bar_cmd.Parameters.Append RS_list_bar_cmd.CreateParameter("param1", 5, 1, -1, RS_list_bar__MMColParam) ' adDoubleSet RS_list_bar = RS_list_bar_cmd.ExecuteRS_list_bar_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0RS_list_bar_numRows = RS_list_bar_numRows + Repeat1__numRows%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title></title><link href="css/texto.css" rel="stylesheet" type="text/css" /></head><body><div align="center"> <form action="insert_item2.asp" method="get" name="form_list_bar" target="_self" id="form_list_bar"> <table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000"> <tr> <td bordercolor="#FFFFFF" bgcolor="#FFCC99" class="preto_negrito"><div align="center">Item</div></td> <td height="20" bordercolor="#FFFFFF" bgcolor="#FFCC99" class="preto_negrito"><div align="center">Nome</div></td> <td height="20" bordercolor="#FFFFFF" bgcolor="#FFCC99" class="preto_negrito"><div align="center">Descrição</div></td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT RS_list_bar.EOF)) %> <tr> <td bordercolor="#FFFFFF" class="preto_normal"><div align="center"> <input type="checkbox" name="checkbox" value="<%=RS_list_bar("id_item")%>" /> </div></td> <td height="20" bordercolor="#FFFFFF" class="preto_normal"><div align="center"><%=(RS_list_bar.Fields.Item("nome_item").Value)%></div></td> <td height="20" bordercolor="#FFFFFF" class="preto_normal"><div align="center"><%=(RS_list_bar.Fields.Item("desc_item").Value)%></div></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_list_bar.MoveNext()Wend%> </table> <br/> <input type="submit" name="Submit" value="Participar" /> </form></div></body></html><%RS_list_bar.Close()Set RS_list_bar = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Giovani    104

Giovani
Postado

A sua dúvida é com o dreamweaver?

Caso seja tente ser um pouco mais específico na dúvida, caso contrário procure o fórum adequado, ai fica mais fácil (e mais rápido para você).

 

Precisando de alguma ajuda, entre em contato.

 

[]´s

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Flash, ActionScript e tecnologias Adobe
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito