Selecionar Vários ID's

C4wb!z!nh0 · Janeiro 24, 2009

Olá!

Estou desenvolvendo um painel de controle para a empresa onde trabalho. E neste painel de controle tem a opção de adicionar notícia. Até ai tudo bem.

O problema acontece quando a pessoa deseja adicionar multimídia na notícia (Ex: imagens, vídeos, arquivos, entre outros). O sistema de Upload para esses arquivos já está realizado. Então, quando a pessoa deseja adicionar multimídia é redirecionada para a página com os vídeos, por exemplo. E nessa página ela pode adicionar vários vídeos através do checkbox.

O problema esta sendo pegar essas ID's da respectiva Tabela Video, por exemplo, e direcionar isso para o formulário da notícia na outra página.

Porque o meu objetivo é a pessoa selecionar a quantidade que quiser de vídeos e assim ser direcionada para a página onde contem o formulário para adicionar a notícia.

Mas tem um outro porém também, quando a pessoa seleciona os vídeos, por exemplo, ele envia somente as ID's. Então, teria que fazer um SELECT da tabela Videos e através do IDS selecionar o campo DOCUMENTO que é aonde esta o link do vídeo.

Estou disponibilizando para download a página que estou fazendo esse procedimento.

http://www.thyagosilva.com.br/id.zip

Estou no aguardo,

Muito Obrigado.

xanburzum · Janeiro 24, 2009

você pode na hora que for selecionar os videos, recuperar apenas o caminho (path) dos mesmo, fca mais fácil você inserir na notícia, ou seja, pegando apenas o caminho, quando redirecionar na pagina para inserir a noticia você pego o path e ja insere, isso se for mostrar um pré-vizualização, ou insere tudo quando concluir a noticia, fica mais fácil....

C4wb!z!nh0 · Janeiro 24, 2009

Eu tive uma outra idéia

Colocar no banco de dados somente o link do youtube e depois colocar no embed a variavel <%Video("documento")%>. Até ai tudo bem.

Mas, o vídeo não aparece. Já tentei colocar todos os tipos de embed, mas não funciona.

Alguém possui o embed do youtube para colocar a variável?

Obrigado.

xanburzum · Janeiro 24, 2009

existe alguns embed no próprio dreamweaver, ou pode baixar extensões com varias tipos de embed...

C4wb!z!nh0 · Janeiro 25, 2009

Eu consegui aparecer o valor no Embed, mas mesmo assim o vídeo não aparece. Também no código fonte aparece o link corretamente no embed.

Alguém sabe como solucionar este problema?

Estou no Aguardo,

Obrigado

xanburzum · Janeiro 25, 2009

é gerado algum erro ????

posta a parte do código, ae...

C4wb!z!nh0 · Janeiro 26, 2009

Foi solucionado os outros problemas. Mas, agora empaquei em como adicionar vários objetos no banco de dados.

Por exemplo:

Quando adiciono o link de um vídeo no checkbox o request.form pega com vírgula:

,

Mas, quando adiciona na tabela noticia_video, cria somente uma ID com a linha completa. Veja imagem:

Imagem Postada

Porém, eu desejaria adicionar cada link em diferentes ID's. Veja imagem (Feita manualmente):

Imagem Postada

Abaixo está o código fonte da conexão e INSERT INTO:

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





<%

Dim MM_editAction

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

' boolean to abort record edit

Dim MM_abortEdit

MM_abortEdit = false

%>

<%

' IIf implementation

Function MM_IIf(condition, ifTrue, ifFalse)

If condition = "" Then

MM_IIf = ifFalse

Else

MM_IIf = ifTrue

End If

End Function

%>

<%

If (CStr(Request("MM_insert")) = "form4") Then

If (Not MM_abortEdit) Then

' execute the insert

Dim MM_editCmd

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

MM_editCmd.ActiveConnection = MM_Noticia_STRING

MM_editCmd.CommandText = "INSERT INTO noticia_video (link, titulo) VALUES (?, ?)"

MM_editCmd.Prepared = true

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter ("param1", 203, 1, 536870910, Request.Form("link")) ' adLongVarWChar

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 203, 1, 536870910, Request.Form("titulo")) ' adLongVarWChar

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL

