ToPronto N'Area

Olá preciso fazer esta verificação. Possuo uma tabela onde tenho os dados classificação, idade e resultado Preciso fazer um sql q ela me traga os resultados de acordo com os criterio Atenção eu utilizo o sql no visual basic por isto a escrita desta forma a estrutura da tabela é esta CODIGO SEXO CLASSIFICACAO IDADE RESULTADO 2 MASCULINO BAIXO RISCO DE PARA SAÚDE 20 0,82 8 MASCULINO MODERADO RISCO PARA SAÚDE 20 0,83 14 MASCULINO ALTO RISCO PARA SAÚDE 20 0,89 20 MASCULINO ALTO RISCO PARA SAÚDE 20 0,95 fiz um sql assim Sql = "select TOP 1 * from tab1 where idade like '" & 20 & "'" Sql = Sql & " and resultado >= '" & "0,81" & "' ORDER BY RESULTADO ASC" Onde "20" e "0,81" eu utilizo variaveis, o qual estão funcionando a questão é a seguinte até 0,90 funciona perfeitamente o problema é que na hora em que possuir um resultado maior que 0,96 ele não me traz nada! Bom pra vocês verificarem como ele esta funcionando Sql = "select TOP 1 * from tab1 where idade like '" & 20 & "'" Sql = Sql & " and resultado >= '" & "0,81" & "' ORDER BY RESULTADO ASC" ele me retorna 2 MASCULINO BAIXO RISCO DE PARA SAÚDE 20 0,82 porem quando for Sql = "select TOP 1 * from tab1 where idade like '" & 20 & "'" Sql = Sql & " and resultado >= '" & "0,99" & "' ORDER BY RESULTADO ASC" ele não me retorna nada. eu preciso de um sql que me possibilite fazer comparações ou buscar o valor mais proximo daquele pra maior? Acho q é isso espero ter sido claro, se alguém puder me ajudar eu fico muito grato. Até mais

Kraks se tivesse prestado atenção na lógica eu não tinha feito um erro grotesco deste! Kuroi, muito obrigado, vou testar o sql e posto o resultado aqui! Valeu mesmo!

Ola pessoal éo seguinte, preciso fazer este select select sum(d.valor) as SomVlr, d.pc, d.databaixa, p.descricao from findetpc d inner join finpcatualizado p on (p.codcategoria = d.pc) group by d.pc, d.databaixa, p.descricao Até aqui ta td perfeito ele funciona normalmente, perfeitamente. O problema é que ele me retorna item a item por exemplo se eu tenho dois itens "RECEITAS" ele vai me trazer o registro duas vezes, pesquisei e descobri q a solução pra isto é o distinct, porem não consigo inserir o distinct neste select alguém sabe se a possibilidade de colocar o sum e o distinct em um mesmo sql. há detalhe o dinstinct funcionou sozinho sem o sum! Bom eu utilizo o sql server 2000 Sem mais muito obrigado!

E ai pessoal seguinte, tenho de importar um texto em word para o visual basic em campo memo, até ai beleza sem problemas A questão é a seguinte neste campo terá um texto com varios um codigobase, nomecliente, e descrição. Isto vira mais ou menos assim 010101 José da silva antunes silveira rocha. aslkjvnsakljvnsvbsalkjv sa ossnvsçlknv salçd nsaçlknv slçkvnasl vsdvs vos nvlsnd vlksadn vçlksn vlksvçlsna vnsalvçns açlknv dçlknslknvslkndvsçlaknv dlkn lksanv lçkasn vlsnv lknvlskndvlskan vslkdnv lçskanv lçskanvlçsad nv lçsanv çlsadknv lsçaknvçaslknv açl ls lskdnv lsçaknv çslnçlksnv lksan vlçksn vlçsn v. Pesquisei na net e achei este tutorial http://www.macoratti.net/txt_arqs.htm Muito interessante diga-se de passagem, porem, nem sempre o código vira neste tamanha e o o texto memo vai ser maior e apos este texto memo vem outro cliente então eu sei que vou utilizar um for para verificar os nomes de clientes cadastrados, só que não sei como informar onde começo a copiar e onde paro de copiar, na teoria ele para de copiar apartir do momento em que ele achar outro nome ou codigo de cliente diferente caso contrario ele seleciona e salva em uma tabela com estes campos. Se alguém puder me ajudar fico grato.

cara prq tu num da uma olhada na ferramenta visual reportx ela é boa! http://www.joinbit.com/ no site você consegue mais informações! beleza

cara tenta explicar melhor o que você precisa, mas antes separe os calculos com parenteses () para o vb saber qual calculo fazer primeiro! beleza! Abraços!

