raphael_suporte

chora, pois isso não irá acontecer, acho que se cair algum do rio será o Flu, porem será o unico, já o mengão se tomar jeito a tempo ainda brigará pelo titulo...

Estas são piadas retiradas do livro 'Desordem no tribunal'. São coisas que as pessoas disseram, e que foram transcritas textualmente pelos taquígrafos que tiveram que permanecer calmos enquanto estes diálogos realmente aconteciam à sua frente. Advogado : Qual é a data do seu aniversário? Testemunha: 15 de julho. Advogado : Que ano? Testemunha: Todo ano. (NÃO,NÃO,NÃO) Advogado : Essa doença, a miastenia gravis, afeta sua memória? Testemunha: Sim. Advogado : E de que modo ela afeta sua memória? Testemunha: Eu esqueço das coisas. Advogado : Você esquece... Pode nos Dar um exemplo de algo que você tenha esquecido? (SEM COMENTÁRIOS) ___________________________________________ Advogado : Que idade tem seu filho? Testemunha: 38 ou 35, não me lembro. Advogado : Há quanto tempo ele mora Com você? Testemunha: Há 45 anos. (ANIMALLLLLL) ____________________________________________ Advogado : Qual foi a primeira coisa que seu marido disse quando acordou aquela manhã? Testemunha: Ele disse, 'Onde estou, Bete?' Advogado : E por que você se aborreceu? Testemunha: Meu Nome é Célia. (SERÁ QUE ELA MATOU O CARA?) ____________________________________________ Advogado : Seu filho mais novo, o de 20 anos.... Testemunha: Sim. Advogado : Que idade ele tem? (MÁ BURRO) ______________________________________________ Advogado : Sobre esta foto sua... O senhor estava presente quando ela foi tirada? (NÃO, A MÃE TAVA LÁ...) _______________________________________________ Advogado : Então, a data de concepção do seu bebê foi 08 de agosto? Testemunha: Sim, foi. Advogado : E o que você estava fazendo nesse dia? (EU TERIA RESPONDIDO, JURO...) _______________________________________________ Advogado : Ela tinha 3 filhos, certo? Testemunha: Certo. Advogado : Quantos meninos? Testemunha: Nenhum Advogado : E quantas eram meninas? (4...DE NOVO BURRO...) _______________________________________________ Advogado : Sr. Marcos, por que acabou seu primeiro casamento? Testemunha: Por morte do cônjuge. Advogado : E por morte de que cônjuge ele acabou? (PARA TUDO...JESUS...) _______________________________________________ Advogado : Poderia descrever o suspeito? Testemunha: Ele tinha estatura mediana e usava barba. Advogado : E era um homem ou uma mulher? (UMA MULHER, BARBADA, DO CIRCO...ÃÃÃÃÃ) _______________________________________________ Advogado : Doutor, quantas autópsias o senhor já realizou em pessoas mortas? Testemunha: Todas as autópsias que fiz foram em pessoas mortas... (CAPAZ ?????) _______________________________________________ Advogado : Aqui na corte, para cada pergunta que eu lhe fizer, sua resposta deve ser oral, Ok? Que escola você freqüenta? Testemunha: Oral. (ADOREI ESTA) _______________________________________________ Advogado : Doutor, o senhor se lembra DA hora em que começou a examinar o corpo DA vitima? Testemunha: Sim, a autópsia começou às 20:30h. Advogado : E o Sr. Décio já estava morto a essa hora? Testemunha: Não... Ele estava sentado na maca, se perguntando porque eu estava fazendo aquela autópsia nele. (TOMA...BEM FEITO....) ________________________________________ Advogado : O senhor está qualificado para nos fornecer uma amostra de urina? (DE NOVO, SEM COMENTÁRIOS...) _______________________________________________ Advogado : Doutor, antes de fazer a autópsia, o senhor checou o pulso DA vítima? Testemunha: Não. Advogado : O senhor checou a pressão arterial? Testemunha: Não. Advogado : O senhor checou a respiração? Testemunha: Não. Advogado : Então, é possível que a vítima estivesse viva quando a autópsia começou? Testemunha: Não. Advogado : Como o senhor pode ter essa certeza? Testemunha: Porque o cérebro do paciente estava num jarro sobre a mesa. Advogado : Mas ele poderia estar vivo mesmo assim? Testemunha: Sim, é possível que ele estivesse vivo e cursando Direito em algum lugar!!! (ESSA GANHOU...)