Dim MM_editRedirectUrl

MM_editRedirectUrl = "add_video.asp"

If (Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

Response.Redirect(MM_editRedirectUrl)

End If

End If

%>



<%

confirmation = request.QueryString("confirmation")

key_acesso = request.QueryString("identidade")

%>

<%

Dim Video

Dim Video_cmd

Dim Video_numRows

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

Video_cmd.ActiveConnection = MM_Arquivos_STRING

Video_cmd.CommandText = "SELECT * FROM video ORDER BY id DESC"

Video_cmd.Prepared = true

Set Video = Video_cmd.Execute

Video_numRows = 0

%>

<%

Dim Noticia

Dim Noticia_cmd

Dim Noticia_numRows

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

Noticia_cmd.ActiveConnection = MM_Noticia_STRING

Noticia_cmd.CommandText = "SELECT * FROM noticia"

Noticia_cmd.Prepared = true

Set Noticia = Noticia_cmd.Execute

Noticia_numRows = 0

%>

<%

Dim HLooper1__numRows

HLooper1__numRows = 9

Dim HLooper1__index

HLooper1__index = 0

Video_numRows = Video_numRows + HLooper1__numRows

%>

<%

confirmation = request.QueryString("confirmation")

%>

Abaixo está o restante do código fonte da página:

<!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>Painel de Controle - Mainardes Comunicações</title>

<style type="text/css">



</style>

<link href="log_acesso.css" rel="stylesheet" type="text/css" />

<link href="css_links.css" rel="stylesheet" type="text/css" />

<style type="text/css">



</style>

<%

linkpagina=("thyago/visualizar_arquivos")

%>

</head>

<body>

<div id="site">

<div id="tabela"></div>



<div id="lateral_direito">

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="tabela">

<tr>

<th height="25" bgcolor="#E9E9E9" scope="row"><div align="left">

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<th width="2%" scope="row"> </th>

<td width="98%" class="style3 texto">Adicionar Notícia </td>

</tr>

</table>

</div></th>

</tr>

<tr>

<th height="25" scope="row"><table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td valign="top"><div align="center">

<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="25" align="center" valign="top" class="titulos"> </td>

</tr>

<tr>

<td valign="top"><p>

<%

acao = request.querystring("acao")

If IsEmpty(acao) or acao = "" then

%>

</p>

<form ACTION="<%=MM_editAction%>" METHOD="POST" id="form4" name="form4">

<table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td><div align="center">

<table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td><table width="100%" border="0">

<tr>

<td><table align="center">

<%

startrw = 0

endrw = HLooper1__index

numberColumns = 3

numrows = 3

while((numrows <> 0) AND (Not Video.EOF))

startrw = endrw + 1

endrw = endrw + numberColumns

%>

<tr align="center" valign="top">

<%

While ((startrw <= endrw) AND (Not Video.EOF))

%>

<td><table width="200" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="17" height="162" valign="bottom"><label>

<input name="link" type="checkbox" id="link" value="<%=Video("documento")%>" />

</label></td>

<td width="200" height="162"><object width="200" height="162"><param name="movie" value="<%=Video("documento")%>"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="<%=Video("documento")%>" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="200" height="162"></embed></object></td>

</tr>

</table></td>

<%

startrw = startrw + 1

Video.MoveNext()

Wend

%>

</tr>

<%

numrows=numrows-1

Wend

%>

</table></td>

</tr>

<tr>

<td><table width="253" border="0" align="center">

<tr>

<td width="17%"><input type="submit" name="button2" id="button2" value="Selecionar Todos" /></td>

<td width="19%"><input type="submit" name="button3" id="button3" value="Deselecionar Todos" /></td>

</tr>

</table>

<table width="218" border="0" align="center">

<tr>

<td width="15%"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td><input type="submit" name="button4" id="button4" value="Página Anterior" /></td>

</tr>

</table></td>

<td width="85%"><table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td><input type="submit" name="button5" id="button5" value="Página Anterior" /></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

<tr>

<td><table width="89" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><input name="button" type="submit" class="botao" id="button" value="Adicionar" /></td>

</tr>

</table>

<input name="titulo" type="hidden" id="titulo" value="<%request.querystring("titulo")%>" /></td>

</tr>

</table></td>

</tr>

</table>

</div></td>

</tr>

</table>

<input type="hidden" name="MM_insert" value="form4" />

</form>

<p>

<% end if

if acao = ("videoadicionado") then

%>

</p>

<table width="283" height="50" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F0f0f0">

<tr>

<td align="center" valign="middle"><table width="281" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">

<tr>

<td width="72"><img src="/thyago/biblioteca/My Videos44.png" width="64" height="64" /></td>

<td width="235" bgcolor="#F5F5F5"><div align="center" class="style16"><font face="Verdana"><span class="style18"><b>Vídeo

Adicionado <strong>com sucesso!</strong></span></font></div></td>

</tr>

</table></td>

</tr>

</table>

<p> </p>

<p> </p>

<p><%end if%></p>

<table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td><a href="visualizar_arquivos.asp" class="alterar style21"><font color="#999999" face="Arial, Helvetica, sans-serif"><strong><font color="#666666"><<

VOLTAR</font></strong></font></a></td>

</tr>

</table></td>

</tr>

<tbody>

</tbody>

</table>

</div></td>

</tr>

</table></td>

</tr>

</table></th>

</tr>

</table>

<table width="100%" border="0" cellpadding="0" cellspacing="0" class="tabela_baixo">

<tr>

<th scope="row"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td> </td>

</tr>

</table></th>

</tr>

</table>

</div>

</div></div>

</div>

<div id="rodape2">

<table width="100%" height="10" border="0" cellpadding="0" cellspacing="2">

<tr>

<th class="texto style4 style7" scope="row"><div align="center" class="texto_rodape">Dúvidas entre em contato: (41) 3039-8504 </div></th>

</tr>

<tr>

<th height="2" bgcolor="#E5E5E5" class="texto style4 style7" scope="row"> </th>

</tr>

</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<th scope="row"><div align="center" class="texto">Copyright 2009. Todos os Direitos Reservados. </div></th>

</tr>

<tr>

<th height="10" scope="row"></th>

</tr>

</table>

</div>

</body>

</html>

<%

Video.Close()

Set Video = Nothing

%>

<%

Noticia.Close()

Set Noticia = Nothing

%>

Estou no aguardo,

Obrigado!

xanburzum · Janeiro 26, 2009

você deve recuperar o conteúdo do checkbox, onde ele vira com as virgular, e você usa a função SPLIT para quebrar os dados, ou seja, separando-os pela virgula, olha este exemplo

if nome <> "" and area <> "" then
	 codigo  = request.form("codigo")
	  vet = split(codigo,",")
	if not IsArray(vet) then
	  vet = array(vet)
	  end if
   for i=0 to ubound(vet)
	sqlTabela = "insert into reservaPasta(codigoPasta,nome,area,data)values('" & vet(i) & "' , '" & nome & "', '" & area & "' , '" & data & "')"

C4wb!z!nh0 · Janeiro 27, 2009

Coloquei o respectivo exemplo, mas ocorreu um erro:

Microsoft VBScript compilation error '800a03fc'

Expected 'Next'

/thyago/add_video_confirmar.asp, line 22

Veja o código abaixo:

<%

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

ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\pedropaulo\dados\noticia_newsletter.mdb;"

Set Registros = Server.CreateObject("ADODB.RecordSet")

if titulo <> "" and documento <> "" then

codigo = request.form("link")

link = split(codigo,",")

if not IsArray(link) then

vet = array(link)

end if

for i=0 to ubound(link)

SQL = "INSERT INTO noticia_video (titulo, documento, autor)values('" & titulo & "' , '" & link(i) & "','" & autor & "')"

Registros.Open SQL,ObjConn,3,3

Set Registros = Nothing

Set ObjConn = Nothing

Response.Redirect "/thyago/add_video.asp?acao=videoadicionado"

%>

Estou no aguardo,

Obrigado novamente.

xanburzum · Janeiro 27, 2009

ta faltando o next do laço for

Loko da Web · Janeiro 27, 2009

for i=0 to ubound(link)

C4wb!z!nh0 · Janeiro 27, 2009

Adicionei o Next depois do For, mas apareceu outro erro:

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/thyago/add_video_confirmar.asp, line 23

Abaixo o código com o Next:

<%

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

ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\pedropaulo\dados\noticia_newsletter.mdb;"

Set Registros = Server.CreateObject("ADODB.RecordSet")

if titulo <> "" and documento <> "" then

codigo = request.form("link")

link = split(codigo,",")

if not IsArray(link) then

vet = array(link)

end if

for i=0 to ubound(link)

next

SQL = "INSERT INTO noticia_video (titulo, documento, autor)values('" & titulo & "' , '" & link(i) & "','" & autor & "')"

Registros.Open SQL,ObjConn,3,3

Set Registros = Nothing

Set ObjConn = Nothing

Response.Redirect "/thyago/add_video.asp?acao=videoadicionado"

%>

xanburzum · Janeiro 27, 2009

falta fechar o 1º If

C4wb!z!nh0 · Janeiro 27, 2009

Desculpa a minha ignorância, mas não consegui descobrir aonde devo fechar o IF.

Obrigado.

Mário Monteiro · Janeiro 27, 2009

ai depende da sua logica mas se colocar um end if abaixo do next elimina este erro

C4wb!z!nh0 · Janeiro 27, 2009

Agora não esta dando nenhum erro, mas ele não esta adicionando o Link na tabela. E já fiz os testes, ele esta pegando o request.form(link).

Também estava pesquisando na internet, e todos "for i=0" possuem um "response.write" em seguida, talvez, seja esse o problema, mas não consegui solucionar.

Abaixo o código:

<%

if titulo <> "" and link <> "" then

link = split(request.form("link"))

for i=0 to ubound(link)

response.write "<td>" & request.Form("link") & "</td>"

next

end if

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

ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\pedropaulo\dados\noticia_painelcontrole.mdb;"

Set Registros = Server.CreateObject("ADODB.RecordSet")

titulo = request.QueryString("titulo")

SQL = "INSERT INTO noticia_video (titulo, link)values('" & titulo & "' , '" & link(i) & "')"

Registros.Open SQL,ObjConn,3,3

Set Registros = Nothing

Set ObjConn = Nothing

%>

Mário Monteiro · Janeiro 27, 2009

acho que aqui esta errado

if titulo <> "" and link <> "" then

tem que por o que vem

acho que esta usando o request.form

xanburzum · Janeiro 27, 2009

tenta assim:

<%
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\pedropaulo\dados\noticia_newsletter.mdb;"

Set Registros = Server.CreateObject("ADODB.RecordSet")
Registros.Open SQL,ObjConn,3,3
if titulo <> "" and documento <> "" then
codigo = request.form("link")
link = split(codigo,",")
if not IsArray(link) then
vet = array(link)
end if
for i=0 to ubound(link)
SQL = "INSERT INTO noticia_video (titulo, documento, autor)values('" & titulo & "' , '" & link(i) & "','" & autor & "')"
next
 response.write("<script>alert('sucesso!');</script>")
   else
	 response.write("<script>alert('campos não podem ficar em branco');</script>")
   end if
end if
Set Registros = Nothing
Set ObjConn = Nothing

C4wb!z!nh0 · Janeiro 28, 2009

Olha, até agora não apareceu nenhum erro. Mas, não esta salvando no banco de dados.

Estou colocando para download as duas páginas, por favor, me ajudem nisso:

http://www.pedropaulo.com.br/thyago/add_noticia.zip

Abaixo esta somente o código da página para inserir no banco de dados:

<%

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\pedropaulo\dados\noticia_painelcontrole.mdb;"

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

Conexao.Open ConnString

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

Registros.Open "noticia_video", Conexao

titulo = request.QueryString("titulo")

if titulo <> "" and link <> "" then

codigo = request.form("link")

link = split(codigo)

for i=0 to ubound(link)

Conexao.Execute = "INSERT INTO noticia_video (titulo, link)values('" & titulo & "' , '" & link(i) & "')"

next

response.write("<script>alert('sucesso!');</script>")

end if

Registros.Close

Set Registros = Nothing

%>

Estou no aguardo,

Obrigado.

xanburzum · Janeiro 28, 2009

da um

response.Write na sua string SQL, para ver o que esta sendo passado ...

Arquivado

Selecionar Vários ID's

Recommended Posts

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

C4wb!z!nh0 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169