kuroi
-
Total de itens
7.184 -
Registro em
-
Última visita
Posts postados por kuroi
-
-
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.
-
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.
-
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.
-
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:
-
Isso significa q a resposta pra minha pergunta:
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?é não?
-
Valeu.
Mas não funcionou...
Será q é o jeitod de abrir o recordset?
-
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.
-
Acho q isso é do windows, c tem q entrar no painel de controle e tirar (Sons e Dispositivos de Audio, no XP).
-
-
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.
-
-
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?
-
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/
-
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.
-
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.
-
Valeu, graymalkin, c manja.
Consegui achar isso aqui:
http://www.elitevb.com/content/01,0053,01/
Download:
-
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.
-
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")
-
Label1.Caption = Date
-
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.
-
- 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
-
Pra q serve o termo "Option Explicit" no meio das declarações de variáveis?
-
ae valeu
-
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
Trabalhar Com Tempo
em Visual Basic
Postado
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.