Brake

já resolvi o meu problema! Obrigado!

Colegas, como é de conhecimento de todos OLEDB é uma tecnologia mais atual que ODBC e tem inúmeras vantagens em relação a ODBC. Porém na minha empresa estamos tendo problemas de performance. OLEDB está deixando a desejar muito em relação a ODBC. Em uma estrutura simples de acesso ao banco (select com Do Until) que pela ODBC realiza na faixa de 1 a 2 segundos com OLEDB chega em valores absurdos de 13 e até 22 segundos. Estou achando que é algo além destas tecnologias, alguma configuração de IIS ou coisa assim mas está difícil de decifrar este problema. Se alguém puder ajudar eu agradeço e muito. Atenciosamente, Rafael Brych

mais quanto a isso você pode fazer da seguinte maneira dai ..... Set rs = objConnection.Execute("SELECT date_format(PREVISTOXREALIZADO.data, '%d/%m/%Y') AS data, PREVISTOXREALIZADO.* FROM PREVISTOXREALIZADO ORDER BY num_auto DESC LIMIT 0, 20 ") assim ele vai selecionar todos os campos da tabela, e na variavel data ele colocara o campo data convertido ... intende!

O problema pe que você esta apenas fazendo o select do campo Data, e da mais nenhum, por isso que ele não acha! ...... é necessário chamar todos os campos que você vai mostrar no select, por exemplo: Set rs = objConnection.Execute("SELECT date_format(data, '%d/%m/%Y') AS data, nome, nCampos FROM previstoxrealizado ORDER BY num_auto DESC LIMIT 0, 20 ") compreendeu o que eu quiz falar! ..... =)

As data_br ... é a variavel que vai receber o valor da data .... vamos tentar simplificar .... quando você for buscar o dado da tabela você tara colocando no lugar do nome do campo o data_br .... exemplo: <%=(rs(data_br))%> ... algo assim!

eu uso mysql sim... eu estava tentanda fazer que nem o brake mostrou .. só num entendi muito bem Bom ... vou tentar explicar ...... você fez uma funcao correto!! ... para chamala basta imprimir ela na tela, não sei se você me compreende ..... pois esta funcão esta apenas eperando que você informe alguma data a ela, para que ela a formate. tem duas maneiras ... você pode fazer uma variavel receber , ex: varTMP = FormataData(rs("valor")) logo após para exebir na tela você faz: <%=(varTMP) %> ou então fazer direto como eu tinha posto anteriormente: <%=(FormataData(rs("valor")) %> qualquer coisa me mande um email, blza! .... rafaelb@impacto.tecnologias.com.br vou tentar te ajudar!... valeu

<%=FormataData(rs("data"))%> é isso ai!?? valeu

Cara .... realmente seria bem mais facil alguém te responder no forum de ASP ..... mas vou tentar te ajudar ... .... agora não me lembro bem como é mais, é algo parecido com isso aqui: tmp = FormatNumber(valor, 2, "," , ".") Faz alguns testes ai ... creio que possa dar certo ... Valeu

Bom .. realmente fica complicado achar um erro ai ... mas da pra tentar fazer uns testes! ... vamos ver .... altere a penultima linha no seu SQL -- Retire a aspas Simples, e utilize o cDate ... as vezes isso pode ocasionar erros!!!! fica assim: "ob_data = " & cDate(data) & " " &_ tenta ai .. ve se da certo! Valeu!

Bom Amigo, realmente o seu código esta confuso .... de uma geral nele, ageite certinho ... dei uma olhada por cima, e constatei que ele pode não estar entrando no primeiro if, que você fecha la no final do codigo, ou seja , é claro que irá aparecer uma página em branco ... mas não da pra saber se esse é o problema porque o código esta mesmo confuso ... revise-o! Dúvidas! ... é so fala! Valeu!

Cara!... Isso pode ser algum problema no seu servidor, como configuração, algo assim.... Se possivel, tente testar o seu programa em outro servidor para ver se funciona!!.... Vlw!

aaaa!... caso mais alguém tenha essa duvida! abaixo vai o codigo q fiz! Option Explicit DIM stringSQL,dbIntranet,cmdTemp,MyTab DIM rsfornecedor, table_name, id Set rsfornecedor = Server.CreateObject("ADODB.Recordset") stringSQl = " sp_columns @table_name = 'FORNECEDOR'" %><!--#include virtual ="/sql/ado_MyTab_Miniaplicativo.inc"--><% set rsfornecedor = dbIntranet.Execute(stringSQL) Do While Not rsfornecedor.EOF Response.Write rsfornecedor("COLUMN_NAME")& "&nbsp;" Response.Write rsfornecedor("TYPE_NAME")& "<BR>" rsfornecedor.MoveNext Loop %>

já consegui!!.... mas vlw mesmo assim!

Olha só! , estou fazendo uns testes aqui com a utilização da stored procedure sp_columns so q quando rodo o codigo ele ta retornado esse erro: Error Type: Response object, ASP 0185 (0x8002000E) A default property was not found for the object. ai vai o codigo Se alguém achar um erro no codigo, por favor me de um toque! agradeco desde já a colaboração e a ajuda de todos! <%@ EnableSessionState=False Language=VBScript %> <% Option Explicit DIM stringSQL,dbIntranet,cmdTemp,MyTab DIM rsfornecedor Set rsfornecedor = Server.CreateObject("ADODB.Recordset") stringSQl = " sp_columns @table_name = 'FORNECEDOR'" %><!--#include virtual ="/sql/ado_MyTab_Miniaplicativo.inc"--><% set rsfornecedor = dbIntranet.Execute(stringSQL) Response.Write(rsfornecedor) response.End %>

Bom galera, já consegui resolver esse probleminha!.... eu utilizo o SQL server!... e para puxar os nomes dos campos usei a stored procedure sp_columns '<Nome da Tabela>'. e deu certo Quanto a criação dos arquivos. já desenvolvi esse codigo, não é muito complicado, mas exige um certo conhecimento em VB!! Valeu pela Ajuda!! =)