kuroi

acho q seria isso: Select * From Tabela Where Data Between Date And DateAdd('d', 90, Date)

quanto ao segundo caso, você pode fazer assim num procedure: Declare @id As int Insert Into Tabela(Campos) Values(Valores) Select @id = @@identity Update Tabela Set Y= @id + 1 Where X = @id[/code]

mais ou menos como fizemos no otro tópico. cria um contador, e vai somando mais 1 a cada linha lida (q no meu codigo já tem, é o i). ai você testa, se ele for igual a 1 você preenche a primeira textbox, se for igual a 2, preenche a segunda e etc.

se já não tiver, tenta adicionar no seu projeto o header conio.h e na ultima linha do seu programa digitar getch();

mano cheguei tarde hj em casa, amanha do uma olhada la, beleza??

não entendi... tem como postar um printscreen??

como assim, restringir letras?? se for pra ter só numeros, declare como numerico (Integer, Double, etc). pra saber se uma string é numerica, use a funcao IsNumeric().

cara, tem q ser um instalador. a não ser q você faca tudo por codigo, tipo copie os arquivos e registre as dlls. tipo, os arquivos você tem q copiar de qualquer jeito. se facilitar pra você, você pode guarda-los num zip, ai você extrai via codigo, esse tutorial do macoratti ensina como faz: http://www.macoratti.net/pac_arq.htm ai você extrairia os arquiuvos numa pasta temporaria, copiava eles pro local certo (tipo System32), pode usar o FileSystemObject da biblioteca Microsoft Scripting Runtime pra copiar os arquivos (sei q você não gosta de procurar, mas faz uma busca no forum, no google, ou no site do macoratti q tem vaaaaarios exemplos), mas pra falar a verdade acredito q a dll do Scripting Runtime não é nativa do windows, e ela já teria q estar no pc pra funcionar, se for esse o caso, você tera q achar outra solucao ou deixar os arquivos numa pasta a parte mesmo. pra registrar as dlls, acho q pode ser com o comando shell, tipo: Shell "regsvr32 C:\Caminho\Arquivo.dll" resumindo, você vai te um trampo fudido, acho q seria bem melhor você usar o instalador.

nada alem de duas paginas de topicos, certo?? http://scriptbrasil.com.br/forum/index.php...te=ShellExecute olha la q tem alguns (varios) q descrevem certinho o q você tem q fazer. e mesmo q no forum não tivesse, nd, aqui tem: http://www.google.com.br/search?hl=pt-BR&a...oogle&meta=

você disse q queria iniciar um progrma. jpg não é programa é um arquivo de imagem, shell só serve pra .exe. pra abrir a imagem, faz uma busca pela funcao ShellExecute q tem exemplos no forum.

o q é um arquivo externo?? você tem q instanciar o objeto da classe onde ta essa funcao. exemplo: Classe xxx = new Classe(); xxx.Funcao(Parametro);[/code] se for outro namespace, você deve adiciona-lo como referencia nesse seu arquivo la em cima com a expressao using.

então faz o seguinte, ó (não testei os codigos aqui, então se você tiver algum problema, posta ai): na primeira coluna, insira esse seu campo. bom não sei se são mais de 1 campo, e você passou um só de exemplo, mas insira os campos q você quer mostrar na primeira coluna normalmente. ai crie um novo campo Formula, dentro digite o seguinte codigo (Crystal Syntax) e grave: Next ({Tabela.Campo}) onde Tabela é o nome da sua tabela, e Campo é o nome do seu campo. caso forem mais de um campos, então você tem q fazer um campo formula igual a esse pra cada um. bom, depois disso, no painel da esquerda, onde ele mostra os nomes das secoes, clique com o botao direito em Details (acredito q seus campos estejam em Details, se tiver em grupo não vai funcionar assim, nesse caso me avisa q a gente ve o q faz). Na janelinha q abrir, clica em Format Section. marque a caxinha onde esta escrito Supress (No Drill-Down) e clica no botaozinho do lado pra editar a formula. na formula, digite (Crystal Syntax): Int(RecordNumber / 2) = RecordNumber / 2 veja ai se funciona. esses procedimentos funcionam no Crystal 8.5, pra outras versoes podem ter algumas diferencas, mas tem como fazer funcionar sim.

