kuroi

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: http://www.linhadecodigo.com.br/artigos.asp?id_ac=136

Isso significa q a resposta pra minha pergunta: é 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).

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

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.

Mexo um pouco com SQL e queria saber qual é diferença básica entre o SQL Server e o MySQL.

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: http://www.elitevb.com/content/01,0053,01/mousewheel.zip

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