List Box

ZUCOLLI · Setembro 19, 2007

Olá é meu 1o POST

Até que enfim encontrei um fórum que vai me ajudar bastante...

DUVIDA:

É bem simples porém não tá funcionando...

no arquivo "1.asp" tenho um form que carrega uma ListBox com os dados dinâmicos do DB. O nome da ListBox é "list1"

Exemplo:

Carrego a ListBox com 3 itens: casa / bicicleta / bola

ao enviar o Form para a pg "cadastra.asp" eu pego a variavel da seguinte forma:

ASP

<%

Dim ConexaoDB, rsItens, sqlItens

Dim varListBox

varListBox = Request.Form("list1")

sqlItens = "INSERT INTO Itens (Item)"

sqlItens = sqlItens & "values ('" & varListBox & "')"

Call abre_conexao

Set rsItens=Conexao.Execute(sqlItens)

%>

Resumindo: Ele não pega o valor da ListBox e no DB fica em branco...

Neste FORM têm mais 3 campos que cadastram certo, só a list box que não.

Alguem pode me ajudar. http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

Obrigado

Quati Maldito · Setembro 19, 2007

Olá!

Cara, da um response.write em varListBox antes de inserir no bd, e depois força um erro, para ver se o valor está chegando mesmo..

Tipo :

ASP

<%

Dim ConexaoDB, rsItens, sqlItens

Dim varListBox

varListBox = Request.Form("list1")

response.write varListBox

qualquer coisa para dar erro............

sqlItens = "INSERT INTO Itens (Item)"

sqlItens = sqlItens & "values ('" & varListBox & "')"

Call abre_conexao

Set rsItens=Conexao.Execute(sqlItens)

%>

A principio, o que informou ter feito está ok...

Deve ser algum detalhe..

Flw

ZUCOLLI · Setembro 19, 2007

Ele cadastra só que em branco...Dai o response.write não escreve nada. :unsure:

Mário Monteiro · Setembro 19, 2007

como está seu form onde voce tem seu combo? o method é post mesmo ou get?posta aqui o form para a gente ver

ZUCOLLI · Setembro 19, 2007

É POST...

ASP

<%

Option Explicit

%>

<%

Dim Conexao, rsClientes, sqlClientes

sqlClientes = "SELECT * FROM Clientes ORDER BY Cliente"

Call abre_conexao

Set rsClientes = Conexao.Execute(sqlClientes)

%>

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

<head>

<!--

body {

background-color: #333333;

margin-top: 10px;

margin-left: 0px;

margin-right: 0px;

margin-bottom: 20px;

}

.style6 {font-family: Verdana, Arial, Helvetica, sans-serif}

.style12 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }

.tab_cinza {

border: 1px dashed #999999;

}

.bottons {

bottom: auto;

}

.style24 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 14px;

color: #666666;

font-weight: bold;

}

.style26 {

font-size: 16px;

color: #990000;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

}

-->

</style>

</head>

<body>

<tr>

<td width="770" height="450" valign="top" bgcolor="#FFFFFF" ><span class="style26">Lojas<br />

</span><br />

<tr>

<td width="265" height="15" bgcolor="#CCCCCC"><span class="style24">inserir </span></td>

<td width="265" height="15" bgcolor="#CCCCCC"><span class="style6"><span class="style24">consultar</span></span></td>

</tr>

<tr>

<label>cliente:

<%

While not rsClientes.EOF %>

<%

rsClientes.MoveNext

Wend

%>

</select>

</label>

<br />

número<br />

<label>

</label>

</span><br />

<label>

</label>

</span><br />

<span class="style12">endereço<br />

<label>

</label>

</span><br />

<span class="style12">telefone<br />

<label>

</label>

</span>

<br />

<span class="style12">contato<br />

<label>

</label>

</span> <br />

<br />

</div>

</form></td>

<span class="style12">cliente<br />

<label>

</label>

<br />

</label>

</span><br />

<label>

</label>

</div>

</form></td>

</tr>

<tr>

</tr>

<tr>

<td width="265" height="15" bgcolor="#CCCCCC"><span class="style6"><span class="style24">consultar todas</span></span></td>

</tr>

<tr>

</form>

</div></td>

</tr>

</table> </td>

</tr>

</table>

</body>

</html>

<%

rsClientes.Close

Call fecha_conexao

Set rsClientes = Nothing

%>

Aqui é o arquivo que grava no DB.

ASP

<%

Option Explicit

%>

<%

Dim Conexao, rsLojas, sqlLojas

Dim varCliente, varNumero, varNome, varEndereco, varTelefone, varContato

varCliente = Request.Form("clientes")

varNumero = Request.Form("numero")

varNome = Request.Form("nome")

varEndereco = Request.Form("endereco")

varTelefone = Request.Form("telefone")

varContato = Request.Form("contato")

sqlLojas = "INSERT INTO Lojas (Cliente, Numero, Nome, Endereco, Telefone, Contato)"

