Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. Você precisa trabalhar com o timer. Achei um tutorial que entre outras coisas ensina a usar o timer: http://www.macoratti.net/showzeca.htm O esquema é por 15000 na propriedade interval do timer (q esta em milisegundos). Cada vez q ocorrer o evento timer, é por q se passou 15 segundos (infelizmente c não vai conseguir por 15 minutos, porque o limite não deixa). Vá somando +1 em uma variável cada vez q ocorrer o evento e quando chegar em 60 (vão ter se passado 15 minutos, algume me corrija se a conta tiver errada) você apaga a pasta e zera a variável.
  2. kuroi

    Style Dropdown List

    Um jeito meio besta d fazer isso, mas q ia funcionar é fazer dois combobox, cada um com um style diferente. Ponha um em cima do outro (mesmo top e left). Deixe apenas um visivel e quando precisar do outro style ponha o outro combobox visivel. É meio ridículo, mas é um jeito.
  3. kuroi

    ...uma Luz Pessoal !

    Não entendi direito sua duvida, mas acho q o melhor esquema pra você é criar um banco pra cada empresa (em vez de várias tabelas no mesmo banco). Mesmo q um seja identico ao outro. Dependendo da empresa q entrar você faz o acesso ao banco q ele tiver q acessar.
  4. Ae, criei uma função para abrir um recordset. Nesse estilo: Public Sub AbreTabela452(ByRef rsRecordSet As ADODB.Recordset, Optional ByRef gridGrid As DataGrid = Nothing, Optional ByVal datData As Date = Empty) If rsRecordSet.State = 1 Then rsRecordSet.Close strSql = "Select Tabela452.Data As [Data do Inventário],Tabela452.Estoque as [Situação do Estoque],Tabela452.Cod_Mercadoria as [Código da Mercadoria],Tabela495.Descricao as Descrição,Tabela452.Unidade,Tabela452.Quantidade,Tabela452.ValorTotal as [Valor Total] " & _ "from Tabela452 LEFT JOIN Tabela495 ON Tabela452.Cod_Mercadoria = Tabela495.Cod_Mercadoria " & IIf(datData <> Empty, "Where Tabela452.Data = #" & Format(datData, "YYYY-MM-DD") & "#", "") rsRecordSet.Open strSql, cnConec If gridGrid <> Nothing Then Set gridGrid.DataSource = rsRecordSet End Sub Se ele passar o parametro da data, ele filtra a pesquisa. Se ele passar o parametro do grid, ele joga o recordset num grid. Mas como eu faço pra saber se ele passou o grid ou não? Do jeito q eu fiz ele da erro na comparação: If gridGrid <> Nothing Then Set gridGrid.DataSource = rsRecordSet Ele não da certo do jeito q eu fiz com a data. Eu resolvi pondo um resume next: On Error Resume Next Set gridGrid.DataSource = rsRecordSet Mas isso foi so um jeito de driblar o erro. Queria saber como faço pra saber se ele passou ou não o parametro do grid. Valeu.
  5. Para resolver seu problema c pode fazer: If Numero2=0 Then Exit Sub Resultado=Numero1/Numero2 Para tratamento de erros veja o post: http://scriptbrasil.com.br/forum/index.php?showtopic=49526 ou entre em: http://www.linhadecodigo.com.br/artigos.asp?id_ac=136
  6. kuroi

    Atualizando Datagrid

    Isso significa q a resposta pra minha pergunta: é não?
  7. kuroi

    Atualizando Datagrid

    Valeu. Mas não funcionou... Será q é o jeitod de abrir o recordset?
  8. kuroi

    Impressora Na Rede

    Acho q isso q c ta fazendo não serve pra imprimir, e sim jogar o relatório no arquivo. Ou seja, ele tenta abrir um arquivo chamado "lpt1:". Pra imprimir, um jeito q eu sei, é usando um common dialog. No common dialog faça: CommonDialog1.ShowPrinter Acho q sem usar o commondialog ele pega a impressora padrão. E pra imprimir use os comandos como no exemplo: Printer.Font = "Verdana" 'Escolhe a fonte Printer.FontSize = 10 'Tamanho da Fonte Printer.Print 'Sei lá, acho q c tem por um print em branco pra abrir a impressão Printer.Print "Texto" 'Imprime uma Linha Printer.EndDoc 'Termina a Impressão Não manjo muito, mas é mais ou menos isso. Alguém deve saber melhor q eu, mas acho q isso já da pra você se virar.
  9. Acho q isso é do windows, c tem q entrar no painel de controle e tirar (Sons e Dispositivos de Audio, no XP).
  10. kuroi

    O Q é?

    Programo em VB e sempre ouvi falar nesse negocio de .net, mas ate hoje não sei o q é. Da pra alguém explicar?
  11. kuroi

    Optionbutton

    Cria uma Variável e passa pra ela 'E' ou 'S'. Exemplo: Dim str as String str="" If optEntrada.Value = True Then str="E" ElseIf optSaida.Value = True Then str="S" End If Isso considerando q ele pode gravar em branco no banco (o q provavelmente acho q não vai acontecer). Mas se não puder, é mais facil ainda: str=IIf(optEntrada.Value = True, "'E'", "'S'") porque se não tiver clicado em entrada, vai estar clicado em saída.
  12. kuroi

    Diferença

    Mexo um pouco com SQL e queria saber qual é diferença básica entre o SQL Server e o MySQL.
  13. Queria saber como faço pra atualizar um recordset. Por exemplo, eu jogo um recordset num datagrid: set datagrid.DataSource = rsPesquisa E várias pessoas acessam o banco por rede. Usando ADO, tem como atualizar o grid a cada inclusão ou alteração q a pessoa no outro computador fizer sem ter q fechar e abrir o recordset de novo?
  14. kuroi

    Vb6 E Mysql

    Acho q a string do mySql deve ficar assim: "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=myDatabase; USER=myUsername;PASSWORD=myPassword;OPTION=3;" Só tem q ver onde esta localizado o seu banco. Entra em http://www.connectionstrings.com/
  15. kuroi

    Vb6 E Mysql

    ACho q com ADO é tudo a mesma coisa (igual c faz no access), só muda a string de conexao. alguém me corrige se tiver errado.
  16. kuroi

    Algumas Dúvidas

    Usando ByVal o valor da variável é passado pra uma varável interna da função, ou seja, a variável original a fica inalterada e o valor 5 mostrado na msgbox vale apenas para dentro da funcao e se perde depois q ela é executada. Usando ByRef ele altera o valor da variável original, ou seja depois de excutada a função o valor de a é alterado. Foi isso q eu entendi.
  17. kuroi

    Algumas Dúvidas

    Valeu, graymalkin, c manja. Consegui achar isso aqui: http://www.elitevb.com/content/01,0053,01/ Download: http://www.elitevb.com/content/01,0053,01/mousewheel.zip
  18. kuroi

    Relatorio

    O q c usa pra fazer relatórios? Cria um campo de total com um sum do campo q quer somar. Acho q é impossivel somar por pagina. Uso crystal e ele não deixa sumarizar por pagina. C pode por um total q mostra o registro da pagina atual e mais todas as anteriores fazendo um running total field de sum simples. Se tiver um jeito de agrupar por pagina, tb queria saber.
  19. format(Date,"DD/MM/YYYY") traz a data, format(Date,"HH:MM:SS") traz a hora, format(Date,"DD/MM/YYYY HH:MM:SS") traz data e hora. você pode fazer o format do jeito q achar melhor. Exemplo: Label1.Caption = Format(Date,"MM/YYYY HH:MM")
  20. kuroi

    Sql

    Explica melhor o erro q da. Se ele não der mensagem e ficar carregando, talvez o banco seja muito grande, tenta esperar um poco.
  21. - Tem jeito de usar o scroll do mouse (aquela rodinha q mexe as barras de rolagem) ou os botões de voltar e avançar do mouse otico em programas de vb? - O q significa os termos byVal, byRef, etc nas variaveis de uma procedure na declaracao? - Isso provavelmento não envolve programacao, mas tem jeito de fazer meu programa rodar toda vez q o o windows for iniciado? Valeu
  22. Pra q serve o termo "Option Explicit" no meio das declarações de variáveis?
  23. kuroi

    Winsock

    Ae é o seguinte, queria saber na hora de fazer a conexão de um computador com o outro via winsock. Como faço pra saber qual o número da porte q devo usar? Tentei usar um numero qualquer mas não ta funcionando. Por exemplo, no servidor eu faço o seguinte: winsockServidor.LocalPort = 1001 winsockServidor.Listen E no cliente: winsockCliente.RemotePort = 1001 winsockCliente.RemoteHost = IP do Servidor winsockCliente.Connect Só q no State ele volta como 'Connecting', ou seja, 'Conectando', só q não conecta. Será q pode ser algum tipo de configuração da conexão q ta bloqueando? Ou o firewall do XP? O negócio é q tem vários PCs acessando um banco de dados no servidor e nem sempre os PCs tão com a hora certa, então eu preciso pegar a hora do relógio do servidor e gravar no banco. Então se alguém souber como pegar a hora do servidor sem o winsock também serve. Valeu
×
×
  • Criar Novo...