Nabvchodhonozohr

Cara eu testei aqui a consulta e deu certo: "Select * From Tabela Where Status = true" ou "Select * From Tabela Where Status = -1" O Access entende -1 como true e 1 como false. Tenta usar número ao invés de string. Valeu.

Olá! Cara, penei pra fazer isso mas consegui. Segue abaixo o código. Agora é contigo, dá uma melhorada e transforma numa função, faz o q você quiser. Tá funcionando perfeitamente. Valeu! <% dim dataDiff, horaDiff, hora, min, seg dataDiff = DateDiff("d",Date,#6/10/2005#) hora = DateDiff("h",Now,#10:35:00#) min = DateDiff("n",Time,#10:35:00#) seg = DateDiff("s",Time,#10:35:00#) horaDiff = DateAdd("h",hora,Now) horaDiff = DateAdd("n",min,Time) horaDiff = DateAdd("s",seg,Time) horaDiff = Cdate(horaDiff - Time) response.write("Dias Restantes: " & dataDiff & " Horas: " & horaDiff) %>

Olá amigo Gray. Pois tu agora és moderador? Surpreendente. Carlos, uma vez usei os códigos rápidos do Dreamweaver para fazer uma paginação em ASP. Me adiantou um bocado, mas tive q dar uma revisada porque tinha alguns bugs e qual foi a minha surpresa? o Dream tinha criado um monte de código proprietário, difícil de dar manutenção e com uma lógica q até hj não entendi, mas fazia a paginação (porém com defeitos). Gastei o mesmo tempo q gastaria se fizesse na mão. Foi uma experiência ruim. Sempre odiei wizards, até no Office. Wizards utilizam mecanismos q fazem o mínimo pra ajudar e às vezes acabam atrapalhando. Já existem muitos códigos de exemplo na web sobre .Net. Sem querer te evangelizar, dê uma olhada no código q o meu amigo Gray te passou e procure outros códigos para incrementar o q você quer fazer. Desse jeito você faz uma coisa q funciona e quando for preciso dar manutenção você entende o código e gasta menos tempo tb. Esse é o meu conselho. Abraços.

Boa essa Gray! Mas há 2 problemas. Primeiro, esse argumento q você falou eu já tinha usado, porém ele só funciona com o OWC10. Até aqui beleza porque eu posso tentar conversar com o meu chefe sobre isso porque nós usamos o OWC9, mas o problema é q eu tenho q gerar um arquivo q possa ser aberto pelo excel e modificado após a exportação, daí o usuário salva ele e importa já modificado para o datagrid q vai ter na mesma interface de exportação, entende? Esse xml gerado é apenas...xml. Já vi uma coisa, talvez seja impossível fazer assim. Vou tentar por automação como você tinha me dito, se der certo eu posto aqui. Obrigado!

Brigadão cara, mas continuam os problemas! Eu não posso usar automação, apenas o obj. OWC conforme exigiram aqui. Esse obj não tem um método SaveAs nem algo parecido. Já procurei na classe inteira. Tentei ler direto com um dataset, já q o dataset lê um arquivo xml, só q deu vários erros porque não é xml exatamente q é gerado pelo owc, mas um html com xml, por isso várias tags são desconhecidas e não dá pra ler os dados. Tentei com o próprio obj. excel. Ele leu o arquivo, mas retorna as linhas do código e não as células do xls. Agora eu estou tentando usar um FileStream pra ler esse conteúdo e extrair só o xml, pra depois validá-lo (não sei se é possível) e jogar num dataset pra q eu possa consultar os dados. Valeu.

Ok, então lá vai. Primeiro a exportação: 'Antes eu tenho as declarações e inicializações de variáveis entre elas um obj Spreadsheet do Excel 'iterando por duas drop down lists. esses são os Fors principais For I_l_i_CountAno = 0 To Me.ddl_ano.Items.Count - 1 For I_l_i_CountTipo = 1 To Me.ddl_tpdia.Items.Count - 1 'populando o obj ActiveSheet passando coordenadas tipo x,y(plano cartesiano) For each varRow in dsRows.select("query") objExcel.ActiveSheet.Cells(X,Y) = Cdbl(varRow.val) Next 'aqui há uma verificação se alguma coisa foi escrita e cálculos de alguns valores 'outro dataset q eu uso pra definir formatações na tabela For i=0 to dsFormatRow.length - 1 'daqui pra baixo tem umas 60 linhas q formatam o objExcel.ActiveSheet, tipo, cor de fundo da célula, fonte... Next Next Next 'exportação propriamente dita objExcel.ActiveSheet.Export("C:\Temp\plan.xls", OWC.SheetExportActionEnum.ssExportActionNone) Tentei ser o mais preciso possível. Tem quase 200 linhas de código nesse sistema. Tem um exemplo da planilha aqui: Planilha Abaixo eu mostro como eu estou tentando importar essa tabela pra jogar no dataset: Dim I_l_s_Conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\plan.xls;Extended Properties=Excel 8.0;") Dim I_l_o_ExcelCommand As New OleDb.OleDbCommand Dim I_l_o_DS_Excel As New DataSet Dim I_l_o_DA_Excel As OleDb.OleDbDataAdapter Dim objexcel As OWC.Spreadsheet I_l_o_ExcelCommand.Connection = I_l_s_Conn I_l_o_ExcelCommand.CommandType = CommandType.Text I_l_o_ExcelCommand.CommandText = "Select * from [Plan1$]" I_l_o_DA_Excel = New OleDb.OleDbDataAdapter(I_l_o_ExcelCommand) I_l_o_DA_Excel.Fill(I_l_o_DS_Excel) Tente importar a planilha q eu passei acima q você vai ver o erro. Depois copie o conteúdo da planilha e cole numa planilha nova. Depois faça o mesmo e vai funcionar. Valeu. Graymalkin, vou colocar o código na minha home e te passo por e-mail a url pra você ver. Obrigado.

Olá Pessoal! Estou com um grande problema. Primeiro: criei um sistema q inclusive acho q postei algo aqui sobre dúvidas nesse sistema. O sistema pega os dados de um dataset e transforma em um arquivo do excel formatado. Funcionou beleza. Agora tenho q criar o inverso: um sistema q pegue info do arquivo q foi exportado e colocar num dataset. O problema - recebo o seguinte erro quando tento pelo menos conectar à tabela: "A tabela externa não está no formato esperado." Fiz alguns testes e descobri q o erro é na conexão. Tb descobri q se eu copiar os dados da tabela e colar em uma tabela nova funciona, e o arquivo ainda fica menor. Já tentei de tudo antes de exportar. Não há nenhum atributo ou propriedade q esteja impedindo q ele seja aberto, mas pelo excesso de bytes acho q algo a + está sendo escrito fisicamente. Alguém faz idéia de como eu posso contornar esse problema?

Olá pessoal! Estou desenvolvendo um sistema em q são cadastrados alguns dados q tem prazo de validade, tipo uma data de início e uma data de fim. Ao expirar a data de fim aquele registro não será mais mostrado na página. O problema é: tenho q enviar um e-mail para o dono do registro cadastrado quando isso acontecer (expiração da data de fim) para q ele fique ciente e possa renovar o cadastro. Tem como fazer isso ser automático ou eu vou ter q manualmente executar um script de envio de e-mail para todos os q expiraram todo dia? Tipo, será q trabalhando com datas tem como startar um script em uma certa data no servidor? (viajei né?) Valeu pessoal!

Olá pessoal! Vi um post aqui q tinha um link para um tuto da MS sobre datagrids com várias tabelas usando um user control tabstrip, tudo em c#. Pois bem, depois de muito suar consegui fazer o mesmo em VB. Tá aí embaixo o link do projeto zipado: ///////////////////////////////////////////////////////////////////////////////////// TabStrip //////////////////////////////////////////////////////////////////////////////////// Ok. Tá aí. Qualquer dúvida é só postar. Espero q tenha sido útil. É bem verdade q ainda tá muito fraquinho, mas já é um começo. E se alguém implementar uma melhoria ou qualquer coisa posta aê. Valeu.

Ok pessoal! O componente está praticamente pronto. Estarei postando na seção de links, tutoriais e etc... todo o código do componente em vb e os 4 métodos adicionais pra fazer funcionar. É só copiar e colar praticamente. Verifiquem lá e se puderem melhorar postem tb as melhorias. Valeu, um abraço a todos! Obrigado Graymalkin!

Muito interessante. Mandou bem!!!

Houston, we have a problem!!! Ok, criei o componente, eliminei todos os erros, criei um datagrid alimentado por um dataset com 2 tabelas, o controle tabstrip me mostrou as "orelhinhas" com os nomes das tabelas. Daí eu cliquei e...nada! Ele não consegue mudar a tabela. Lendo o tutorial descobri q para isso é imprescindível o maldito delegate. Daí eu coloquei o delegate: Delegate Sub SelectionChangedEventHandler(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) Public Event SelectionChanged(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) E ocorreu o mesmo erro de compilação de sempre: "BC30408: Method 'Public Sub SelectionChanged(sender As Object, e As System.EventArgs)' does not have the same signature as delegate 'Delegate Sub SelectionChangedEventHandler(sender As Object, e As tabStrip.DataSetGrid.SelectionChangedEventArgs)'." Já fiz de tudo e não deu certo. Preciso q esse delegate funcione. E o pior é q ninguém sabe nada a respeito disso. Obrigado!!! Houston, end of message!!!

beleza cara! Era isso mesmo. Agora vou tentar usar o componente e se funcionar bem eu posto código aqui. Isso é, se eu não tiver mais contratempos até lá, hehehe!!! É meio sinistro pra quem tem menos de 2 meses de experiência em .Net. Valeu. Abraço

E aí Falador! Cara, eu já havia comentado e percebi q o código não reclamou porém fiquei receoso de q na execução desse pau. E o not, realmente eu não tinha notado, valeu!!! Bom, esse era o primeiro problema. O segundo era aquele evento SelectionChanged q você colocou o not na frente. Ele insiste q eu não posso chamá-lo diretamente, ou seja, só com um RaiseEvent, porém o raise de dentro do if funciona legal, mas quando eu coloco raise no teste o raise reclama q não acha nenhuma expressão. Agora eu não sei o q colocar no teste do if. Valeu cara, obrigado pela ajuda! Abraço

Esse eu já corrigi (tem q ter um raise): If SelectionChanged <> Nothing Then RaiseEvent SelectionChanged(Me, e) End If Porém dá erro no delegate. Texto do erro: "Conflicts with 'SelectionChangedEventHandler', which is implicitly declared for 'Public Event SelectionChanged(sender As Object, e As SelectionChangedEventArgs)' in class 'DataSetGrid'." E no event: "'Public Event SelectionChanged(sender As Object, e As SelectionChangedEventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event." Alguém sabe porque?

É isso q ele quer Natan. Instanciar um componente de .Net em ASP. Essa eu queria saber tb!!!

Olá a todos, especialmente a GrayMalkin(é assim q se escreve?)! Achei aqui no fórum um link para o site da microsoft onde é explicado a concepção de um componente TabStrip em ASP.Net. Como o meu Visual Studio só trabalha com Vb tive q traduzir o código q peguei nesse tutorial, pois está em C#. O problema é q eu não consegui de forma alguma usar esse componente pois tá dando erro com o evento SelectionChangedEventHandler e a propriedade SelectionChanged. Segue abaixo o link para a página e o código q tá dando erro: Página código em C# Public Delegate Sub SelectionChangedEventHandler(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) Public Event SelectionChanged(ByVal sender As Object, ByVal e As SelectionChangedEventArgs) 'Função auxiliar que chama o evento executando código definido pelo usuário Sub OnSelectionChanged(ByVal e As SelectionChangedEventArgs) 'SelectionChanged é a propriedade do evento If IsNothing(SelectionChanged) Then SelectionChanged(Me, e) End If End Sub Q q tá errado? O q eu faço?

Descobrimos!!! Estávamos usando o OWC10 porém só funciona com o OWC9. Não sei porque. Valeu!!!

Fala, FALADOR! Pô cara, não deu certo não. A gente tá achando q é bug do componente porque ele pinta a partir da coluna q não tem dados. Nas colunas preenchidas ele não muda o fundo. O engraçado é q isso funciona: oExcel.ActiveSheet.Rows.interior.ColorIndex = 3 Mas pinta tudo de uma só cor. Ele não aceita mais nada além disso. Mas valeu assim mesmo. Obrigado.

Olá pessoal! Estou usando uma conexão oledb para me conectar ao excel e trazer os dados de uma planilha populando um datagrid. Depois utilizo o OWC10(office web components v.10) para exportar como um arquivo excel. Para formatar a saída do SpreadSheet eu uso o seguinte após populá-lo: If (cRows Mod 2 = 0) Then oExcel.ActiveSheet.Cells.Rows(cRows).Interior.Color = "blue" Else oExcel.ActiveSheet.Cells.Rows(cRows).Interior.Color = "red" End If Porém se eu utilizo o índice (cRows) ele não muda o fundo aonde tem dados, ele muda após os dados. Se eu uso sem o índice isso não funciona e a tabela fica toda vermelha até onde tem dados. O q eu faço?

OBS: SE A FEDERAL TÁ VENDO ISSO AQUI, EU NÃO SOU NADA DISSO ACIMA TÁ. FOI SÓ UM "COMENTÁRIO".

Pronuncia-se: nabucodonozor. É q eu quis incrementar pra ficar diferente. Infelizmente já tem dois caras importantes com esse nome. Um era o rei da babilônia, e outro é um hacker/cracker/defacer. O q os 2 tem em comum? Destroem por diversão!!! Valeu!

O problema é q este é um arquivo de segurança. Tipo, eu criei um arquivo q eu coloco em todas as pag. como include, e nesse arquivo há um processamento pra ver se o cara num tá tentando acessar conteúdo restrito. Se tiver eu redireciono ele. Só q o site tem vários níveis de subdiretórios, e a pág. pra qual eu estou redirecionando é na raíz. Eu vou ter q criar vários includes para diferentes níveis de subdiretórios? OBS: Desculpe a minha ignorância. Trabalhar com os pontinhos (../file.asp) tá me deixando louco. Obrigado.

Cara, eu acho q a sua dúvida é + pro lado do flash. Apesar de não saber muito desse assunto, eu já li sobre um objeto chamado loadVariablesNum. Ele pode ser a solução pro seu flash q tá parando. Agora quanto a forms com flash, é bem mais fácil em php e tem vários tutos sobre isso.

Alguém pode me dar um help? O q eu estou fazendo de errado? home = server.MapPath("home.asp") Response.Redirect("home.asp") Essas linhas estão em um include na raiz. Home está na raíz. O arquivo q chama o include está um subdiretório abaixo da raiz. O include contém uma instrução if para executar ou não o código acima. Ou seja, funciona assim: subdir/arquivo.asp - include >> home.asp na raíz.