osmildo

Agosto 19, 2005

ACABEI DE CONSEGUIR!!! SÓ QUE POR ENQUANTO EU SO CONSEGUI COM DUAS VARIAVEIS. MARCA E MODELO. AMANHA EU TERMINO.

MAS ISSO FOI APENAS A PRIMEIRA ETAPA

PREPAREM PARA BABAR. MINHA PÁGINA É SINISTRA MERMOO

DIGO COM CONVICÇÃO QUE É UMA DAS MELHORES DESSA *&%#" DE BRASÍLIA

AGORA VOU DESCANSAR.

VALEU VEIO!

VALEU SCRIPTBRASIL

Agosto 19, 2005

FALO VEIO.

MUITO OBRIGADO PELA FORÇA. MUITO OBRIGADO AO SCRIPT BRASIL COMO UM TODO. AGORA EU ACHO QUE VAI FUNCIONAR O NEGÓCIO QUE EU TOU TENTANDO, GRAÇAS A VOCES.

Agosto 18, 2005

' olha so galera eu sou novato na área e tou querendo fazer um consulta com

' variáveis

dim vMarca

dim vModelo

dim vPrecomin

dim vPrecomax

vMarca = request.form("mknm")

vModelo = request.form("mdnm")

vPrecomin = request.form("minp")

vPrecomax = request.form("maxp")

' o problema é que a hora que chega aqui eu so consigo consultar apenas o

' Vmarca. Como que eu faço para fazer com que ele consulte as outras variáveis?

' vModelo, vPrecomin, vPrecomin, vPrecomax

' O restante ta tudo funcionando, por isso eu nem coloquei aqui para não encher.

SQL = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'"

SQL = SQL & "ORDER BY Id DESC "

' os demais campos da tabela Carros são: Modelo, PrecoMin, PrecoMax

' quebra essa ai galera!

Agosto 17, 2005

Primeiro eu quero agradecer a andreia_sp e o fercosmig, primeiro, a andreia porque ela foi a unica que me ajudou na última prgunta. quanto ao fercosmig é porque esqueci de mencioná_lo no último agradecimento.

já sei como paginar meu recordset, mas agora preciso saber uma coisa. sabe estas caixas de selecao ai em cima?

eu queria fazer uma filtragem no meu formulario antes de enviar a consulta. como é que se faz isso?

por exempo:

tem duas caixas de selecao e em uma delas eu tenho carro, motos, casas.

quando eu escolher carros ai a caixa de baixo aparece com valores como consignaçao, financiamento, novos e usados

e se caso eu selecionar a opcao casas, os valores da caixinha de baixo teria que ser referentes a casa. com de 3 quartos, 2 quartos etc. certo?

alguém pode me ajudar?

Agosto 16, 2005

bem galera...

peguei um link que a andreia_sp me falou. mesmo asssim naõ consigo colocar a paginacao no meu script

o meu script ta assim o...

<%

pagina = request("pagina")

if pagina = "" then

pagina = 1

else

pagina = cint(pagina)

end if

vMarca = request.form("car")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")

sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'"

sqlstmt = sqlstmt & "ORDER BY Id DESC "

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

rs.Open sqlstmt, DSNtemp, 3, 3

totalrecs = rs.recordcount

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

id = rs("ID")

carro = rs("Carro")

placa = rs("Placa")

marca = rs("Marca")

dono = rs("Dono")

tempo = rs("Tempo")

%>

<b><p>

<br>

<p>

<%

total = ubound(nomes,2)

registros = 10

paginas = total / 10

if cint(paginas) * registros < total then

paginas = cint(paginas) + 1

end if

if pagina = 1 then

inicio = 0

else

inicio = cint(registros) * (pagina) - 10

end if

fim = cint(inicio) + 9

if cint(fim) > cint(total) then

fim = cint(total)

end if

</p>

<p><%

FOR I = 1 TO cint(paginas)

if cint(pagina) = i then

mostra = "[" & i & "]"

else

mostra = i

end if

response.write "<a href=busca.asp?pagina=" & I & ">" & mostra & "</a> "

este é o erro veja..

toyota

hilux

A vista

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'ubound'

/busca5/busca.asp, line 53

------------------------

estou tentando colocar´a numeracao e link

