kuroi

legal, valeu pela explicacao. Dê uma olhada aqui: http://en.wikipedia.org/wiki/Polish_notation Tem a versão em Português também, mas não está completa. cara, você quis fazer uma funcao que interpretasse a notacao polonesa tipo pra treinar logica, porque queria fazer uma funcao bem completa, ou porque você tinha que entregar o programa pra alguém, alguma coisa assim? porque tipo, nem o eval do script control consegue fazer as contas que tavam na wikipedia. não entendi exatamente, porque tipo, se eu fizer uma funcao que executa uma conta de uma string exatamente igualzinha ao eval, não tenho necessidade de usar esse negocio de notacao polonesa. Sim, acha. Dê uma olhada na terceira pergunta do usuário e na resposta que tem lá embaixo nesta página: http://www.codecomments.com/archive293-2004-7-243822.html o que o cara quis dizer com isso?

1 - esse tudo bem... mas o que é esse negocio de notacao polonesa??? 2 - esse eu não conhecia, mas agora que c falou, adicionei o componente, e vi que é muito facil, pra que serve exatamente esse Microsoft Script Control, ele executa qualquer codigo que eu passar pra ele em formato string? 3 - esse também tudo bem... não sei usar essa funcao, mas se eu procurar por ai, devo achar alguma coisa... 4 - o que seria isso? eu teria que criar tipo um programa em python?? bom, pra falar a verdade, depois de ter visto o que faz esse nº 2, não vejo onde os outros poderiam ser mais praticos.

entendi, você não esta tentando fazer select, e sim definir o valor padrão no campo, certo? tente fazer sem select, so assim: = MonthName(Month(Now())) se não funcionar, no access 2003 tem um botaozinho do lado que você pode procurar as funcoes que existem, veja se na sua versao também tem isso.

esse caminho existe mesmo? tipo, o nome certo é smartupload e não smatuload, você criou o nome da pasta errado mesmo, ou errou na hora de escrever o código? não seria assim o certo? File.SaveAs(Server.MapPath("http://www.comerciodejacarei.com.br/aspsmartupload/imagem") & File.FileName)

estranho fiz assim: Select MonthName(Month(Now())) e voltou "maio", normal. isso no access 2002. o que aconteceu, ele retorna alguma mensagem de erro? valeu, recebi sim. agora to trampando registrado, então nem vou usar por enquanto, mas deve ser bem util mais pra frente.