Pessoal é o seguinte, como a grande maioria dos técnicos, não gosto de condenar uma peça sem antes ter certeza q não tem jeito, só q estou com um problema, um cliente meu reclamou q o hd de seu micro foi pro pau, outra pessoa mecheu e disse q não tinha mais jeito, porem quis dar uma olhada, a questão é a seguinte o hd não reconhece quando liga ele direto no note, e quando liga ele na case em um pc normal ele tambem não reconhece, dai eu pensei como já consegui recuperar hd assim com o ndd, tentei fazer o setup do pc reconhecer ele, porem não consigo fazer o pc bootar pela case, tem alguma forma de fazer isto, ou vocês saber uma outra maneira deu conseguir abrir este hd no windows mesmo, pra passar um recovery nele? Se alguém puder ajudar fico muito agradecido!

cara muito obrigado, valeu mesmo! Abração!

Olá pessoal alguém sabe me dizer se existe uma forma de ativar o roler do mouse pra funcionar nos programas criados em visual basic, no programa em execução não no projeto. Se alguém puder me ajudar fico muito agradecido! Até mais!

OLÁ GOSTARIA DE SABER SE TEM COMO EM TEMPO DE EXECUÇÃO TROCAR O CAMINHO DO CRISTAL REPORTS DEPENDENDO DA SITUAÇÃO? pOR EXEMPLO É NATURAL ELE ABRIR NA PASTA Z: GOSTARIA DE DIZER ATRAVES DE VARIAVEIS O CAMINHO PRA ELE BUSCAR AS INFORMAÇÕES! SEM MAIS OBRIGADO

Cara tem sim, utiliza mais de um componente mas fica legal Olha só 1º - tu coloca um image no picture ele fica alinhado no top,dai tu tem de fazer ele ficar por toda a parte do mid, então tu faz um codigo para o fundo deste image pegar a cor q esta salva no bd ou q o usuario vai escolher, e no meio do image tu coloca um picture. e ele pode receber a imagem q você precisar e troca a propriedade strench = true!!! Acho q isto resolve seu problema! klker coisa posta ai! blza!

Olá seguinte tenho uma listview onde ela é preenchida no load do form, ela esta com a opção checkbox marcada como true, a ideia é o usuario selecionar todos ou alguns itens que estiverem nesta list e mandar executar esta ação, eu preciso saber qual o comando que eu utilizo para fazer isto. Sem mais muito obrigado. Abraços

Seguinte pessoal, eu to fazendo um sistema em vb com bd sql express só que é o seguinte, quando eu seleciono uma variavel do tipo money ele conta as casas decimais todas erradas, então valores que eram pra ser 1000,50 viram 1.000.000,50 Algo assim tudo errado os valores, tanto no money quanto no smallmoney, então eu coloquei eles no nvarchar(50) dai fica bonitinho conforme eu formato o texto fica legal. porem todavia contudo!!! quando eu busco o valor no relatorio no cristal 10 ele não encherga como valor e sim como string dai não consigo fazer somatorias, se alguém puder me ajudar, eu fico grato! Valeu!!!

Tambem funciona só que eu prefiro este, prq o underline não entra em qualquer local da expressão! já a concatenação funciona em qualquer parte!

Faz assim adcUsu.Recordset.AbsolutePosition blza! Abraços

Pessoal consegui resolver o meu problema!!! Ficou assim Dim SqlImp as string SqlImp = "{contasreceber.vencimento}> date(" & Year(FrmConRec.DtPPrazo(0).Value) _ & ", " & Month(FrmConRec.DtPPrazo(0).Value) & ", " & _ Day(FrmConRec.DtPPrazo(0).Value) & ") and {contasreceber.vencimento}< date(" & _ Year(FrmConRec.DtPPrazo(1).Value) & ", " & Month(FrmConRec.DtPPrazo(1).Value) _ & ", " & Day(FrmConRec.DtPPrazo(1).Value) & ")and {contasreceber.pago} = (" & True & ")" Report.RecordSelectionFormula = SqlImp

