Jump to content

  2. →
  3. →

Photo

Banco De Dados

Started By D-Style , 28/08/2003, 01:45

  • Faça o login para participar
23 replies to this topic

#1 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 28/08/2003, 01:45

Olá! Aqui estou de novo para pedir, mais uma vez, ajuda...

Estou com um problema nesse código:
<!-- #INCLUDE FILE="inc.asp" -->
	<!-- #INCLUDE FILE="AdminINC.asp" -->
<head>
<title></title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF" text="#211852" link="#211852" vlink="#211852" alink="#211852">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="25%" bgcolor="#9CCEFF" align="center">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn

mySQL = "SELECT * from Festa where FestaID = '" & request.querystring("FestaID") & "'"
rs.open sql,conn
%><b><%= rs("Festa") %></b><br><%= ors("Data") %>
</td>
  </tr>
</table>
<%
FestaID = request.querystring("FestaID")

	Set Myconn = Server.CreateObject("ADODB.Connection")
	Myconn.Open DB_CONNECTIONSTRING
	SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET")
	mySQL = "select * from Fotos WHERE FestaID = '" & request.querystring("FestaID") & "'"
	iPageSize = AdminRS.fields("NoResults")

If Request.QueryString("pagina") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("pagina"))
End If

mytable.PageSize = iPageSize
mytable.CacheSize = iPageSize
mytable.open mysql,myconn,3
iPageCount = mytable.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

	mytable.AbsolutePage = iPageCurrent

	For I = 0 To mytable.Fields.Count - 1
     
	Next 
	
	iRecordsShown = 0
	Do While iRecordsShown < iPageSize And Not mytable.EOF
	
%>
 <div align="center">
  <center>
    <table border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td bgcolor="#DEE7F7"><a href="bigpicture.asp?id=<%= mytable.fields("id").value %>"><img src="Fotos/<%= mytable.fields("Foto") %>.jpg" width="120" height="90" border="0"></a></td>
      </tr>
   <tr>
        <td height=10 align="center">----------------</td>
   </tr>
    </table>
  </center>
</div>
<%	
	iRecordsShown = iRecordsShown + 1
	mytable.MoveNext
	Loop
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="33%" bgcolor="#9CCEFF">
      <p align="center"><font color="#211852" face="Arial"><%If iPageCurrent > 1 Then
	%>
      <a href="ShowCat.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent - 1 %>">&lt;&lt;
 Previous</a><%
End If %></font></p>
    </td>
    <td width="33%" bgcolor="#9CCEFF">
      <p align="center"><font color="#211852" face="Arial"><%
' You can also show page numbers:
For I = 1 To iPageCount
	If I = iPageCurrent Then
  %>
  <%= I %>
  <%
	Else
  %>
  <a href="ShowCat.asp?FestaID=<%= FestaID %>&pagina=<%= I %>"><%= I %></a>
  <%
	End If
Next 'I %>
      </font>
</td>
    <td width="34%" bgcolor="#9CCEFF">
      <p align="center"><font color="#211852" face="Arial"><% 'next button
If iPageCurrent < iPageCount Then
	%>
 <a href="ShowCat.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent + 1 %>">Next &gt;&gt;</a>
<%
End If %></font></p>
    </td>
  </tr>
</table>
<%
AdminRS.close
%>
Está aparecendo o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado
/Testes/Minha galeria/ShowCat.asp, line 13

Onde a linha 13 é:

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

Acho que não estou conseguindo puxar dados de tabelas diferentes, num mesmo banco de dados... Espero que consigam me ajudar...

Abraços a todos!

#2 invictus

invictus

    Turista

  • Usuários
  • 52 posts
  • Sexo:Não informado

Posted 28/08/2003, 15:09

tente fazer assim:

set usuariosDB = server.CreateObject("ADODB.CONNECTION")
conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../dados/almanaque.mdb")
usuariosDB.Open ConStr


note que eu criei uma variavel para informar o driver especifico e o endereço onde esta o bco de dados.

o seu esta apenas assim:

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn


tente fazer algo similar para o seu

#3 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 30/08/2003, 16:27

Continua apresentando erro...
Vou tentar explicar o q eu tentei fazer, pra ver se facilita...

De uma tabela (Festa), eu puxo os dados de uma festa, como nome da festa, local, data e comentário...
De outra (Fotos), eu puxo as fotos desta mesma festa...
Quando eu tiro as linhas que seriam pra puxar os dados da tabela festa, funciona normalmente...

Acredito que o erro esteja nessas linhas:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn

mySQL = "SELECT * from Festa where FestaID = '" & request.querystring("FestaID") & "'"
rs.open sql,conn
%><b><%= rs("Festa") %></b><br><%= ors("Data") %>
Pois justamente quando as tiro, tudo funciona normalmente...

