Problemas com Banco de Dados

[alinekelly 0]

Boa Tarde!Tenho um site de comercio eletronico, em ASP, e utilizo o Access como Banco de Dados!Existe uma relação de cidades cadastradas, e produtos cadastrados para estas cidades!Em São Paulo, existe também, uma relação de Bairro Cadastrados, para que o cliente, além de escolher a cidade, escolha o Bairro, para aparecer os produtos disponiveis para o mesmo.Percebi esses dias um problema:Não está sendo extraído do banco de dados, todos os meus registros!Por Exemplo:Para meu Bairro Codigo "3" de são paulo, tenho 11 produtos cadastrados,porém, quando visualizo os produtos, me aparecem somente "4".Isso acontece em mais de um bairro,!O que mais me estranha, é que nos outros bairros (principalmente os cadastrados primeiramente) isso não ocorre!Todos os produtos aparecem normalmente, assim, como para as outras cidades, os produtos também aparecem!!!Fiz um novo banco de dados, somente com a tabela de produtos, de bairro, e de cidade!Cadastrei apenas São Paulo, UM bairro (Codigo 3 por sinal) e 11 produtos para ele!Neste novo banco........aparecem todos os 11 produtos normalmente!Alguem sabe me dizer o que ocorre?Existe um limite de registros no Access, e esse limite foi ultrapassado por mim????tenho 8216 registros (na tabela de Produtos).Alguem me Dê um Help Please!Obrigada

[meirelles 0]

ve se o campo de relacionamento está preenchido corretamente:ou seja,cidade SP - cod 03 produtoscidade xx - cod 03 << verifica se eles estão realmente presente na tabela filha...coloca a string SQL tmb!

[shumi 0]

estranho!a mesma consulta que fez no banco antigo você fez no novo?Da uma olhada aqui tambem:http://forum.imasters.com.br/index.php?s=&showtopic=215918&view=findpost&p=735990Abraços

[alinekelly 0]

Então MeirelesEstá correto o cadastro neles no BDCampo de relacionamento está correto!Tanto, que se eu abrir o Access, e filtrar na tabela produtos:Cod_Cidade = 75Cod_bairro = 3ME aparecem 11 produtos cadastradosSe eu fizer essa mesma coisa no site, só aparecem 4!E pra piorar, existem Bairros, que nao aparecem, NADA!o que faço?

[shumi 0]

Cara te aconselho a debugar!sempre que tem pau em algo aqui no trabalho crio uma página em nova somente com uma consulta para ver o que traz e tals!Usa o mesmo banco que esta usando na loja e faz uma consulta simples para trazer TODOS os produtos ai você vê se os produtos que não estavam aparecendo aparecem, depois você filtra por estado e checa se aparecem ainda, depois você filtra por cidade e checa também, depois por bairro!Sempre faço isso para debugar quando está dando uns paus locos!Abraços

[alinekelly 0]

Seria perfeiro........se funcionasse

 

Faço todos os testes..............a coisa nao funciona em determinados bairros.

Para TODOS os outros bairros, TODAS as outras cidades e TODOS os países cadastrados (Somando, são em média 300 lugares diferentes, com média de 11 produtos para cada local), está tudo funcionando...

 

O que devo fazer???????

 

apagar essa maldita tabela.........fazer toda denovo?????

 

Sem contar, que quando copio todos os dados da tabela produtos, para outra tabela produtos........e substituo a velha....continua dando erro=[

 

HEEEEEEEEEEELP o_0' http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

P.S:

 

Eu Não sou Cara.........eu sou Mina rsrsrs http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif http://forum.imasters.com.br/public/style_emoticons/default/shifty.gif

[shumi 0]

Posta o script que faz a busca para eu dar uma olhada!

[alinekelly 0]

http://forum.imasters.com.br/public/style_emoticons/default/upset.gif<%

Dim produtos__MMColParam

produtos__MMColParam = "75"

If (Request.QueryString("brasil") <> "") Then

produtos__MMColParam = Request.QueryString("brasil")

End If

%>

<%

Dim produtos__MMbairro

produtos__MMbairro = "4"

If (Request.QueryString("fase") <> "") Then

produtos__MMbairro = Request.QueryString("fase")

End If

%>

<%

Dim produtos__refina

produtos__refina = "%"

If (Request.QueryString("tipo") <> "") Then

produtos__refina = Request.QueryString("tipo")

End If

%>

<%

Dim produtos

Dim produtos_numRows

 

 

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

produtos.ActiveConnection = MM_dora_STRING

produtos.Source = "SELECT * FROM produtos, cat_brasil WHERE produtos.ID_CAT = " + Replace(produtos__MMColParam, "'", "''") + " AND cat_brasil.ID_Cat = produtos.ID_CAT AND ID_bairro = " + Replace(produtos__MMbairro, "'", "''") + " AND produtos.TIPO LIKE '" + Replace(produtos__refina, "'", "''") + "' ORDER BY Rnd(Int(Now()*[iD])-Now()*[iD]);"

produtos.CursorType = 0

produtos.CursorLocation = 2

produtos.LockType = 3

produtos.Open()

 

 

Help? http://forum.imasters.com.br/public/style_emoticons/default/upset.gif