Pessoal consegui resolver o meu problema!!! Ficou assim Dim SqlImp as string SqlImp = "{contasreceber.emissao}> date(" & Year(FrmConRec.DtPPrazo(0).Value) _ & ", " & Month(FrmConRec.DtPPrazo(0).Value) & ", " & _ Day(FrmConRec.DtPPrazo(0).Value) & ") and {contasreceber.emissao}< date(" & _ Year(FrmConRec.DtPPrazo(1).Value) & ", " & Month(FrmConRec.DtPPrazo(1).Value) _ & ", " & Day(FrmConRec.DtPPrazo(1).Value) & ") " Report.RecordSelectionFormula = SqlImp Aqui eu converto a data pra uma forma onde o cristal entendi. e pronto ele seleciona todos os itens entre as datas. é aqui que mora o problema. ele seleciona todos registros entre estas datas! E eu preciso colocar uma variavel informando que é somente as que estão pagas!!! Dai eu tentei desta forma! SqlImp = "{contasreceber.emissao}> date(" & Year(FrmConRec.DtPPrazo(0).Value) _ & ", " & Month(FrmConRec.DtPPrazo(0).Value) & ", " & _ Day(FrmConRec.DtPPrazo(0).Value) & ") and {contasreceber.emissao}< date(" & _ Year(FrmConRec.DtPPrazo(1).Value) & ", " & Month(FrmConRec.DtPPrazo(1).Value) _ & ", " & Day(FrmConRec.DtPPrazo(1).Value) & ") and {contasreceber.pago} like '" & "-1" & "'" Porem ele não aceita a concatenação que estou fazendo com o valor de true que é "-1". Ele da um erro loko! de que esta faltando uma string. alguém sabe me dizer como eu faço isto! Antes que alguém pergunte, o campo no bd do access esta como sim/não que é o boolean e eu já tentei com true e false também e num deu nada, bom conto com a ajuda de vocês! Abraços e obrigado desde já!

Use um string antes Dim Sql as string sql = "insert into tb_hist(data,cliente,campo1,campo2,campo3,campo4,campo5,campo6,campo7,campo8,campo9," sql = sql & "campo10,campo11,campo12,campo13,campo14,campo15,campo16,campo17,campo18,campo19," sql = sql & "campo20) values('" & DTPicker1.Value & "','" & Combo1.Text & "','" & valor1 & "','" & valor2 & "','" & valor3 & "','" " sql = sql & "& valor4 & "','" & valor5 & "','" & valor6 & "','" & valor7 & "','" & valor8 & "','" & valor9 & "','" & valor10 & "','" " sql = sql & "& valor11 & "','" & valor12 & "','" & valor13 & "','" & valor14 & "','" & valor15 & "','" & valor16 & "','" & valor17 & "','" " sql = sql & "& valor18 & "','" & valor19 & "','" & valor20 & "')")" Set rs = cn.Execute(sql) Saca! A ideia é escrever o que tu iria escrever na query antes em uma string daí tu vai juntando ela e depois manda executa a string! bom aqui funciona, só da uma conferida nos finais das linha pra ver se vai terminar da forma que tinha de continuar se fosse na mesma linha! Abraços!

Usa isto! No lost da text MinhaText.Text = Format(MinhaText.Text, "#,##0.00;(#,##0.00)")

Olá moçada eu tenho um, codigo de procura por intervalo de datas, e eu quero imprimir os resultado obtidos! O problema é que usando uma activex do visual report da pra fazer tranquilo sem probrema, só que neste sistema em que eu estou trabalhando eu estou utilizando o Cristal 10, vocês sabem me dizer como eu faço isto??? E outra coisa aproveitando a deixa, como que eu faço para o relatorio do cristal da a opção de escolher a impressora e não somente imprimir na padrão? Valeu moçada brigadão a todos que me ajudarem!

Olá pessoa é o seguinte eu tenho um site, que um amigo meu fez pra mim, e colocou uma foto no topo e eu quero trocar a foto! Eu achei o arquivo que tem a foto, ele chama foto_topo.html Dai a pergunta se eu criar um outro arquivo com a imagem que eu quero colocar e salvar ele com este nome, posso simplesmente abrir o ftp e colar ela lá! Olhem bem eu vou manter o nome do arquivo, e vou só trocar a imagem! Da pra fazer isto? Desde já agradeço a todos!

Olá moçada eu tenho um, codigo de procura por intervalo de datas, e eu quero imprimir os resultado obtidos! O problema é que usando uma activex do visual report da pra fazer tranquilo sem probrema, só que neste sistema em que eu estou trabalhando eu estou utilizando o Cristal 10, vocês sabem me dizer como eu faço isto??? E outra coisa aproveitando a deixa, como que eu faço para o relatorio do cristal da a opção de escolher a impressora e não somente imprimir na padrão? Valeu moçada brigadão a todos que me ajudarem!

txtdata.text = format(now, "DD/MM/YYYY") Assim tu pega a data de hj! E quanto ao codigo, eu não consegui compreender o seu codigo, não sei o que é label o é text, e onde são inseridas as datas pra verificação, mas saca só, aqui vai uma dica! O vb não lê as datas como a gente le, tem de converte-las para ele enteder que é data, por ex. txtdata.text = format(txtdata.text, "MM/DD/YYYY") Blza espero ter ajudado! Abraços!

coloca este format txthora.text = format(txthora.text, "##:##") isso resolve! Abraços!

Grande rafael! brigadão cara! Deu certinho! Valeu mesmo!!!! Abraços!