Matheus-vb6

Você quer realizar uma consulta do nome digitado? É isso? Feliz natal :D

Se estiver resolvido altere seu titulo para (Resolvido) até mesmo para facilitar a busca :) Abraços e feliz natal :D

Pela lógica eu faria dim existe as boolean existe=false Do while rsdados.eof=false and existe=false if txt...=rsdados("..") then existe=true else rsdados.movenext end if loop if existe=true 'codigo de excluir elseif existe=false and rsdados.eof=true then msgbox "cadastro não encontrado" end if Achei seu código meio complicado, sugestão... Use variavel boleana apenas para verificar, a condição acho que é melhor fora de contadores :) Fica a dica cara, se n der certo posta ai Abraços

Levei numa assistencia técnica.. o cara me ligou no dia seguinte falando q a placa mae estava queimada... então mandei troca e colocar uma mais nova... beleza, troco, peguei a velha pra mim (n sei identifica uma placa queimada).... MAS... agora qualquer toque no gabinete do notebook ele congela e trava, ou seja, o problema continua...acredito que seja contato do gabinete na placa mae, então ele trava para evitar choque ou algo assim.... e para ajudar a assitencia ta de ferias e volta só em janeiro ¬¬... então estou com 1 notebook a menos porinquanto :/.... mas no caso a BIOS, seria tipo o q? Sei a função dela, mas n sei identifica-la

verifique se voce fez a função e chamou ela pela propriedade change de cada text.... Private Sub Text1_Change() call calculo End Sub Private Sub Text2_Change() call calculo End Sub Private Sub Text3_Change() call calculo End Sub private sub calculo dim a,b,c as single a=val(txt1.text) b=val(txt2.text) c=val(txt3.text) txt1.text=b*c txt2.text=a/c txt3.text=a/b end sub Corrigindo uma coisa... eu fiz public function... mas ta errado... é "private sub calculo", desculpa... costume de módulo kkk 2 parte eu fiz aqui... vou postar o código... Private Sub Command1_Click() Command1.Caption = "5" Timer1.Enabled = True End Sub Private Sub Timer1_Timer() x = Command1.Caption x = x - 1 Command1.Caption = x If Command1.Caption = "0" Then Timer1.Enabled = False End Sub Lembrando que o timer tem que estar com interval 1000(1segundo) e enabled=false Qualquer duvida só postar ai cara.... se puder poste o código dos seus txt para mim ver.... Abraços

Então, fiz um esquema de som... vai em project>components>insertable objects e procura por windows media player.... No seu form load poe wmp.enabled=false wmp.URL = "C:\Users\Anderson\Desktop\teste.mp3" E quando o usuario clicar, você habilita esse componente... Não se esqueça de colocar visible=false :)

Lendo aqui, tudo q você falou é possivel sim... porem não entendi essas contas... Vamos la... Parte 1 Supondo se que eu prencha o numero 8 no txt1... o q apareceria no campo 2 e 3 seria isso? txt1 = txt2 * txt3 ... 8 = 4 * 2 txt2 = txt1 / txt3 ... 4 = 8 / 2 txt3 = txt1 / txt2 ... 2 = 8 / 4 Se for isso... você pode criar uma function, exemplo: Public function calculo dim a,b,c as single a=val(txt1.text) b=val(txt2.text) c=val(txt3.text) txt1.text=b*c txt2.text=a/c txt3.text=a/b Ou se não quiser usar variáveis Public function calculo txt1.text=val(txt2.text)*val(txt3.text) txt2.text=val(txt1.text)/val(txt3.text) txt3.text=val(txt1.text)/val(txt2.text) E nos campos de texto, pela propriedade "change" você chama a função calculo call calculo Parte2 Você pode criar um timer desabilitado com interval 1000 (1 segundo) Quando o usuário clicar: cmd1.caption="5" timer1.enabled=true E no timer, você faz do while cmd.caption>0 cmb1.caption = cmb1.caption - 1 loop if cmb1.caption=0 then timer1.enabled=false Quanto ao executar o som, eu só sei fazer usando um componente do windows media player, mas acho q tem um jeito menos complicado... vou dar uma pesquisada e te falo... Qualque duvida só posta aqui cara, se não entendeu algo que eu falei só postar aqui Abraços e bem vindo ao forum :)

Vou instalar esse: http://www.microsoft.com/downloads/en/deta...c8-39718c7e381d e já posto o resultado :) --edit instalei esse sp, ele extraiu varios arquivos pra pasta mas o vb ainda sim não aparece a opção orientation --edit2 Só reiniciei o pc e já estava a opção la... vlws gente :)

Boa noite gente.... hj fui finalizar um projeto e fui criar uma espécie de nota pelo CRYSTAL report, porém, ele fica dando erro e finaliza o vb... então fui recorrer ao data report, porém ele não está inserindo objetos.... Consegui então criar os objetos... porém gostaria de saber como configuro para ele imprimir em modo paisagem ou retrato... Achei esse tópico no forum http://scriptbrasil.com.br/forum/index.php?showtopic=58717 mas parece q n foi solucionado

