Guest - Flavio - Postado Setembro 20, 2003 Denunciar Share Postado Setembro 20, 2003 OLA PESSOAL CRIEU ESTA BUSCA PARA O BANCO DE DADOSSO QUE EU GOSTARIA QUE A BUSCA PERCORRESE VARIOS BANCO DE DADOS COM FAÇOO CODIGO E ESSE:<%@Language=VBScript%><%Response.Buffer = True%><% dim b, iReturnCount, total b = Request.QueryString("nome") Set db = Server.CreateObject("ADODB.Connection") Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) DataFile = Server.MapPath(Dir) & "\data\procura.mdb" db.Open "DBQ=" & DataFile & ";Driver={Microsoft Access Driver (*.mdb)}" SQL = "SELECT * FROM journal where pname like'%" & b & "%'" set rs = db.Execute(SQL) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' iReturnCount = 0 %>OBRIGADOFLAVIO :D Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Noid Postado Setembro 20, 2003 Denunciar Share Postado Setembro 20, 2003 Po eu acho q é só você reutilizar a variavel q fui usada em conexoes pra bancos de dados diferentes...tipovocê fez a primeira busca... só repetir a busca alterando o banco de dados...sou novato nisso mas assim daria certo.. só não sei se é o meio mais pratico Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 resopi Postado Setembro 20, 2003 Denunciar Share Postado Setembro 20, 2003 desculpa mas não entendi sua duvida você podereia ser um pouco mais expressivo????obrigado resopi! :D Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Flavio Postado Setembro 21, 2003 Denunciar Share Postado Setembro 21, 2003 olao sistema de busca tem que listar varia tabelas ou banco de dados diferentes o tipoartenotiviasnovidadesetcokvaleu Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest - Flavio -
OLA PESSOAL
CRIEU ESTA BUSCA PARA O BANCO DE DADOS
SO QUE EU GOSTARIA QUE A BUSCA PERCORRESE VARIOS BANCO DE DADOS COM FAÇO
O CODIGO E ESSE:
<%@Language=VBScript%>
<%Response.Buffer = True%>
<%
dim b, iReturnCount, total
b = Request.QueryString("nome")
Set db = Server.CreateObject("ADODB.Connection")
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
DataFile = Server.MapPath(Dir) & "\data\procura.mdb"
db.Open "DBQ=" & DataFile & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * FROM journal where pname like'%" & b & "%'"
set rs = db.Execute(SQL)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
iReturnCount = 0
%>
OBRIGADO
FLAVIO :D
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.