Problemas com busca em Access

[Arthur Webdesigner 0]

Olá, estou precisando de uma ajuda. Estou trabalhando em um código que faça uma busca em um banco de dados Access, e que busque em duas tabelas diferentes: artigos e noticias. A busca funciona quando o termo procurado se encontra em algum dos campos das duas tabelas simultaneamente, ou se o termo procurado não estiver em nenhuma das duas. Porém quando preciso procurar algo que esteja apenas em artigos, ou apenas em noticias ele dá erro.

O que eu fiz foi apenas replicar o código e variáveis e aplicá-lo para a outra tabela, este é o código:

<%

Dim cnnSearchAll

Dim cnnSearchAll2

 

Dim strDBPathAll

Dim strDBPathAll2

 

Dim rstSearch

Dim rstSearch02

 

Dim strSQL

Dim strSQL2

 

Dim strSearch

 

strSearch = Request.QueryString("busca")

 

%>

<form action="busca.asp" method="get">

<input name="busca" value="<%= strSearch %>" />

<input type="submit" />

</form>

<%

If strSearch <> "" Then

'Busca Artigos

strDBPathAll = Server.MapPath("database.mdb")

Set cnnSearchAll = Server.CreateObject("ADODB.Connection")

cnnSearchAll.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPathAll & ";"

 

strSQL = "SELECT codigo, titulo, artigo " _

& "FROM artigos " _

& "WHERE titulo LIKE '%" & Replace(strSearch, "'", "''") & "%' " _

& "OR artigo LIKE '%" & Replace(strSearch, "'", "''") & "%' " _

& "ORDER BY titulo ASC"

Set rstSearch = cnnSearchAll.Execute(strSQL)

 

Dim i

i = 0

response.write "Artigos"

If rstSearch.EOF AND rstSearch.BOF Then

response.write "Nenhum resultado em Artigos"

Else

Do While i <= 3

response.write "<a href=""artigo.asp?codigo=" & rstSearch.Fields("codigo").Value & """>" & rstSearch.Fields("titulo").Value & "</a><br />"

i = i + 1

rstSearch.MoveNext

Loop

i = 0

response.write "<br /><br />"

End If

rstSearch.Close

Set rstSearch = Nothing

cnnSearchAll.Close

Set cnnSearchAll = Nothing

 

 

'Busca Notícias

strDBPathAll2 = Server.MapPath("database.mdb")

Set cnnSearchAll2 = Server.CreateObject("ADODB.Connection")

cnnSearchAll2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPathAll2 & ";"

 

strSQL2 = "SELECT codigo, titulo, noticia " _

& "FROM noticias " _

& "WHERE artigo LIKE '%" & Replace(strSearch, "'", "''") & "%' " _

& "OR noticia LIKE '%" & Replace(strSearch, "'", "''") & "%' " _

& "ORDER BY codigo DESC"

Set rstSearch02 = cnnSearchAll2.Execute(strSQL2)

 

response.write "Notícias"

 

If rstSearch02.EOF AND rstSearch02.BOF Then

response.write "Nenhum resultado em Noticias"

Else

Do While i <= 3

response.write "<a href=""noticia.asp?codigo=" & rstSearch02.Fields("codigo").Value & """>" & rstSearch02.Fields("titulo").Value & "</a><br />"

i = i + 1

rstSearch02.MoveNext

Loop

i = 0

End If

 

rstSearch02.Close

Set rstSearch02 = Nothing

cnnSearchAll2.Close

Set cnnSearchAll2 = Nothing

End If

%>

Se alguém pudesse me ajudar ficaria muito grato.

Valeu, abraço.

[Vinicius Ianni 189]

e se fizer um select campos from atigos, noticias ..... ?

[Arthur Webdesigner 0]

e se fizer um select campos from atigos, noticias ..... ?

 

o problema é que as tabelas tem colunas diferentes, em diferentes formatos, e com nomes diferentes, o que impossibilita esta alternativa eu acho.

[Vinicius Ianni 189]

select tb1.tabela1, tb2.tabela1, tb1.tabela2, tb2.tabela2 from tabela1, tabela2 where ....

[xanburzum 169]

dá uma olhada neste link

[Arthur Webdesigner 0]

eu não entendi a parte "SELECT codigo, titulo, etc AS tabela FROM artigos", por exemplo, o que vai ali onde está escrito tabela?

como faço para exibir as informações se os nomes das colunas são diferentes? e tem outro problema, preciso imprimir diferente para cada tabela, então se é artigos o link tem que ser artigo.asp?codigo=, e notícas noticia.asp?codigo=

é parece que vai ser difícil implementar esse método com todas essas exceções.

será que esse código que eu fiz não tem jeito de funcionar mesmo?

valeu

[xanburzum 169]

usa o INNER JOIN

[Arthur Webdesigner 0]

mas depois ao imprimir na tela dá personalizar de acordo com a tabela pesquisada? como?

[xanburzum 169]

sim, é só você dar um display no recordset