Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. kuroi

    Icone Dentro Do Combo

    impossivel ate onde eu sei. você precisaria de um otro componente.
  2. kuroi

    Pegar Texto

    não entendi, você quer dizer que tem um texto tipo assim: e quer pegar o abc?? seria tipo assim: x = "xxx,abc-xxx" x = Mid(x, InStr(x, ",") + 1, Len(Mid(x, InStr(x, ",") + 1)) - InStr(StrReverse(x), "-")) [/code]
  3. kuroi

    Insert

    seria tipo assim: sql = "Update servico INNER JOIN cliente ON servico.id = cliente.id Set servico.Campo = Valor Where cliente.OutroCampo = " & variavel cn.Execute sql [/code]
  4. guenta que ate o fim de semana está mando
  5. kuroi

    Insert

    verdade... pode sim, usando inner join.
  6. kuroi

    Time

    você quer dizer pra mostrar na tela?? se for seria assim: tempo = Time msgbox Format(tempo, "HH:MM")[/code] ou você quer guardar numa variavel a hora sem os segundos?? seria: [code]tempo = TimeSerial(Hour(Time), Minute(Time), 0) cada unidade é um milisegundo. 1000 unidades = 1 segundo 60000 = 1 minuto
  7. hum, o membro mais novo não é você não e sim o cheaptramadol. que alias, é spammer, da pra saber pelo nome. hum... não manjo de exibir videos em visual basic, mas pelo que ouvi falar, você precisa utilziar a biblioteca do directx. mas não sei mexer nela. então de uma pesquisada por ai sobre o directx no visual basic. mas acho que é meio dificil encontrar material sobre isso. mesmo aqui no forum acho que não tem muito sobre isso se você manja ingles tem um forum sobre isso aqui: http://www.xtremevbtalk.com/forumdisplay.php?f=13 qualquer duvida poste aí.
  8. kuroi

    Insert

    do mesmo jeito, ue: sql = "Select * from cliente Where id = " & id Set rs = cn.Execute(sql) If rs("campo") = variavel Then sql = "Update servico Set Campo = Valor Where id = " & id cn.Execute sql End If[/code] isso levando em conta que id é um campo em comum entre as duas tabelas. que você usaria pra fazer inner join por exemplo. você não tem um campo pra identificar qual corresponde a qual nas duas tabelas??
  9. kuroi

    Insert

    faca um select desse registro na tabela do cliente e teste if campo da tabela cliente =variave você insere sql = "Select * from cliente Where id = " & id Set rs = cn.Execute(sql) If rs("campo") = variavel Then sql = "Insert Into servico ...." cn.Execute sql End If [/code]
  10. kuroi

    Email, Com Cadastro

    você so consegue enviar e-mail em asp usando algum componente. tem que ver com seu servidor qual é o componente de envio de e-mail que ele suporta.
  11. então vê se ajuda o que eu disse aqui: http://scriptbrasil.com.br/forum/index.php...st&p=372822 mas você não sabe qual componente/biblioteca você usa??
  12. deixa ver se eu entendi o que você fez. no report principal, você seleciona todos os clientes de sp, por exemplo. no subreport, você seleciona todos os clientes, sendo de sp ou não. ai você quer fazer uma divisao da somatoria de todos os clientes pela somatoria dos clientes de sp, é isso?? se for, você pode fazer um summary field no subreport que some apenas os clientes de sp (ponha Evaluate on Formula, e na formula selecione apenas os de sp). ai divida a soma total por esse summary field. não da pra ser assim??
  13. cara to sem o codigo agora, mas quando chegar em casa eu vo ver se eu olho. mas tipo, que componente você usa?? você esta usando o Crystal Report Control, ou a biblioteca Designer Runtime Library. no primeiro caso não sei se é possivel, e se for não sei se eu vou saber. mas você pode resolver passando os campos que variarem pelo visual basic como parametros para o subreport no crystal (clique com o botao direito no subreport e escolha Change Subreport Links) ai você monta sua formula no subreport pelo proprio crystal baseado nos campos parametros. isso se o que você quer (pelo que eu entendi) é deixar a mesmo formula tanto no subreport quanto no principal. no segundo caso, tenho que ver o codigo em casa pra ter certeza, mas acho que você declara uma nova variavel como do tipo Report do mesmo jeito que você declara o relatorio principal. ai você carrega o subreport do mesmo jeito que você carregaria o report principal. seria tipo Set varSubRpt = varRpt.OpenSubReport("nomedosubreport") não lembro agora se o metodo se chama mesmo OpenSubReport mas deve ser algo assim, veja aí aaaa porque tem que ser um campo do subreport no principal?? se os dois apontam para a mesmo tabela porque você não pode por no subreport mesmo??
  14. tem sim. alias, a formula do report principal é uma e a do subreport não tem relacao nenhuma com ela. so deixando sem formula nenhuma, ele já pega todos os registros do banco.
  15. não entendi direito. você quer, por exemplo, mostrar todos os registros dos clientes de são paulo, mas no final somar todos os clientes, incluindo das outras cidades?? existem varios jeitos de se fazer isso. você pode, por exemplo, por um subreport que faca a soma no final, ou pode deixar a selection formula em branco, mas esconde os details toda vez que o cliente não for de são paulo. ou pode ainda tirar a formula do record selection formula e por no group selection formula. pois, como eu te disse em outro post, os sumarios que você fizer não obedecem o group selecion formula (no caso, se você quiser uma soma que obedeca devera usar summary fields). vê se você entende e se é isso mesmo que você quer, qualquer coisa posta.
  16. kuroi

    Windows 3.11

    ahahhahahahahhaha eu lembro disso também!!! e quando eu queria jogar doom que era pra dos, tinha fazer uns esquemas na hora de ligar, tipo apertar Control Alt Del, acho, umas coisa assim. nossa da ate saudade daquela epoca...
  17. nossa foi bestera minha, não percebi que as barras tavam invertidas
  18. tem esse também, quick sort: http://pt.wikipedia.org/wiki/Quick_sort hum... quando eu tiver um tempo vo inventar eu mesmo um jeito novo de ordenar ahahahahah
  19. kuroi

    Windows 3.11

    valeu, quando chegar em casa eu baxo. na verdade nem sei o que eu quero fazer com isso, quando tiver um tempo vo instalar o 3.11 so pra mata a saudade da infancia. depois também tento instalar as versoes antigas pra ver como eram. acho que elas eram td no esquema de prompt de comando não?? não era visual ainda...
  20. abra o seu banco e va em Consultas. faca uma nova consulta no modo estrutura e selecione a opcao do modo sql. la, pra selecionar todos os sim, digite: Select * from Tabela Where Resposta = 'sim' e clique na exclamacao pra ver o resultado. pode salvar essa consulta também e acessa quando quiser. fazendo isso, você já vai saber qtos sim existem, pois o access mostra a qtde de registros selecionados. mas você também pode fazer assim, numa otra consulta: Select Count(*) from Tabela Where Resposta = 'sim' pra saber qtos sims são
  21. kuroi

    Windows 3.11

    é? e onde você baxou? passa o link
  22. kuroi

    Windows 3.11

    ahahahhahaaaaahaaaaaaaaaaaaaaaaa acho que isso tinha sim... dark0, se der manda em rafaelsposito[a]gmail.com a tipo qual a extensao do arquivo?? não manda em .zip, .exe, etc que o gmail não aceita. .rar ele aceita, se precisar mude a extensao pra alguma coisa desconhecida tipo .xxx (e me fala pra qual eu devo trocar), valeu.
  23. kuroi

    Inner Join

    Select Tabela1.Campo1, Tabela2.CampoX from Tabela1 INNER JOIN Tabela2 ON Tabela1.Codigo = Tabela2.Codigo Group By Tabela1.Campo1, Tabela2.CampoX
  24. é verdade, vi agora e pode sim...
×
×
  • Criar Novo...