alguém pode me ajudar?

Agosto 16, 2005

BOM GALERA, ESTOU AQUI DE NOVO, ESPERO QUE POSSAM ME DAR MAIS UMA FORÇA.

LEMBRAM DA PA´GINA DE CARROS QUE EU TAVA TENTANDO ARRUMAR?

ELE TA FUNCIONANDO PERFEITAMENTE, MAS EU NÃO ESTOU CONSEGUINDO COLOCAR UMA PAGINAÇAO NELA. AINDA ESTOU TENTANDO, MAS RESOLVI PEDIR UMA AJUDA A VOCES.

ESTOU ENVIANDO O CODIGO DO JEITO QUE ESTA E FOR POSSIVEL GOSTARIA QUE ME AJUDASSEM.

ESTOU APANHANDO MUITO. ..

EU QUERIA QUE QUANDO A PAGINA BUSCASSE OS CARROS ELA COLOCASSE OS LINKS LA EMBAIXO PARA A GALERA CLICAR. IGUAL NO GOOGLE, POR EXEMPLO.

O CODIGO QUE ESTOU ENVIANDO ESTA CRU, SEM NENHUMA INSTRUCAO NESSE SENTIDO.

SE PUDEREM ME AJUDAR EU FICAREI MUITO AGRADECIDO.

EIS O CODIGO

--------------------------------------------------------------------------:::::

<%

vMarca = request.form("car")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")

sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'"

sqlstmt = sqlstmt & "ORDER BY Id DESC "

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

rs.Open sqlstmt, DSNtemp, 3, 3

totalrecs = rs.recordcount

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

id = rs("ID")

carro = rs("Carro")

placa = rs("Placa")

marca = rs("Marca")

dono = rs("Dono")

tempo = rs("Tempo")

%>

<b><p>

<br>

<p>

<% rs.MoveNext %>

<% end if

</p>

EU QUERIA QEU FICASSIM AMIS OU MENOS ASIMM:

PORQUE SENAO A PAGINA VAI FICAR MUITO PESADA

CLIQUE NOS LINKS: 1 2 3 4 5 6 7 8 9 10

Agosto 15, 2005

QUERO AGRADECER AO PESSOAL QUE ENVIOU COMENTARIOS PARA MINHA SUGESTÃO. ACHO QUE É POR CAUSA DE UMA PAGINA DESSA QUE A INTERNET SE TORNOU A POTENCIA QUE SE TORNOU.

OBRIGADO ESPECIALMENTE AO PESSOAL DA PÁGINA SCRIPT BRASIL. TAMBÉM A ANDREIA_SP, BARETA E ANDRE LUIZ.

INFELIZMENTE NÃO CONSEGUIRAM IDENTIFICAR O ERRO, MAS EU ACABEI ENTENDENDO O PROBLEMA DEPOIS.

É QUE EU QUERIA QUE OS DADOS FOSSEM TODOS RETIRADOS DE UM BANCO, MAS ELES NÃO PODERIAM POR QUE EU ME EQUIVOQUEI EM UMA COISINHA...

EIS O ERRO...

<%

vMarca = request.form("car")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")

sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'"

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

rs.Open sqlstmt, DSNtemp, 3, 3

totalrecs = rs.recordcount

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

id = rs("ID")

carro = rs("Carro")

placa = rs("Placa")

marca = rs("Marca")

dono = rs("Dono")

tempo = rs("Tempo")

%>

<b><p>

O PROBLEA É QUE ISSO AQUI TINHA QUE FICAR NO FINAL DA ISTRUÇÃO. E EU COLOQUEI ANTES DO

<% rs.MoveNext %>

<% end if

AQUI EMBAIXO ESTAVA O RESTO DO CODIGO. APENAS UMA BURRICE MINHA.

O BOM MESMO É QUE ACABEI APRENDENDO ESTA LIÇAO.

DE TODO MODO, QUERO AGRADECER A TODOS PELAS DICAS.

ESSA INSTRUÇAO TINHA QUE FICAR LA EMBAIXO

POR ISSO FIZ QUESTAO DE COLOCAR ELA LOGO AQUIE EMBAIXO PARA QUEM TIVER UMA DUVIDA COMO A MINHA, COMPREEENDER O QUE ACONTECE QUANDO COLOCA ESSA INSTRUÇAO NO MEIO E não NO FIM

