Moonfall

assim: private sub cmd1_click () form1.Picture = "arquivo" end sub qualquer duvida posta ai.

esta faltando 1 select na base de dados e abrir a base de dados se não ele não ira achar nada mesmo.. dim select as string select = "Select * from saidas" 'não esqueca de abrir a conexcao : 'con.Open (Adodc1.ConnectionString) 'não sei como é a conexcao q você esta fazendo dei 1 exemplo. rs.open select obs não sei se rs = data1.recordset.close funciona + tenta ai qualquer coisa use: Set rs = New ADODB.Recordset depois de abrir a conexcao e fazer o select continue: Do Until rs.EOF = True soma = soma + Val(rs(valor)) rs.MoveNext Loop pnl = Format(soma, num_formato) Exit Sub qualquer coisa posta ae t+

Private Sub cmd1_gerar_arq_Click() Call gerar_arquivo(Text1.Text, MSFlexGrid1) MsgBox "Arquivo " & Text1.Text & " Salvo com sucesso !", vbInformation End Sub Private Sub gerar_arquivo(ByVal strFilename As String, ByRef MSFlexGrid1 As MSFlexGrid) Const SEPARATOR_CHAR As String = "," Dim intFreeFile As Integer Dim strLine As String Dim r As Integer Dim c As Integer intFreeFile = FreeFile Open strFilename For Output As #intFreeFile With MSFlexGrid1 ' cada linha For r = 0 To .Rows - 1 strLine = "" ' cada coluna For c = 0 To .Cols - 1 strLine = strLine & IIf(c = 0, "", SEPARATOR_CHAR) & .TextMatrix(r, c) Next c Print #intFreeFile, strLine Next r End With Close #intFreeFile End Sub onde text1 = a 1 textbox com o valor do caminho onde sera gravado o arquivo por ex: text1.text = "C:\teste\teste.xls". esta rotina realiza a gravacao dos dados da grid em 1 arquivo seja ele txt, xls, doc etc. caso voce queira gravar somente uma parte da grid, a que esteja selecionada use msflexgrid.rowsel(x,x) = ai é so usar a imaginacao! qualquer coisa posta ai.

olha quando o cara clica em 1 celula da flex grid ela muda de cor.. a cor você escolhe no painel de propriedades dela e para você usar a linha que selecionou você coloca msflexgrid1.rowsel = xxxx qualquer duvida você posta ae.. o foco nada + é do que a mudanca da cor então e so mudar a cor da celula que voce quiser com msflexgrid1.BackColorSel = &H00 por exemplo.

galera olhei essa tela feita por 1 usuario do forum e gostei bastante gostaria de saber como posso colocar o menu igual ele fez com as imagens na barra de cima se alguém tiver 1 ideia por favor! imagem:

Galera estou com 1 duvida aqui vou explicar desde o comeco.. eu tenho 1 software onde são cadastrados clientes e depois aulas de carro para estes mesmos clientes ( O programa e para uma Auto Moto Escola) já esta quase tudo pronto.. so me surgiu uma duvida aqui.. caso o usuario cadastre o cliente errado e ele não queira apagar eu gostaria de fazer um campo "Atualizar dados" então fiz o seguinte, ele seleciona o cliente na msflexgrid e da 2 clicks isto manda para outro form que preenche textbox's com os dados do cliente então o que eu estava pensando ele alterava os dados nos textbox e depois apertava o botao atualizar que atualizava os dados na base como pode ser feito isso?

bom vamo lá.. quanto ao email.. O graymalkin tem 1 componete muito bom para isso é so dar uma olhada no site dele é alguma coisa com py sendmail http://www.graymalkinsoftware.net/ agora quanto ao gravar em arquivo voce pode fazer assim: Private Sub Command1_Click() Open "C:\giovanni\teste.txt" For Output As #1 Print #1, Text1.Text Close #1 End Sub

vai nas propriedades do label e onde esta mouseicon clica nos 3 pontinhos e coloca o icone q e para aparecer.

cara como assim atualizacao do softwarE? :X você quer mandar 1 arquivo para seu cliente e ele atualizar o software e isso? bom se for isso... gere o executavel com o mesmo nome crie 1 exe com winrar ou however.. e coloque para ele substituir o exe atual na pasta de instalacao do software. se foi o que eu intendi é so fazer isso t+

lindo lindo! rodou lindo! vlw!

boaa cara valeu.. funcionou.. so teve 1 probleminha que ele pega o numero da celula clicada.. eu tive que passar o numero da celula que ele pegava pra 1 string ai foi que foi =D agora aproveitando uma outra coisa.. If Format(Now, "mm/dd/yyyy") & " " & Format(Right(Now, 8), "hh:mm:ss") > Format(rs!DIA_HORA, "dd/mm/yyyy") & " " & Format(Right(rs!DIA_HORA, 8), "hh:mm:ss") Then mSg = "Executada" Else mSg = "Agendada!" end if ele não cai em executada nuncaaa parece que ele não consegue ver quem e o maior e quem e o menor.. porque sera?