então, quanto ao negocio do For, o q acontece, ele não mudou o piloto de nome depois de ler os 22 labels, e sim mudou pro proximo piloto. a variavel q tava em 0 foi pra 1. mas tipo, era pra você ficar de olho nos nomes q tinha no label. tipo você sabia q o xPiloto era o Button. em um dos labels tava escrito Button, certo (q era o ultimo, o 22)?? quando chegasse no Button, ele deveria entrar no For. então você tinha q ver, existe uma hora q ele faz If "Button" = "Button". se existir, ele tem q entrar no For. se não entra no For, é porque não apareceu Button no label. então você devia ficar de olho, o q ele faz na hora q devia aparecer Button?? bom... eu queria q você mesmo tivesse descoberto sem eu precisar explicar (e tb porque so percebi agora), mas se você tivesse olhado, você ia ver q os labels tavam com a pontuacao junto. exemplo, se o caption do label era "Button - 15", signfica q "Button - 15" nunca vai ser igual a "Button". então ele nunca vai entrar no For. entendeu porque é importante saber debugar o programa?? se você tivesse digitado no Immediate ? Me.Controls("lbl" & g).Caption, você ia ver a pontuacao e o problema tava localizado. manda la o projeto sim, amanha eu do uma olhada, beleza??

hum... no link q eu te passei explica direitinho. mas é tipo assim: Dim F As Long, Linha As String, i As Integer F = FreeFile Open arquivo For Input As F 'a variavel arquivo é onde você guarda o caminho do arquivo i = 1 Do While Not EOF(F) Line Input #F, Linha 'lê uma linha do arquivo texto MsgBox "Linha " & i & ": " & Linha i = i + 1 Close #F[/code] entendeu??

pela funcao InStr. como sei q você gosta de exemplos, esse é um: posicao = InStr(a, "texto") nesse caso, ele vai guardar na variavel posicao a posicao onde ele encontra, na variavel a, a expressao "texto" pela primeira vez. exemplo, se o valor de a for "xxxtextoxxx", ele volta 4. se for "textoxxx", ele volta 1. se ele voltar 0 é porque o texto não existe.

você fala das ocxs e dlls?? tipo, usa o Package e Deployment. no menu Iniciar -> Programas, vai em Microsoft Visual Studio 6.0 -> Microsoft Visual Studio 6.0 Tools -> Package e Deployment Wizard. ele já junta todas as dlls e ocxs q seu programa usa e já prepara o instalador certinho, mas você pode adicionar otros arquivos juntos (tipo um db access se você tiver usando um). não tem segredo, é so seguir as instrucoes, se tiver alguma duvida posta ai. bom, mas as vezes a gente tem uns problemas com o Package e Deployment quanto vai distribuir pra otras versoes do windows (por exemplo, programou no xp e vai instalar no 98). se for esse o seu caso, procura no google (esqueci o endereco) o InnoSetup q faz um instalador pra você tb e o IsTool q é uma ferramenta mais simples pra usar o InnoSetup. os dois programas são free e faceis de usar. se tiver alguma duvida pra usar qualquer um deles posta ae.

bom, a primeira coisa de tudo, é q a query tem q estar entre aspas, acho q você não postou o codigo completo, porque se você estiver usando sem aspas, o erro é outro. mas beleza, agora qual grid (componente) é esse q você ta usando q tem um metodo AddLine?? não seria AddItem?? você ta usando DataGrid, FlexGrid, etc?? qual grid??

cara, nunca vi esse tipo de erro com shell. posta o seu codigo como ficou pra gente tentar ver o q tem de errado nele.

ué, não seria: x = a + b cara tenta dar sempre uma explicacao melhor sobre suas duvidas, beleza?? pensa como se você tivesse lendo, se você ia entender o q foi escrito. porque eu tive q usar toda minha imaginacao pra adivinhar q você queria somar as duas variaveis e ate agora ainda não tenho certeza se é isso mesmo.

da uma olhada nesse post aqui: http://scriptbrasil.com.br/forum/index.php...st&p=209225

essa parte acredito q você tenha entendido não?? bom se não entendeu, explica melhor q parte disso não entendeu. quanto ao lap, declare uma variavel tipo assim, no topo do form: Dim c As Integer no Form_Load, atribua o valor 0 pra ela. ai no click do lap, deve ficar mais o menos assim: Private Sub LAP_Click() If c = 0 Then Text1.Text = tempo 'ACREDITO Q O TEMPO SEJA watch.caption ElseIf c = 1 Then Text2.Text = tempo ElseIf c = 2 Then Text3.Text = tempo ElseIf c = 3 Then Text4.Text = tempo End If c = c + 1 timer1.Enabled = True watch.Caption = "0" End Sub[/code]

sim, mas é você q tem q preencher de acordo com o q esta salvo via codigo, você não quer q aconteca sozinho ne?? pra aparecer td de volta nos texts certos tem uma programacao por tras e quem tem q faze-la é você. cara acho q vo sair agora, o seu otro tópico eu vejo mais tarde, beleza??