sqlLojas = sqlLojas & "values ('" & varCliente & "','" & varNumero & "','" & varNome & "','" & varEndereco & "', '" & varTelefone & "', '" & varContato & "')"

Call abre_conexao

Set rsLojas=Conexao.Execute(sqlLojas)

%>

<HTML>

<!--

.style12 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }

.style24 { font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 14px;

color: #666666;

font-weight: bold;

}

.style6 {font-family: Verdana, Arial, Helvetica, sans-serif}

.tab_cinza { border: 1px dashed #999999;

}

body {

margin-top: 10px;

margin-bottom: 20px;

}

-->

</style>

<!--

function MM_swapImgRestore() { //v3.0

var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;

}

function MM_preloadImages() { //v3.0

var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}

}

function MM_findObj(n, d) { //v4.01

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

function MM_swapImage() { //v3.0

var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)

if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

}

//-->

</script>

<% response.write varCliente %>

<tr>

<tr>

<p><font color="#FF6633" face="verdana"><b><font color="#FF6633" face="verdana"><b><font color="#663399" face="verdana"><b><font size="4">Loja cadastrada com

</font></b></font><font size="4"><br>

<font color="#663399" face="verdana"><b><font size="4"><font color="#818181" size="6">S

U C E S S O ! ! !</font> </font></b></font><font color="#FFFFFF" size="6"> !</font></font></b></font></b></font></p>

</div></td>

</tr>

</table></td>

</tr>

</table>

</BODY>

</HTML>

<%

Call fecha_conexao

Set rsLojas = Nothing

%>

Agora enviei o arquivo que estou usando

Boa Sorte pra nós

http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

Mário Monteiro · Setembro 20, 2007

tem varios forms na sua pageverifique se voce esta submetendo a que contem o list

Maux · Setembro 20, 2007

seu problema eh simples

no list procura inserir um calor para cada opção exemplo:

ASP

<%do while not rs.eof%>

<option [color="#FF0000"]value="<%=rs("nome")%>"[/color]><%=rs("nome")%></option>

<%rs.movenext

loop%>

</select>

ou seja seu codigo deve ficar assim:

ASP

<%

Option Explicit

%>

<%

Dim Conexao, rsClientes, sqlClientes

sqlClientes = "SELECT * FROM Clientes ORDER BY Cliente"

Call abre_conexao

Set rsClientes = Conexao.Execute(sqlClientes)

%>

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

<head>

<!--

body {

background-color: #333333;

margin-top: 10px;

margin-left: 0px;

margin-right: 0px;

margin-bottom: 20px;

}

.style6 {font-family: Verdana, Arial, Helvetica, sans-serif}

.style12 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }

.tab_cinza {

border: 1px dashed #999999;

}

.bottons {

bottom: auto;

}

.style24 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 14px;

color: #666666;

font-weight: bold;

}

.style26 {

font-size: 16px;

color: #990000;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

}

-->

</style>

</head>

<body>

<tr>

<td width="770" height="450" valign="top" bgcolor="#FFFFFF" ><span class="style26">Lojas<br />

</span><br />

<tr>

<td width="265" height="15" bgcolor="#CCCCCC"><span class="style24">inserir </span></td>

<td width="265" height="15" bgcolor="#CCCCCC"><span class="style6"><span class="style24">consultar</span></span></td>

</tr>

<tr>

<label>cliente:

<option value="NENHUM" selected="selected"><%>SELECIONE UM CLIENTE</option>

<%

While not rsClientes.EOF %>

<option value="<%= rsClientes("Cliente")%>" = rsClientes("Cliente")%></option>

<%

rsClientes.MoveNext

Wend

%>

</select>

</label>

<br />

número<br />

<label>

</label>

</span><br />

<label>

</label>

</span><br />

<span class="style12">endereço<br />

<label>

</label>

</span><br />

<span class="style12">telefone<br />

<label>

</label>

</span>

<br />

<span class="style12">contato<br />

<label>

</label>

</span> <br />

<br />

</div>

</form></td>

<span class="style12">cliente<br />

<label>

</label>

<br />

</label>

</span><br />

<label>

</label>

</div>

</form></td>

</tr>

<tr>

</tr>

<tr>

<td width="265" height="15" bgcolor="#CCCCCC"><span class="style6"><span class="style24">consultar todas</span></span></td>

</tr>

<tr>

</form>

</div></td>

</tr>

</table> </td>

</tr>

</table>

</body>

</html>

<%

rsClientes.Close

Call fecha_conexao

Set rsClientes = Nothing

%>

lembrando, dei mais uma encrementada no select =D

abração

ZUCOLLI · Setembro 20, 2007

Obrigado a todos..

Maux esse código deu certo, tava faltando o value da option.

<option [color="#FF0000"]value="<%=rs("nome")%>"[/color]><%=rs("nome")%></option>

Até a próxima

Arquivado

List Box

Recommended Posts

ZUCOLLI 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Quati Maldito 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

ZUCOLLI 1

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

ZUCOLLI 1

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

Maux 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

ZUCOLLI 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

select com varias categorias por horario

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

Fóruns

Tempo Real

Informação importante