JOGO 01: SANTOS-SP JOGO 02: CORITIBA-PR JOGO 03: INTERNACIONAL-RS JOGO 04: GOIÁS-GO JOGO 05: PALMEIRAS-SP JOGO 06: SANTO ANDRÉ-SP JOGO 07: CRUZEIRO-MG JOGO 08: FLAMENGO-RJ JOGO 09: AVAÍ-SC x VITÓRIA-BA JOGO 10: SÃO PAULO-SP

queria deixar um "Feliz dia do Amigo" para todos os companheiros do Forum...

JOGO 01: CORINTHIANS-SP JOGO 02: FLAMENGO-RJ JOGO 03: BARUERI-SP x SÃO PAULO-SP JOGO 04: ATLÉTICO-PR JOGO 05: GRÊMIO-RS JOGO 06: FLUMINENSE-RJ x CRUZEIRO-MG JOGO 07: VITÓRIA-BA JOGO 08: SPORT-PE JOGO 09: ATLÉTICO-MG JOGO 10: INTERNACIONAL-RS

var a: matriz[1..2,1..3] de caracter l,x: inteiro inicio // Seção de Comandos para x de 1 ate 2 faca escreva(" Digite o nome da ", x , " pessoa: ") leia(x[1]) escreva(" Digite o endereço da ", x , " pessoa: ") leia(x[2]) escreva(" Digite o cep da ", x , " pessoa: ") leia(x[3]) fimpara para x de 1 ate 2 faca escreval(" O nome da ", x , " pessoa é: ") escreval(x[1]) escreval(" O endereço da ", x , " pessoa é: ") escreval(x[2]) escreval(" O cep da ", x , " pessoa é: ") escreval(x[3]) fimpara fimalgoritmo esse é um dos modelos que você pode usar a Matriz você tambem pode usar um "para" dentro do outro "para" para x de 1 ate 2 faça para j de 1 ate 3 faça leia(x[j]) fimpara fimpara

Opa Bruno, acho que não tem zica não, pois o registro já foi salvo, e quem incrementa o numero é o próprio Access, tipo se eu fechar o form e abrir novamente e clicar no botão para exibir o último registro ele vai está lá com o ID correto, o problema é para retorna no ato de gravar... vou deixar aberto aqui caso alguém saiba responder, mas continuo procurando caso consigo posto aqui. Mesmo assim valeu pela ajuda

então tenta coloca-lo antes do Order By, se continuar o erro, coloque aqui o código com where

Fala mestre.. é WindowsForm. o que fiz para "laçar" os campos do BD no label e textBox foi através de DataAdapter e dataTable. não usei o DataGridView não.

Boa atrde Galera do Bem. Estou fazendo um sistema de cadastro para por em prática todo o estudo em cima do C#, porem caí em um problema, ao inserir um novo registro no BD ( Access ) o campo ID ( AutoNumerico ) Não aparece na form, apenas quando eu saio e entro novamente, ou seja quando ele cria tudo do 0 ( tudo = OleDbConnection, OleDbCommand, OleDbDataAdapter, CurrencyManager, DataTable ) porque quando eu tento zerar os dados com o close para a conexão e com o Dispose, para os outros ele da conflito com o DataBindings. com poderia resolver isso?

qual seu BD? troque o * por % where fonte like '%" & val(txtpesquisa.text) & "%'

mas pensando que quem vai digitar no seu sistema é uma pessoa que não pensa assim eu colocaria um se antes do caso var idade: inteiro inicio escreva ("Digite a idade do(a) nadador(a):") leia (idade) se idade < 5 então escreval ("Sem Categoria") senao escolha idade caso 5, 6, 7 escreval ("Categoria Infantil A") caso 8, 9, 10, 11 escreval ("Categoria Infantil B") caso 12, 13 escreval ("Categoria Juvenil A") caso 14, 15, 16, 17 escreval ("Categoria Juvenil B") outrocaso escreval ("Categoria Adulto") fimescolha fimse fimalgoritmo

permissão de acesso, deve está configurado para apenas leitura. Verifique na propriedade do arquivo que está tentando copiar

você está fechando o recordset e abrindo-o novamente para uma nova consulta né?! coloque aqui seu código para que possamos ver o que está errado.

fecha seu recordset e efetua uma nova consulta, após incluir ou exluir um registro

CORINTHIANS-SP SANTOS-SPR CRUZEIRO-MG SPORT-PE INTERNACIONAL-RS x SÃO PAULO-SP FLAMENGO-RJ GOIÁS-GO x PALMEIRAS-SP NÁUTICO-PE ATLÉTICO-MG GRÊMIO-RS

