Ir para conteúdo
Fórum Script Brasil

Rodrikill

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    7

  • Registro em

  • Última visita

Sobre Rodrikill

  • Data de Nascimento 24/05/1988

Contatos

  • MSN
    rodrigo_oliveira_4@hotmail.com
  • Website URL
    http://

Perfil

  • Location
    São Paulo

Rodrikill's Achievements

0

Reputação

  1. Rodrikill
    o que seria esse thread?
  2. Rodrikill
    Bom Dia a todos estopu com um problema no meu sistema de BD , tenho duas paginas destinadas a buscar um valor em um banco de dados uma indepoendente da outra, uma delas funciona normalmente mas na hora que entro na outra a conexao não abre, eu tentei fechar uma conexao, abrir outra e vice versa mas não funciona, alguém poderia me ajudar ??? aqui esta o codigo da pagina, as duas são semelhantes só muda o caminho de onde esta o bd e as variaveis e campos: <html> <head> </head> <body> <% Set conecta = Server.CreateObject("ADODB.Connection") conecta.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db2.mdb"&";" sql = "SELECT * FROM Hardware WHERE Produto Like '" & Request.Form("pro") & "%' and ID like '" & Request.Form("idd") & "%' and Part like '" & Request.Form("par") & "%' and preço like '" & Request.Form("prec") & "%' order by ID" set recset= conecta.execute(sql) If recset.EOF Then Response.Write "Não Foi Encontrado Nenhum Registro!" Else Response.write "<table border= 1 width = 830><tr><td align = center><font size=4><b>Produto" & "</font></b></td>" Response.Write "<td align = center><font size=4><b>" & "Preço" & "</font></b></td>" Response.Write "<td align = center><font size=4><b>" & "Part Number" & "</font></b></td>" Response.Write "<td align = center><font size=4><b>" & "ID" & "</font></b></td>" & "</tr>" While not recset.EOF Response.write "<tr><td align = center>" & recset("Produto") & "</td>" Response.Write "<td align = center>" & RecSet("preço") & "</td>" Response.Write "<td align = center>" & RecSet("Part") & "</td>" Response.Write "<td align = center>" & RecSet("ID") & "</td>" & "</tr>" recset.MoveNext Wend response.write "</table>" end if recset.close() conecta.close() set recset = nothing set conecta = nothing %> <form action = "Pesquisa.asp" method = "get"> <input type = "submit" value="Voltar"> </form> </body> </html> o erro que da ao abrir a pagina é o seguinte : Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xb00 Thread 0xc1c DBC 0x1da3cc4 Jet' do Registro. a linha que mostra o erro é essa: conecta.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db2.mdb"&";"
  3. Rodrikill
    Ola pessoal é o seguinte, eu fiz um pekeno sistema de busca em banco de dados por paginas Asp, mas quando eu coloco o valor para pesquisa e clico no submit, ao invés de aparecer a pagina com o valor que digitei aparece esse erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x9b0 Thread 0xad8 DBC 0x1ee5c0c Jet' do Registro. /Pesquisa1.asp, line 8 Vou deixar o codigo da pagina aqui: <html> <head> </head> <body> <% Set conecta = Server.CreateObject("ADODB.Connection") conecta.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db2.mdb"&";" sql = "SELECT * FROM Hardware WHERE Produto Like '" & Request.Form("pro") & "%' and ID like '" & Request.Form("idd") & "%' and Part like '" & Request.Form("par") & "%' and preço like '" & Request.Form("prec") & "%' order by ID" set recset= conecta.execute(sql) If recset.EOF Then Response.Write "Não Foi Encontrado Nenhum Registro!" Else Response.write "<table border= 1 width = 830><tr><td align = center><font size=4><b>Produto" & "</font></b></td>" Response.Write "<td align = center><font size=4><b>" & "Preço" & "</font></b></td>" Response.Write "<td align = center><font size=4><b>" & "Part Number" & "</font></b></td>" Response.Write "<td align = center><font size=4><b>" & "ID" & "</font></b></td>" & "</tr>" While not recset.EOF Response.write "<tr><td align = center>" & recset("Produto") & "</td>" Response.Write "<td align = center>" & RecSet("preço") & "</td>" Response.Write "<td align = center>" & RecSet("Part") & "</td>" Response.Write "<td align = center>" & RecSet("ID") & "</td>" & "</tr>" recset.MoveNext Wend response.write "</table>" end if %> <form action = "Pesquisa.asp" method = "get"> <input type = "submit" value="Voltar"> </form> </body> </html> obs: eu já tenho uma pagina semelhante a essa e funciona corretamente mas essa não...
  4. Rodrikill

    Filtro De Pesquisa De Bd

    pergunta respondeu ao Rodrikill de Rodrikill em ASP

    deu certo muito obrigaduu!!
  5. Rodrikill
    Ola pessoal é o seguinte, eu fiz uma pagina em asp que ao digitar o valor no text ele acha no BD esse valor e mostra numa tabelça em outra pagina, até ai blza, eu queria saber se tem como filtrar essa pesquisa que por exemplo ao eu escrever somente a letra "A", apareça somente os valores que começem com essa letra porque ele mostra tudu que tem letra A inclusive o que termina, vou deixar o codigu da pagina pra melhor entendimento: <html> <head> </head> <body> <% Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db1.mdb"&";" sql = "SELECT * FROM Produto WHERE Nome_Do_Produto Like '%" & Request.Form("nom") & "%' and ID like '%" & Request.Form("id") & "%' and Part_Number like '%" & Request.Form("part") & "%' and preço like '%" & Request.Form("pre") & "%' order by ID" set recset= conexao.execute(sql) If recset.EOF Then Response.Write "Não foi encontrado nenhum registro!" Else Response.write "<table border= 1 width = 370><tr><td align = center>Produto" & "</td>" Response.Write "<td align = center>" & "Preço" & "</td>" Response.Write "<td align = center>" & "Part Number" & "</td>" Response.Write "<td align = center>" & "ID" & "</td>" & "</tr>" While not recset.EOF Response.write "<tr><td align = center>" & recset("Nome_Do_Produto") & "</td>" Response.Write "<td align = center>" & RecSet("preço") & "</td>" Response.Write "<td align = center>" & RecSet("Part_Number") & "</td>" Response.Write "<td align = center>" & RecSet("ID") & "</td>" & "</tr>" recset.MoveNext Wend response.write "</table>" end if %> <form action = "Consulta.asp" method = "get"> <input type = "submit" value="Voltar"> </form> </body> </html> agradeço muito quem puder me ajudar obrigadu!
  6. Rodrikill

    Busca Em Bd Do Asp

    pergunta respondeu ao Rodrikill de Rodrikill em ASP

    linha 14 é essa: busca.open = "SELECT * FROM Produto WHERE Nome_Do_Produto LIKE '%" & Request.Form("nom") & "%',conexao,3,3" o codigo todo é esse: <html> <head> </head> <body> <% dim conexao , busca Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/") & "\db1.mdb"&";" set busca = Server.CreateObject("ADODB.RecordSet") busca.open = "SELECT * FROM Produto WHERE Nome_Do_Produto LIKE '%" & Request.Form("nom") & "%',conexao,3,3" If busca.EOF Then Response.Write "Não foi encontrado nenhum registro!" Else WHILE not busca.EOF Response.write "<tr><td>" & busca("Nome_Do_Produto") & "</td></tr>" busca.MoveNext WEND end if %> </body> </html>
  7. Rodrikill

    Busca Em Bd Do Asp

    uma questão postou Rodrikill ASP

    Ola pessoal é o seguinte, estou desenvolvendo um Banco de dados para criação de um site da empresa que eu trabalho, eu já fiz a parte que mostra a tabela com os dados do banco numa pagina em asp, agora fiz uma pagina que quando digitar um valor num text de um form, ele vai para uma pagina asp que mostra uma tabela com esse valor, caso ele esteja no BD , so que quando ele vai para essa pagina asp acontece o seguinte erro: Tipo de erro: Objeto Request, ASP 0102 (0x80004005) A função espera uma seqüência de caracteres como entrada. /inserir.asp, line 14 Eu já testei com varios valores que
×
×
  • Criar Novo...