<% rs.MoveNext %>

<% end if

Agosto 12, 2005

peguei um script e estou tentando adapta´-lo a minha necessidade. t+á ficando bom, mas eu não estou conseguindo fazer apenas uma coisa.

eu quero que todos os carros de uma determinada marca sejam visualisados mas so ta aparecendo um unico carro. eu já abri o banco e ta gravado varios carros da mesma marca mas o codigo que eu tou usando so ta buscando um unico carro.

a pagina não da erro, mas so sai um carro de cada marca

espero que possam me ajudar, por enquantro eu tou tentando, mas não tenho conhecimento sufuiciente, não sei se vou conseguir sozinho

----------------------------------------------------------------------------------

a pagina do formulario e esta::

<html>

<head>

<title>Procure por seu carro pela placa</title>

<tr>

<tr>

<strong><font color="#FFFFFF">Selecione a marca do seu carro:

</font></strong></td>

</tr>

</table></td>

</tr>

<tr>

</tr>

<tr>

<tr>

<option value="volks">vokswagen</option>

<option value="ferrari">ferrari</option>

<option value="Porche">Porche</option>

<option value="toyota">toyota</option>

</select></td>

</tr>

<tr>

</tr>

</table></td>

<tr>

</tr>

<tr>

</tr>

</table></td>

</tr>

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

<td width="178" valign="middle" bgcolor="#f5f5f5"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="index.asp" class="menu"><font color="#00CC00">Pesquisar::</font></a></font></b></font></td>

<td width="35%" valign="middle" bgcolor="#f5f5f5"><div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="incluir.asp" class="menu"><font color="#33CC00">Incluir

mais um::</font></a></font></b></font></div></td>

</tr>

</table>

</form>

</p>

</body>

</html>

----------------------------------------------------------------------------------------------

esta e a pagina busca.asp

<%

vMarca = request.form("car")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("db.mdb")

sqlstmt = "SELECT * FROM Carros WHERE Marca like '%" & vMarca & "%'"

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

rs.Open sqlstmt, DSNtemp, 3, 3

totalrecs = rs.recordcount

x = 0

for x = 1 to totalrecs

if rs.eof then

exit for

else

id = rs("ID")

carro = rs("Carro")

placa = rs("Placa")

marca = rs("Marca")

dono = rs("Dono")

tempo = rs("Tempo")

%>

<b><p>

<% rs.MoveNext %>

<% end if

<tr>

<tr>

<td width="294" valign="top" bgcolor="#DBDEFB"><b> Marca:</b></td>

</tr>

<tr>

</tr>

</table><table width="562" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="294" valign="top" bgcolor="#DBDEFB"><b> Carro:</b></td>

</tr>

<tr>

</tr>

</table><table width="562" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="294" valign="top" bgcolor="#DBDEFB"><b> Proprietário:</b></td>

</tr>

<tr>

</tr>

</table><table width="562" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="294" valign="top" bgcolor="#DBDEFB"><b> Valor:</b></td>

</tr>

<tr>

</tr>

</table>

<tr>

<td width="294" valign="top" bgcolor="#DBDEFB"><b> Forma de pagamento:</b></td>

</tr>

<tr>

</tr>

</table></td>

</tr>

</table>

Agosto 9, 2005

PEGUEI UM ARQUIVO DE UM MURAL CUJO BANCO DE DADOS TEM EXTENSAO .MDB. O PROBLEMA É QUE EU não CONSIGO ABRI-LO COM O ACSESS. POR QUE ESTA ACONTECENDO ISSO? QUAL PROGRAMA DEVO UTILIZAR PARA ABRI-LO? A EXTENSAO .MDB VALE PÁRA QUAIS OUTROS PROGRAMAS? QUAIS DELES são GRAUTUITOS?

Entrar

osmildo

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por osmildo

Me DÁ Uma Ajuda

Me DÁ Uma Ajuda

Me DÁ Uma Ajuda

Preciso De Ajuda

Quase Paginando Mas Tem Um Erro

S.o.s

S.o.s Agradece

S.o.s

Gostaria De Saber

Navegação

Atividades