Aguardo resposta(s)... abraços!

#4 Asper-man-

Asper-man-
  • Visitantes

Posted 30/08/2003, 16:36

o erro está aki


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open dsn

mySQL = "SELECT * from Festa where FestaID = '" & request.querystring("FestaID") & "'"
rs.open sql,conn
%><b><%= rs("Festa") %></b><br><%= ors("Data") %>



substitua o código

<%= ors("Data") %>

por

<%= rs("Data") %>


resolveu aí?posta aí novamente!

flows

#5 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 31/08/2003, 13:08

realmente Asper-man-, havia esse erro grotesco de digitação no código, mas a mesma mensagem de erro continua aparecendo.

Abraços!

#6 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 12/09/2003, 13:55

E ae galera, voltei...

Eu fiz umas buscas aqui no forum, e encontrei alguns topicos que tratavam sobre como puxar dados de duas tabelas diferentes, porém com campos em comum... Tentei fazer uma adaptação no meu codigo, mas nao funcionou... Mas talvez com a ajuda de voces ele funcione, quem sabe? Ai vai o novo codigo, completo:
<!-- #INCLUDE FILE="inc.asp" -->
	<!-- #INCLUDE FILE="AdminINC.asp" -->
<head>
<title></title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF" text="#211852" link="#211852" vlink="#211852" alink="#211852">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="25%" bgcolor="#9CCEFF" align="center">
	<%
	FestaID = request.querystring("FestaID")

	Set Myconn = Server.CreateObject("ADODB.Connection")
	Myconn.Open DB_CONNECTIONSTRING
	SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET")
	mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = '" & request.querystring("FestaID") & "' and Fotos.FestaID = '" & request.querystring("FestaID") & "'"
	iPageSize = AdminRS.fields("NoResults")%>
	<b><%= Festa %></b><br><%= Data %>
	</td>
  </tr>
</table>
<%

If Request.QueryString("pagina") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("pagina"))
End If

mytable.PageSize = iPageSize
mytable.CacheSize = iPageSize
mytable.open mysql,myconn,3
iPageCount = mytable.PageCount

If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

	mytable.AbsolutePage = iPageCurrent

	For I = 0 To mytable.Fields.Count - 1
     
	Next 
	
	iRecordsShown = 0
	Do While iRecordsShown < iPageSize And Not mytable.EOF
	
%>
 <div align="center">
  <center>
    <table border="0" cellspacing="0" cellpadding="0">
      <tr> 
        <td bgcolor="#DEE7F7"><a href="bigpicture.asp?id=<%= mytable.fields("id").value %>"><img src="Fotos/<%= mytable.fields("Foto") %>.jpg" width="120" height="90" border="0"></a></td>
      </tr>
   <tr>
        <td height=10 align="center">----------------</td>
   </tr>
    </table>
  </center>
</div>
<%	
	iRecordsShown = iRecordsShown + 1
	mytable.MoveNext
	Loop
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="33%" bgcolor="#9CCEFF">
      <p align="center"><font color="#211852" face="Arial"><%If iPageCurrent > 1 Then
	%>
      <a href="ShowCat.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent - 1 %>">&lt;&lt;
 Previous</a><%
End If %></font></p>
    </td>
    <td width="33%" bgcolor="#9CCEFF">
      <p align="center"><font color="#211852" face="Arial"><%
' You can also show page numbers:
For I = 1 To iPageCount
	If I = iPageCurrent Then
  %>
  <%= I %>
  <%
	Else
  %>
  <a href="ShowCat.asp?FestaID=<%= FestaID %>&pagina=<%= I %>"><%= I %></a>
  <%
	End If
Next 'I %>
      </font>
</td>
    <td width="34%" bgcolor="#9CCEFF">
      <p align="center"><font color="#211852" face="Arial"><% 'next button
If iPageCurrent < iPageCount Then
	%>
 <a href="ShowCat.asp?FestaID=<%= FestaID %>&pagina=<%= iPageCurrent + 1 %>">Next &gt;&gt;</a>
<%
End If %></font></p>
    </td>
  </tr>
</table>
<%
AdminRS.close
%>
Notem que nestas linhas, eu tento puxar os dados das duas tabelas, que tem em comum o campo FestaID:
<%
	FestaID = request.querystring("FestaID")

	Set Myconn = Server.CreateObject("ADODB.Connection")
	Myconn.Open DB_CONNECTIONSTRING
	SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET")
	mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = '" & request.querystring("FestaID") & "' and Fotos.FestaID = '" & request.querystring("FestaID") & "'"
	iPageSize = AdminRS.fields("NoResults")%>
	<b><%= Festa %></b><br><%= Data %>
Tipo de erro:

