Busca avançada em SQL?

[Mário Monteiro 179]

:wacko: não entendi sua pergunta :wacko:

[asdruboows 0]

eu estou em um banco SQL Sever... não é access,tendeu?

[asdruboows 0]

<%Set Conn2 = Server.CreateObject("Adodb.Connection")Dim DSNtempDSNtemp="Provider=sqloledb;"DSNtemp=DSNtemp & "Data Source=bonito;Initial Catalog=ipsemg;User Id=;Password="Conn.open DSNtemp%>

essa é minha conexao!

[Mário Monteiro 179]

é só trocar a conexão mesmo

 

rs.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("bd.mdb")

 

 

POR

 

rs.ActiveConnection = "Provider=SQLOLEDB.1;User ID=ipsemg;Password=ipsemg;Initial Catalog=ipsemg;Data Source=bonito"

 

 

VEJA SE FUNCIONA

[Mário Monteiro 179]

espero que agora vá...

[asdruboows 0]

vamos lá... cara antes de mais nada...MUITO OBRIGADO MESMO PELA AJUDA HEIM!!!

[Mário Monteiro 179]

DE NADA CARA, QUALQUER COISA ESTAMOS AIAGORA JÁ VOU

[asdruboows 0]

error '80040e0c'

/ipsemg/busca.asp, line 198

 

olha o codigo ai...

 

palavra2=split(request.form("busca")," ")sqlstmt = "SELECT * FROM ARQUIVO WHERE"FOR i= LBOUND(palavra2 ) to UBOUND(palavra2 )sqlstmt = sqlstmt & " PALAVRAS_CHAVE LIKE '%"&palavra2(i)&"%' AND"NEXTsqlstmt =LEFT(sqlstmt, len(sqlstmt )-4)&RIGHT(sqlstmt, 1)' Cria a conexão com o banco de dados.set rs = Server.CreateObject("ADODB.Recordset")rs.ActiveConnection = "Provider=SQLOLEDB.1;User ID=ipsemg;Password=ipsemg;Initial Catalog=ipsemg;Data Source=bonito"'Na linha acima não esqueça de colocar o caminho correto do bd' Cria a string SQL responsável por inserir os dados no banco de dados.rs.Source = sqlstmtrs.CursorType = 0' CursorLocation informa o local onde será armazenadors.CursorLocation = 2' Tipo de bloqueio ( somente leitura, escrita ...) no modo abaixo, pode-se inserir no bd.rs.LockType = 2' Abre a conexão com o banco de dados.rs.Open()If rs.BOF And rs.EOF Then 	 response.write("<H2 align=""center"">Não foram encontrados nenhuns resultados na pesquisa que efectuou.</H2>") 	 response.write("<H2 align=""center"">We did not find a match!</H2>")  Else	 	 If Not rs.BOF Then    Coloralt="ECFDFF"    While Not rs.EOF    Do While Not rs.EOFresponse.write("<Table border=""1"" cellpadding=""0"" cellspacing=""0"" Align=""Center""  borderColor=""#000000"" Background="""" Width=""100%""> ")response.write("<TR>")response.write("<TD Width=""100%"" BGCOLOR="""  & Coloralt  & """><Font Face=""Arial"" Color=""#000000"">" & rs("TITULO") & "</Font></TD>")response.write("</TR>")response.write("</Table>")    MoveNext       	 If Coloralt="ECFDFF" Then      Coloralt="CEE7FF"    	 Else              Coloralt="ECFDFF"    	 End If            Loop    Wend 	 End If	  Close  rs.Close

[asdruboows 0]

é só amanhã mesmo né?ou tem mais alguém ai que pode me ajudar?o trem "dificultoso" viu!

[silas_i 0]

Posso te ajudar !?

[asdruboows 0]

ue... claro que pode!!!hehehe... por favor me ajude mesmo!tá tudo ai... tenta desvendar esse misterio de fazer buscar...exemplo;o cara digita no form: joão e maria ai ele busca onde tem as 3 palavras mesmo que seja em outra ordem...

[silas_i 0]

como assim três palavras eu só estou vendo joao e maria ! a terceira seria o E ?

[asdruboows 0]

ue... "e" o sistema não vai saber que "e" não é uma palavra né?é uma preposição né? deixa o portugues pra lá...Mas é isso... busca por mais de um palavra... isso!se o cara digitar..."Eu sou brasileiro" ele tem que ir e buscar onde tem as 3 palavras...sacou? mesmo que nao seja nessa ordem...

[Mário Monteiro 179]

error '80040e0c' /ipsemg/busca.asp, line 198

qual é esta linha 198??

[asdruboows 0]

rs.ActiveConnection = "Provider=SQLOLEDB.1;User ID=ipsemg;Password=ipsemg;Initial Catalog=ipsemg;Data Source=bonito"'Na linha acima não esqueça de colocar o caminho correto do bd' Cria a string SQL responsável por inserir os dados no banco de dados.rs.Source = sqlstmtrs.CursorType = 0' CursorLocation informa o local onde será armazenadors.CursorLocation = 2' Tipo de bloqueio ( somente leitura, escrita ...) no modo abaixo, pode-se inserir no bd.rs.LockType = 2' Abre a conexão com o banco de dados.rs.Open

Linha 210 rs.Open

 

Mas pelo que eu vi tá tudo certo... user... senha... tudo!

[asdruboows 0]

<%Set Conn = Server.CreateObject("Adodb.Connection")Dim DSNtempDSNtemp="Provider=sqloledb;"DSNtemp=DSNtemp & "Data Source=bonito;Initial Catalog=ipsemg;User Id=;Password="Conn.open DSNtemp%>

Esse eu sei que funciona beleza!

[Mário Monteiro 179]

cara faz um teste pra mimpoe antes desta linha 210 ai um

response.write(sqlstmt)

e me diz o que tá escrevendo na tela

[Mário Monteiro 179]

é so pra ver ser a string sql está sendo criada corretamente

[asdruboows 0]

SELECT * FROM ARQUIVO WHERE PALAVRAS_CHAVE LIKE '%g%'D error '80040e21' /ipsemg/busca.asp, line 211 a linha 211 é a antiga 210... hehehe... rs.open

[Mário Monteiro 179]

pronto cara fiz uns testes aqui, agora funcionou belezapoe esta linha apenas

sqlstmt =LEFT(sqlstmt, len(sqlstmt )-4)

no lugar daquela que está depois do FOR... e do NEXT tambem hehehe