xursinix

AOS MODERADORES: ME DESCULPEM ESTAR REVIVENDO ESTE TÓPICO MAS É QUE SURGIU OUTRA DÚVIDA RELACIONADA E ACHEI MELHOR NÃO ABRIR OUTRO TÓPICO PARA O MESMO ASSUNTO.

Estou usando Response.ContentType ="application/x-excel", legal o comando funciona, ele pede para salvar o arquivo só que ele envia com o Tipo de Arquivo: Documento do Active Server, se eu clicar em abrir ele abre com o Front Page e se eu salvar o arquivo tenho que colocar a extensão ".xls" e marcar Todos os arquivos. Queria saber se tem como eu exportar direto para o Excel sem ter que fazer isso e quando eu clicar em abrir ele abrir com o Excel e não com o Front Page.

Valeu galera.

Edit: Tenho mais uma dúvida que percebi agora, quando as informações são mostradas na tela fica com os valore certos mas quando eu salvo o arquivo para o excel desse jeito descrito aí em cima ele transforma o Ponto (.) em Vírgula (,), já usei Session.LCID=1046 mas não deu certo e se eu copiar e colar as informações no excel na mão mesmo sai certo.

Valeu eu acabei incorporando as tabelas no mesmo banco e coloquei uma variável para selecionar a tabela.

No lugar de <%=bd("precoreal")%> coloque;

<%=FormatNumber(bd("precoreal"),2)%>

O valor 2 depois indica a quantidade de casas decimais que você quer mostrar depois da vírgula.

Para você fazer aparecer também a descrição e a imagem como você descreveu, você pode criar a página usando tabelas e em cada linha da tabela você exibe o que quer.

Exemplo do Código completo para fazer isso:

<%
Sub abre_conexao
Set conexao = Server.CreateObject("ADODB.Connection")

'### Access
cnnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CTDespesa\dados\Banco.mdb;"     cnnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Grupo5\dados\LojaVirtual.mdb;"
    
   conexao.Open cnnString

End sub


Sub fecha_conexao
     Conexao.close
     Set Conexao = nothing
End sub
%>

<%
'Instrução SQL para pesquisa
  Dim strSQL, v_busca
  v_busca=request.QueryString("busca")
  v_busca=replace(v_busca,"'","")
  v_busca=replace(v_busca,"/","")
  v_busca=replace(v_busca,"\","")
  v_busca=replace(v_busca,"#","")
  v_busca=replace(v_busca,"@","")
  v_busca=replace(v_busca,"*","")
  v_busca=replace(v_busca,"?","")
  v_busca=replace(v_busca,"(","")
  v_busca=replace(v_busca,")","")
  v_busca=replace(v_busca,"=","")
  v_busca=replace(v_busca,"+","")
  v_busca=replace(v_busca,"^","")
  v_busca=replace(v_busca,"~","")
  strSQL = "SELECT * FROM nome da tabela WHERE Campo like '%" & v_busca & "%'"
'Abre a conexão
  call abre_conexao

'Executa o SQL
  Dim rsSQL, conexao 
  Set rsSQL=Conexao.Execute(strSQL) 
%>
<table width=100%>
<tr>
  <td>
   <FONT face=verdana,arial,helvetica color=black size=3><B>Controle de Gestão - CT Despesa</B></FONT>
  </td>
  <td>
   <form name=form1 action="pesquisa.asp" method=get>
   <input type=text name="busca">
  </td>
</tr>
</table>
<table width=100%>
<% if not rsSQL.eof then
while not rsSQL.eof %>
<tr>
  <td><B><FONT face="Verdana, Arial, Helvetica, sans-serif" size=1><%=rsSQL("Conta")%>  -  Valor: </B><%=FormatCurrency(rsSQL("Nome"),2)%></td>
</tr>
<tr>
  <td><FONT face="Verdana, Arial, Helvetica, sans-serif" size=1><%=rsSQL("Descrição")%><hr></FONT></td>
</tr>
<tr>
  <td><FONT face="Verdana, Arial, Helvetica, sans-serif" size=1><%=rsSQL("Preço")%><hr></FONT></td>
</tr>
<%rsSQL.MoveNext
wend%>
<%else%>
  <tr>
   <td>&nbsp;</td>
   <td colspan="2">Não foi encontrado nada na busca.</td>
   <td>&nbsp;</td>
  </tr>
<%end if%>
</table>
<% call Fecha_conexao
set rsSQL=nothing%>

Salve o arquivo com o mesmo nome da busca que ele carrega o resultado na mesma página.

Edit: As linhas v_busca=replace serve para que se o usuário digite caracteres especiais na busca altere para "" (espaço).

Consegui resolver o problema, acho!!!!

Acabei usando o método Get mesmo, o problema aparentemente estava nessa condição Centro10 like '%" & var_busca & "%' eu mudei para
Centro10 = " & var_busca & ", no banco de dados a coluna Centro10 estava como número e acho que estava dando erro na atualização pois eu estava usando '%" & var_busca & "%'.


Tenho uma outra dúvida: Eu estou usando umas 100 variáveis pois eu preciso delas para efetuar diversas contas. Tem como eu fazer um select e ir atribuindo os valores para todas as variáveis de uma vez só ou eu tenho que fazer uma por uma mesmo como eu fiz.

Valeu galera.