então. ve se você entende. ele entro no primeiro For q é o do i onde ele vai checar todos os xPiloto. ele ainda ta no i = 0. ele chega no segundo For q é o g, q vai checar todos os labels. você entende q ele tem q passar por todos os gs do 1 ao 22 pra poder chegar no i = 1?? ai quando o i tiver 1, ele vai passar pelo g de novo do 1 ao 22 e ai vai pro i = 2 e assim vai. então, o q acontece? ele entrou no i = 0. o primeiro i é o do Button (isso la é nome de gente?? quando você falou achei q era algum pau fudido do programa, tive q abrir la pra conferir q era o nome do cara haaha). então ele vai comparar todos os labels com o i = 0 pra ver se ele encontra o Button. agora, se todos os labels estao preenchidos com o os nomes de todos os pilotos, então um dos labels ta preenchido com Button, certo?? ele vai percorrer do 1 ao 22 pra encontrar qual é o Button. quando isso acontecer, ele TEM q entrar no If. entendeu?? então, você tem q esperar ele percorrer os 22 labels pra achar qual é o Button ta, peraí, esquece isso, vo parar a explicacao no meio, q to vendo otra coisa: For i = 1 To 22 Me.Controls("lbl" & 22 - (i - 1)).Caption = xPiloto(i - 1).nome & " - " & xPiloto(i - 1).ai Next[/code] nesse codigo você ta preenchendo os labels de acordo com o xpiloto certo?? ou seja, você sabe q o piloto 0 ta no label 22 e q o piloto 1 ta no labela 21 e assim por diante. então você não precisaria daqueles dos Fors de cima. e alias, porque você não pode mudar a cor aqui mesmo dentro desse for onde você ta preenchendo os labels?? ficaria tipo assim: [code]For i = 1 To 22 Me.Controls("lbl" & 22 - (i - 1)).Caption = xPiloto(i - 1).nome & " - " & xPiloto(i - 1).ai For j = 0 To 10 If xPiloto(i).equipe = xEquipe(j).nome Then Me.Controls("lbl" & 22 - (i - 1)).BackColor = xEquipe(j).Cor1 End If Next Next nesse caso, se isso funcionar pra você, pode esquecer todo aqueles Fors q você tava fazendo. mas mesmo assim da uma lida na explicacao q eu te dei q se você conseguir fazer esse tipo de debug no seus programas daqui pra frente ce num tem ideia de como as coisa vao ficar mais facil pra você. mano... ce num sabe o q aconteceu agora, ce num vai acreidtar... o FireFox salvou sua vida!! a luz acabou quando eu tava na ultima linha, mas o FireFox gravou tdo aqui, nem acreditei. mano ce tem uma soooooorte, eu num tava cum vontade digitar tudo isso de novo não ahhahaha mano quase chorei quando a luz acabou hahaha mo explicacao bunita q eu tava dando, eu tava ate emocionado, essa b*** de luz acaba hahaha mano nem acredito q tava tudo aqui quando o pc ligou de novo hahah o FireFox é fodaaa

hum, não sei... mas você ta tentando setar o icone via codigo ou na propria janelinha de propriedades do form?? mas tb tem q ser um arquivo do tipo .ico, não pode ser qualquer arquivo. posta a descricao do erro q da.

não ficou, mas então, ele vai ate o Next mas depois ele vai voltar, se você tivesse continuado você ia ver. porque o q acontece?? ele comparou o label com o nome do piloto mas eles não bateram. então ele não entrou no If. mas o for continua, entendeu?? ele comparou o primeiro label com o primeiro piloto, e agora ele vai comparar o segundo label com primeiro piloto, depois o terceiro ate comprara todos os labels com todos os pilotos. então tipo, uma hora o primeiro label tem q bater com algum piloto, certo?? então fica de olho. lembra q eu falei q da pra você ver os valores?? tipo, para o mouse em cima de xPiloto(i).nome q ele vai mostrar o nome do piloto do atual indice i. a mesma coisa pro Me.Controls("lbl" & g).Caption. e se ele não mostrar quando você parar o mouse, digita do Immediate Window (Ctrl + G) ? Me.Controls("lbl" & g).Caption por exemplo, q ele mostra. então fica de olho a cada passagem q uma hora vai ter q bater o piloto do label com o do xPiloto. ai nessa hora ele deve entrar no if ai você ve o q acontece. ai se ele não entrar no if, tem q tentar descobrir porque isso acontece.