Vi o video e achei interessante, porém notei q você não tem atualizar não é?? Uma sugestão é que no gravar dados, quando o usuario faz a consulta, ele preencha os campos e um valor boleano, identifica se o botão gravar vai alterar ou salvar um novo :) Abraços cara Que programa você usa para gravar videos assim? @off Ó eu no seu bd o/

é... ele não recebe nada.. mas acho q agente mesmo pode criar um form oculto, jogar os componentes tudo mais pra direita, e no formulario principal... criar um botão meio q load formprint formprint.printform unload formprint Acho q por esse caminho daria

esse group by seria pra ele n repitir? vou testar e já falo ----- Testado e deu certinho... não conhecia o group by, muito util... Obrigado kuroi e raphael :)

No proprio splash do seu programa, você poderia fazer um alerta, pro usuario entender porque n ta abrindo... If App.PrevInstance Then msgbox "O programa já está em execução!",vbcritical,"Erro" End end if :)

Não emite bip nenhum... hj abri e troquei o slot da memoria ram... ele ligo mas ao fexar e tentar ligar de novo, já n transmitia imagem nenhum... abri novamente, mas dessa vez abri meus 2 notebooks, e troquei as memórias ram's, o outro funcionou normal com as memórias desse, então acho q n seja memoria ram.... ao meu ver pode ser a placa de video... mas em notebook, da para trocar placa de video?? outra coisa q acho q pode ser, a bios... porque uma vez ele ligo, eu dei f2 e ele travou no setup... qual a opiniao de vocês?

e esse print form não é ajustavel? tipo... alinhar centro e tal??

Assim, no cmb data ele vai listar as datas sem repeti-las... mas quando o cara clicar em uma data, sera listado (na lista) tudo que for relacionado aquela data.... então listara todos horarios...

Boa noite amigo, no seu código... faça com um repetidor... no caso do while.. vou fazer como se ele fosse listar numa lista Set rsdados=as new adodb.recordset rsdados.open "select * from TABELA",CONEXAO Do while rsdados.eof=false if rsdados("uf") = "RJ" then LIST1.additem rsdados("Nome") rsdados.movenext loop O q ta em maiusculo é o q você tera q adaptar com o seu código...

vou postar um prnt de como ta meu banco da dados... Ali do lado de login, eu pretendia por um combo data... mas tipo, não queria q listasse as datas repitidas.... vou ver sobre esse group by :)

eu declarei o rsdados Set rsdados = New ADODB.Recordset rsdados.Open "select * from log", cn Data é o campo que ele vai puxar

na tabela "log" tem os campos "Codigo" "login" "nome" "entrada" "saida", quando, num combobox, o usuario seleciona um usuario, o rsdados seleciona tudo q tiver com o logion igual o cmb e lista as datas dele.

Como faço para que o listbox não aceite valores iguais? Exemplo Private Sub cmbLogin_Click() abrebanco If cmbLogin.Text <> Empty Then Set rsdados = New ADODB.Recordset rsdados.Open "select * from log", cn Do While rsdados.EOF = False If rsdados("Login") = cmbLogin.Text Then cmbData.AddItem rsdados("Data") rsdados.MoveNext Loop End If fechabanco End Sub Ele esta adicionando as datas de login e logoff, porem existem datas repitidas, como faço para o list não adicionar valores iguais?

Eu imprimi um formulario meu, mas tipo assim, ele literalmente imprimi o formulario não é? kkk, você sabe algum jeito de modelar isso? tipo... centralizar, dar uns vbcrlf(enter) margens... tem como? ---- oO, essa fran é rl minha, cursa tecnico junto cmg.. ksaopsaka, respondi e nem sabia U_u

Ele funcionava normal com o windows 7, tenho 2 notebooks, e o outro tem 1 gb de memoria 80hd e video chipsset e outros similares a esse, mas de um tempo pra ca esse outro passou a travar, apagar, e não inicializar... fui tentar formatar e quando apertei f2 e entrou na tela de boot ele travou e começou a passar faixar na tela, então acho q o problema não é o S.O., mesmo porque ele veio com o vista... e ele ta com 32 bits --- Não tinha percebido mas meu tópico saiu duplicado, vou reportar a moderação :D

não sei como se usa, mas o objeto data report, q vem com o vb, acho q atenderia suas necessidades... eu só sei fazer ele puxar alguma coisa do banco de dados, agora puxar de algum form já n sei.... @danle~ Esse objeto printer precisa ativar algum componente?

Boa tarde gente. Tenho um notebook positivo firstiline 1gb ram/ windows 7 ultimate/ 80 gb hd. Ultimamente ele não esta dando boot no S.O., fica passando umas faixas vermelhas ou branca as vezes. Baixei o Hiren disc, para analizar o erro, mas quando dou f2 e entro na tela de boot, ele trava! Estou em duvida se é placa de video ou memoria ram, e queria saber qual o problema antes de mandar para uma assistencia.... O que devo saber? alguém já passou por isso? o q pode ser?? Abraços