sera que não seria isso? File.SaveAs(Server.MapPath("http://www.comerciodejacarei.com.br/aspsmatuload/imagem/") & File.FileName) com uma / no final do endereco? ou senao assim? File.SaveAs(Server.MapPath("http://www.comerciodejacarei.com.br/aspsmatuload/imagem/") & "\" & File.FileName)

???? você escrevia em portugues? o normal é assim: MonthName(Month(Now()))

x = 2 y = 1 Text1.Text = x + y[/code] ?????

sim.

você não coloca. você copia as imagens para o servidor e grava no banco o endereco de onde elas vao estar (endereco e nome).

ou você esta tentando rodar local?

minimiza: Me.WindowState = 1 maximiza: Me.WindowState = 2 se cadastra aí no forum.

onde esta sua dificuldade? você sabe que pode por uma figura de fundo no formulario atribuindo a figura à propriedade Picture? a partir disso, você que sabe o que faz, se vai deixar o usuario escolher a figura que quer, se vai você mesmo criar os skins na mao... ou se vai por minha foto (garanto que nesse caso você vai conseguir vender seu software por um bom preço, principalmente se o cliente for uma mina!!!) se a sua dificuldade for em fazer os skins, poste na sala de photoshop, fireworks, bkz? qualquer coisa poste.

não entendo desse assunto muito bem, mas acho que o seu servidor não deve ter suporte ao CDonts, sera que não é? outra coisa, isso tudo esta na mesma linha mesmo, ou isso foi na hora de você copiar o codigo pra ca? set correio = CreateObject ("CDONTS.Newmail")correio.from=request.form não seria assim? set correio = CreateObject ("CDONTS.Newmail") correio.from=request.form[/code]

não sei se é isso, mas acho que o erro é na hora de abrir, esse acho que o cursortype deve ser 1: objRS.Open strQ, objCon, 1, 3, 1 tente desse jeito, mas apague essas linhas: objRS.CursorLocation = 3 objRS.CursorType = 0 objRS.LockType = 3[/code]

poe uma foto minha de fundo

não sei se ajuda, mas no crystal reports existe a opcao de exportar o relatorio para PDF, se os dados do seu FlexGrid vêm de um banco de dados, pode dar certo pra você.

não funciona assim porque nesse codigo você substitui o text inteiro dele pelo numero do contador. no final deve aparecer apenas 10. o certo seria assim: For i = 1 To 10 Step 1 Richtextbox1.Text = Richtextbox1.Text & i & vbCRLF Next[/code] assim, você preserva o que esta escrito na caixa, atribuindo à propriedade text, o que já tem no text e mais o numero do contador. vbCRLF é a quebra de linha.

esquece o que eu te passei antes, o certo é esse: Select X.Km, X.Litros, X.Media from (Select Tabela.Código, Tabela.Km, Tabela.Litros, ((Tabela.Km - Anterior.Km) / Tabela.Litros) as Media, IIf(IsNull(Tabela.Código - Anterior.Código), 0, Tabela.Código - Anterior.Código) as Diferenca from Tabela LEFT JOIN (Select * from Tabela) as Anterior ON Tabela.Código > Anterior.Código) as X INNER JOIN (SELECT Tabela.Código, Min(IIf(IsNull(Tabela.Código - Anterior.Código), 0, Tabela.Código - Anterior.Código)) as Diferenca FROM Tabela LEFT JOIN (Select * from Tabela) AS Anterior ON Tabela.Código>Anterior.Código Group By Tabela.Código) as Y ON X.Diferenca = Y.Diferenca And X.Código = Y.Código cara foi foda foda foda pra fazer isso, testa aí e vê se está certinho. pra filtrar por placa, e tudo mais vai ficar mais complicado, mas deve dar, vê aí.

foi mal, faltou o FROM: Select Tabela.Km, Tabela.Litros, ((Tabela.Km - Anterior.Km) / Tabela.Litros) as Media from Tabela LEFT JOIN (Select * from Tabela) as Anterior ON Tabela.Código - 1 = Anterior.Código no caso de ele excluir um registro da tabela, deve funcionar assim: Select Tabela.Km, Tabela.Litros, Min(((Tabela.Km - Anterior.Km) / Tabela.Litros)) as Media from Tabela LEFT JOIN (Select * from Tabela) as Anterior ON Tabela.Código > Anterior.Código Group By Tabela.Km, Tabela.Litros, Tabela.Código fiz uns testes e parece tudo bem, vê se você encontra algum problema. assim acredito também que vai funcionar se você filtrar por placa, ou hora com você disse, é so adicionar um WHERE no final do código. vê se funciona, qualquer coisa poste.

como você sabe qual é o registro anterior? se você tiver um campo autonumeracao, você pode fazer tipo assim: Select Tabela.Km, Tabela.Litros, ((Tabela.Km - Anterior.Km) / Tabela.Litros) as Media LEFT JOIN (Select * from Tabela) as Anterior ON Tabela.X - 1 = Anterior.X sendo que X é o campo autonumeracao. se você não tem um campo autonumeracao você vê como qual o anterior? pela kilometragem? se for fica mais foda...

em um campo auto increment não se tem necessidade de setar valor.

não que minha opiniao importe, mas sou a favor...

pesquisa no forum, que já saiu isso varias vezes.

em vez de clientID mediumint( 9 ) DEFAULT '0' NOT NULL AUTO_INCREMENT tente clientID mediumint( 9 ) DEFAULT 0 NOT NULL AUTO_INCREMENT se não funcionar, tente so assim: clientID mediumint( 9 ) NOT NULL AUTO_INCREMENT pois se é auto incremente, acho que não tem necessidade de valor default