você está usando o rs.update? e outra quando você alterar um registro, incluir ou excluir, você pode ter que realizar uma nova consulta, já que o resultado do seu recordSet não continha essas alterações

o que está errado é que mesmo com o IF você tenta preencher, o certo seria colocar a parte de preencher no Else... If rs.EOF Then MsgBox "Não há registros" End If txtFantasia.Text = rs("nome") txtEstab.Text = rs("estab") txtRazao.Text = rs("razao") txtEndereco.Text = rs("endereco") txtBairro.Text = rs("bairro") txtCidade.Text = rs("cidade") txtEstado.Text = rs("estado") txtCep.Text = rs("cep") txtCnpj.Text = rs("cnpj") txtInscricao.Text = rs("inscricao") txtCcm.Text = rs("ccm") txtFone1.Text = rs("fone1") txtFone2.Text = rs("fone2") txtFone3.Text = rs("fone3") txtFax.Text = rs("fax") txtResp.Text = rs("resp") txtCargo.Text = rs("cargo") txtEmail.Text = rs("email") txtSite.Text = rs("site") rs.Update ' Para quê um UPDATE se você só está consultando? preenche_grid

coloca seu código aqui para tentar ver o que pode estar errado.

no seu form Load, você faz a consulta e verifica se tiver algum retorno você coloca lá o primeiro registro, por exemplo, caso não tenha registros você bloqueia os botões.

coloque um if depois do seu recordSet if rs.eof then messageBox "Não há registros" else ' TAREFA end if mas o mais elegante para o seu sistema seriam que se não houvesse nenhum registro, não fosse permitido pesquisar, avançar, retornar, etc... é a minha opinão

o seu erro está na hora de armazenar o código do Vetor A no Vetor B, pois o jeito que você está fazendo não está invertendo... para inverter faça o seguinte: var a: vetor[1..3] de inteiro b: vetor[1..3] de inteiro x,f: inteiro inicio // Seção de Comandos para x de 1 ate 3 faca escreva("Digite o", x,"º número: ") leia(a[x]) fimpara para x de 3 ate 1 faca para Y de 1 ate 3 faca b[y]:= a[x] fimpara fimpara para x de 1 ate 3 faca escreva(b[x]) fimpara fimalgoritmo

que nada é para dar graça... se granhar muito na frente não é a mesma coisa que te passar na reta final... vou só acompanhar e na hora certa eu passo... rsrsrs OBS: só acho que podia ter mais gente participando e brigando lá na ponta. :D

1 - cara já tentou ligar para o Curso? já que não pretende sair de casa, esse deve ser o meio mais rápido, direto e confiável. Mesmo que alguém tenha feito o mesmo curso que você, o prazo pode não ser o mesmo. Aconselho-o a Ligar para o Curso ou aparecer por lá... 2 - Leia as regras do fórum, não fique respondendo seu próprio tópico para mantê-lo sempre atualizado, assim que alguém ver e puder responder, isso irá acontecer, não precisa ficar usando de flood para ter suas respostas.

Beto e Zé, dois amigos inseparáveis, queriam tomar uma cerveja ou duas, mas não tinham dinheiro algum. Fuçando os bolsos, a única coisa que encontraram foi a impressionante quantia de um real. Beto disse: - Peraí, tenho uma ideia. Foi até o açougue ao lado e saiu com uma enorme salsicha nas mãos. Zé então lhe disse: - Ce tá louco, cara? Agora é que ficamos sem um tostão furado mesmo! Beto replicou: - Não se preocupe, cara, venha comigo. Ele entrou num bar e imediatamente pediu uma cerveja e dois copos e mais duas doses de uísque. Espantado, o Zé alertou: - Agora você pirou de vez. Você já parou prá pensar na confusão em que você nos meteu? Estamos mais lisos do que sabão!! Beto, calmamente, retrucou com um sorriso: - Não se preocupe, eu tenho um plano... Saúde! Mandaram seus drinques goela abaixo. O Beto então disse: - OK, vou colocar a salsicha para fora pelo meu zíper e você se ajoelha e a coloca na sua boca. O barman viu o que estavam fazendo, fulo da vida e os botou para fora. Mas eles continuaram fazendo a mesmo coisa, bar após bar, ficando cada vez mais bêbados, tudo de graça. Quando já estavam no décimo bar, Zé resmungou: - Beto, acho que não consigo mais te acompanhar. Estou bêbado e meus joelhos estão me matando! Beto então respondeu: - E como você acha que eu estou Eu nem consigo me lembrar em qual bar eu perdi a salsicha...