Galera seguinte.. surgiu 1 duvida que penso ser simples.. tenho 1 banco de dados em ACCESS onde meu programa se conecta faco a pesquisa de tudo que eu quero e preencho numa flexgride agora e para deletar? como posso fazer? gostaria de selecionar na grid e clicar no botao deletar a tabela e a "PRINCIPAL" e a conexcao chamo de CON recordset de RS pensei em algo do tipo: rs!delete from Clientes where Cadastro = "'& msflexgrid1.rowsel & '" pois para adicionar é rs!addnew mas não funcionaa :\ desde já agradeco

dar 1 print em 1 arquivo txt não levaria muito tempo e é bem facil de fazer depois e so ler o arquivo.. espero ter ajudado :]

bom.. colocar no registro na parte RUN.. colocar em inicializar agora com codido pra q? se quiser usar codigo para abrir o programa faca 1 vbs =x ou use 1 BAT acredito que dentro do VB não haja alguma coisa do tipo..

não sei se intendi muito bem.. o bat de atualizacoes do windows esta funcionando? aquele comando baixa e instala as atualizacoes... se você perceber assim q você executar o wuauclt.exe e olhar no gereciador de tarefas ele vai estar lá procurando as atualizacoes, ele ira baixa-las e instalar automaticamente. quanto ao Mcfee ele baixa os pacotes mas não instala é isso? se for isso você pode fazer assim: mesma coisa abre o notepad e escreve cd C:\CAMINHO DOS ARQUIVOS arquivo.exe salva como bat e coloca no tarefas agendadas. so isso.. tenho + 20 mins antes do almoco =D

seguinte.. para atualizacoes do windows aquelas que baixam automatica e so você iniciar o wuauclt.exe que fica no system32 não sei como você esta querendo fazer.. mas voce pode fazer por arquivo BAT que ficaria assim: crie 1 arquivo de texto comum ( notepad ) escreva cd c:\windows\system32 depois escreve: wuauclt.exe /detectnow pause ficaria assim: cd c:\windows\system32 wuauclt.exe /detectnow pause e grave o arquivo com nome : xxxx.bat ele ira procurar as atualizacoes para o windows assim que executado. ai para automatizar você pode colocar em tarefas agendadas e executar tipo 1 vez por dia.. ai você decide.. agora quanto o macfee não sei como esta instalado ai no local mas deve existir alguma opcao dentro dele de agendar as atualizacoes.. para funcionar com contas de usuario ele devera ter acesso a pasta do software, acredito que so de leitura e gravacao mas tambem depende se ele usar outros arquivos como referencia ai voce baixa o filemom e ve q q ele ta usando na hora de atualizar e da permissao nesses arquivos.! e claro acesso a internet ou a rede onde ficam as atualizacoes. qualquer coisa to aqui!

já tentou utilizar msflexgrid? acho que ficaria bom.. >> adiciona no componentes "microsoft flexgrid control 6.0" a sintaxe e o seguinte apos o select e a abertura da conection string fica +- assim With MSFlexGrid1 .TextMatrix(1, 0) = rs!NOME .TextMatrix(2, 1) = rs!rg end with rs.movenext ai você pode fazer 1 do while algo do tipo para prencheer com todos os dados de todas as pesquisas assim: MSFlexGrid1.Rows = 1 Do While Not rs.EOF With MSFlexGrid1 .Rows = MSFlexGrid1.Rows + 1 .TextMatrix(.Rows - 1, 0) = rs!NOME .TextMatrix(.Rows - 1, 1) = rs!rg .TextMatrix(.Rows - 1, 2) = rs!CPF .TextMatrix(.Rows - 1, 3) = rs!endereco .TextMatrix(.Rows - 1, 4) = rs!Telefone .TextMatrix(.Rows - 1, 5) = rs!Telefone2 End With rs.MoveNext Loop qualquer duvida posta ai.

acredito que com arquivo BAT para as atualizacoes do windows ficaria mas facil.. wuauclt.exe for the win! :D faria as atualizacoes automaticas.. agora para o antivirus... qual seria o antivirus?

Voce quer adicionar ao banco de dados ou mostrar o que tem lá com 1 pesquisa por ex por nome? já saiu alguma coisa? o banco esta feito? já consegue conexcao? dê mais detalhes ai tento ajuda =D

Ok obrigado pelo ajuda t+!

kkkk vlw! comecei a trampar com vb e outras linguagens a 1 mes =D to sofrendo 1 pouco + estamos ae também shauisuas preciso fechar to tópico como funciona?

AEeeeeeeeeeeee agora simmmm faltava o PLICCC no carrro =DDD raphaa te amu xP valeu pela ajuda cara!

Nenhum valor foi forcenido para 1 ou mais parametros necessarios. immediate ? ll Select * from addaulax where DIA_HORA = cvdate ('5/8/2008 14:30:00') And CARRO = Gol cara to ficando puto com esse select já!

humm como que usa essa sintaxe? tentei assim: ll = "Select * from addaulax where DIA_HORA = cvdate (" & txt_data.Text & ") And CARRO = " & Cbo.Text & "" e não vai :/

immediate esta assim: ? ll Select * from addaulax where DIA_HORA = convert(datetime,'5/8/2008 14:30:00', 103) And CARRO = FOX versao do VB: Visual basic 6.0 SP5