Microsoft JET Database Engine (0x80040E07)
Tipo de dados imcompatível na expressão de critério.
/Testes/Galeria/Minha galeria/TMP9iqjbl41je.asp, line 32

Linha 32:
mytable.open mysql,myconn,3

Bom galera, conto com a ajuda de vocês, mais uma vez!

Abraços!

#7 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 13/09/2003, 10:14

alguém se habilita a resolver esse problema?

Abraços!

#8 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 13/09/2003, 11:02

o tipo de dados do campo esta errado para arrumar faz o seguinte:

troca isso

mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = '" & request.querystring("FestaID") & "' and Fotos.FestaID = '" & request.querystring("FestaID") & "'"


por

mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = " & cint(request.querystring("FestaID")) & " and Fotos.FestaID = " & cint(request.querystring("FestaID")) & " "


ok?
www.andrewsmedina.com.br

#9 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 13/09/2003, 12:13

cybermix,

eu fiz a alteração na linha q vc sugeriu, mas o erro continua... talvez o erro não esteja nesse ponto.

o erro q aparece:

Tipo de erro:
Microsoft JET Database Engine (0x80040E07)
Tipo de dados imcompatível na expressão de critério.
/Testes/Galeria/Minha galeria/menu.asp, line 32

Onde a linha 32 é a seguinte:
mytable.open mysql,myconn,3

E agora?

abraços!

#10 kabulozo

kabulozo

    Normal

  • Usuários
  • 68 posts
  • Sexo:Não informado
  • Localidade:Piracicaba/SP

Posted 13/09/2003, 13:46

kra, o erro está nessa parte

mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = '" & request.querystring("FestaID") & "' and Fotos.FestaID = '" & request.querystring("FestaID") & "'"


tente colocar uma virgula ao invés do and, e retire as aspas simples ' ' da parte onde você puxa o ID ficando assim:

mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = " & request.querystring("FestaID") & ", Fotos.FestaID = " & request.querystring("FestaID") & ""


c num for isso, é só postar... :)
<% kabulozo("Danilo Barbosa") %>
<% Email("danbarbosa@gmail.com") %>
<% Site("www.fotonabalada.com") %>
<% MSN("danilo_barbosa_9@hotmail.com") %>
<% Webdesigner e quase Webdeveloper :) %>

#11 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 17/09/2003, 10:51

kabuzolo,

Fiz a alteração que vc indicou, e agora está apresentando outro erro:

Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe (vírgula) na expressão de consulta 'Festa.FestaID = 1, Fotos.FestaID = 1'.
/Testes/Galeria/Minha galeria/menu.asp, line 32

O grande detalhe é que a tal da linha 32 continua sendo apontada...

Continuo contando com a ajuda de vcs...

Abraços!

#12 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 17/09/2003, 10:57

tente fazer da seguinte maneira

mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = 1 and Fotos.FestaID = 1"

www.andrewsmedina.com.br

#13 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 17/09/2003, 14:28

cybermix,

Mas ai no caso soh exibiria os dados da festa de id=1... e as outras, de id=2, id=3 e assim por diante?

Abraços!

#14 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 17/09/2003, 14:37

cybermix,

Mas ai no caso soh exibiria os dados da festa de id=1... e as outras, de id=2, id=3 e assim por diante?

Abraços!

olha d-style descuple o erro é que eu vi isso e me equivoquei

Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe (vírgula) na expressão de consulta 'Festa.FestaID = 1, Fotos.FestaID = 1'.
/Testes/Galeria/Minha galeria/menu.asp, line 32


mas o select correto seria

mySQL = "select * from Festa, Fotos WHERE Festa.FestaID = " & request.querystring("FestaID") & " and Fotos.FestaID = " & request.querystring("FestaID") & ""

www.andrewsmedina.com.br

#15 D-Style

D-Style

    12 Horas

  • Usuários
  • 133 posts
  • Sexo:Não informado

Posted 18/09/2003, 10:19

cybermix,

Com a alteração q vc sugeriu, voltamos a como estava o código a algumas respostas atrás deste tópico... E o erro continua...

Tipo de erro:
Microsoft JET Database Engine (0x80040E07)
Tipo de dados imcompatível na expressão de critério.
/Testes/Galeria/Minha galeria/menu.asp, line 32

E sempre fica apontando pra essa linha 32... Eu não entendo de ASP o suficiente para entender o q significa, mas essa linha 32 me deixa meio na dúvida q o erro é nela...

Linha 32:
mytable.open mysql,myconn,3
Bom... O código continua dando erro... Caso não haja erro com o código, existe alguma possibilidade de o erro estar no banco de dados?

Se não, q alteração devo fazer no código?

Abraços!

Ps: eu postei o código completo aqui neste tópico...
Voltar para ASP


0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq