Danleonhart

Olá Matheus ! Já enviei para seu e-mail um projeto que encontrei na net...nele tem exemplo de como criar um tipo de relatório escolar com MSFlexGrid, e também a impressão do mesmo...tem até opção de verificar antes de imprimir ^_^ Quero aprender a elaborar uma impressão desse tipo, porém tou apanhando demais :lol: Boa sorte pra você !

Mals Kuroi ^_^ Já resolví esta bronca... funcionou da maneira que você falou: Private Sub DataGrid1_DblClick() SendKeys "{Delete}" End Sub Descobrí que pressionando a tecla DELETE se exclui uma linha de um DataGrid...então adptei ele a propriedade do Clique Duplo... e funcionou :D Obrigado pela dica !

@Kuroi... O que você se refere é isso ? Se for, eu sempre desmarco o "MDAC_Typ.exe" pois é 7 MB e poucos... tem algum problema ? É normal sempre ser gerado essa quantidade de arquivos e pasta ? Por isso gostaria de usar o Inno Setup ( que põe tudo em um único arquivo ".exe"), mas achei apenas dicas, nenhum Tuto completo com explicações detalhadas... :unsure:

@Kuroi: Quero colocar em um CommandButton pra simular o pressionamento da tecla... neste caso (simular pressionamento da tecla "DELETE"), coloquei simplesmente assim: Private Sub Command1_Click() SendKeys "{DELETE}" End Sub Sem ação alguma...

Obrigado mais uma vez Kuroi :D

Pessoal... Alguém sabe como posso colocar em código o equivalente a determinada tecla pressionada ? EX: Criar um Botão no aplicativo que tenha a mesma ação de quando pressionada a tecla "DELETE" Se não me engano o "vbCrLf" equivale a tecla "Enter"... Será que até para isso vai entrar as API's ( esse nome me dá arrepios :wacko: ) se alguém souber, posta aí por favor :blush:

Aê... Agora complicou... Quando se quer excluir uma "linha" (quando usa-se MSFlexGrid), usa-se o comando MSFlexGrid1.RemoveItem (.Row), E como se faz com o DataGrid ??? já que não aceita o "RemoveItem" ou algo como "Delete" ???

Achei ! Encontrei pesquisando no Google (mais de 4 horas :unsure: ) Segue script: Private Sub Command1_Click() Dim dSoma As Double dSoma = 0 For i = 0 To Me.DataGrid1.VisibleRows - 1 DataGrid1.Row = i dSoma = dSoma + CDbl(Me.DataGrid1.Columns(0)) Next i Label1.Caption = "Total: " & dSoma Para detalhar, em meu código alterei para a Coluna 3 pois é onde necessitei fazer a soma ==> CDbl(Me.DataGrid1.Columns(2)). VALEU !

@Kuroi: Vou postar o script que uso no Form_Load e no CommandButton... faço sem BD, pois nesse caso não necessito manter nenhuma informação salva: Dim tb As ADODB.Recordset Private Sub Form_Load() Set tb = New ADODB.Recordset tb.Fields.Append "A", adVarChar, 50 tb.Fields.Append "B", adVarChar, 50 tb.Fields.Append "C", adVarChar, 50 tb.Open End Sub Private Sub cmd2_Click() tb.AddNew tb!A = txt1.Text tb!B = txt2.Text tb!C = txt3.Text tb.Update Set DG1.DataSource = tb End Sub Pronto, dessa maneira tudo escrito nos TextBoxes são colocados em três Colunas do DataGrid... agora o que desejo fazer é que todo valor colocado na Coluna "C" do DataGrid seja somado e apresentado em um Label ou n última linha da coluna... :rolleyes: Mas você falou algo interessante, pois não sei usar esse tal de "sum()" :blush: se você me explicar, agradeço também !

Olha eu de novo ! ^_^ Seguinte, tenho um DataGrid que recebe valores de três TextBoxes...sendo que a última coluna é onde ficam os valores numéricos, e desejo somar estes valores sempre que adicionar algo no DataGrid, assim como também subtrair o valor quando retirado... O valor final será apresentado em um Label, mas quero saber se tem como apresentar o resultado na última linha da coluna. Valeu pessoal :)

@Kuroi: Valeu Kuroi ! Já tinha perdido as esperança ^_^ é praticamente o que procurava... agora vou configurar para que ao invés de apresentar em uma MsgBox, apresente em um FlexGrid ou DataGrid :D Bem interessante esse GetObject !

Tudo OK ! A dica funcionou perfeitamente ! :D Só tive que configurar adequadamente segundo meu script. VALEU ! B)

Pessoal, Como faço para acessar o System Diagnostics Process pelo VB-6 ??? no VB.NET sei que basta digitar "System.Diagnostics.Process" que surje diversas opções... Quero fazer aparecer em um DataGrid ou FlexGrid todo o conteúdo do Gerenciador de Tarefas do Windows... Usar API's não é o meu forte :blush:

@ Kuroi Valeu Kuroi... agora na sua opinião, pra quem deseja configurar tabelas do Access para imprimir, é melhor o Crystal Reports ou o Objeto Printer ??? Na boa, gostaria muito de aprender a usar o Objeto Printer, mas na net só consigo códigos já criados e sem muita explicação detalhada, lí muita coisa no site do Marcoratti mas fundí mais ainda minha cuca... essas linha criadas com matrizes ferra o raciocinio :P Se você tiver algum material sobre o Objeto Printer põe aí cara ;) não só mas muitos outros anônimos agradece ^_^ Valeu pela atenção cara ! tudo de bom !

Pessoal... Notei que o Visual Basic 6.0 que uso não tem o Crystal Reports... onde encontro a versão compatível com o VB-6 ??? Andei fuçando no Google e encontrei Crystal Reports 2008... então deduzí que era para o VB.NET... encontrei também um disponivel mas com 340 MB de tamanho... é isso mesmo ??? se for realmente tudo isso vou preferir imprimir com o objeto Printer...não sei usar mas irei aprender :huh: ... :ninja:

Olá Anderson... Fiz esta correção e agora tá apresentando o seguinte erro: Run Time -2147217913 (80040e07) Tipo de dados imcompativel na expressão de critério. e aponta para a linha de conexão: " con.Execute atualizar " O que pode ser isso ? todos os Objetos e variáveis estão declarados ! :blink: :( :unsure: :o CORREÇÃO ! Achei o problema... eu estava esquecendo de que o "txt1.Tex"t é número, e as demais, letras e números... ou seja, "Strings". Então acrescentei a linha do txt1.Text o "conversor para Double (CDbl)" e o script ficou assim: Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open "select * from tab1", con, adOpenKeyset, adLockBatchOptimistic atualizar = "update tab1 set Nome='" & txt2.Text & "',Endereco='" & txt3.Text & "' where Codigo=CDbl('" & txt1.Text & "')" con.Execute atualizar É... aos poucos estou aprendendo a encontrar os erros e detalhes :rolleyes: agradeço a todos por isso ! Valeu Anderson Fernandes pela força cara ! :D Moderadores podem dá o tópico como Resolvido !

Pessoal... eu de novo :blush: Tenho um sistema de busca para usuários onde a "PrimaryKey" é o código...ao encontrar o usuário, ela preenche varias TextBoxes com as informações do usuário...para ser mais intuitivo na hora de alterar os dados... então se necessário alterar o "Nome", vai na TextBox "Nome:" e altera...mesmo válido para as demais TextBoxes... Usei este script para atualizar... o problema é que atualizou TUDO que estava na Coluna "Nome:"... e quero que altere apenas a do usuário escolhido... Set rs = New ADODB.Recordset rs.Open " select * from tab1", con atualizar = "update tab1 set Nome='" & txt2.Text & "',Endereco='" & txt3.Text & "'" con.Execute atualizar É a primeira vez que estou utilizando este comando "UPDATE" com BD's... e estou sem alternativas no momento... Fico a disposição de vocês amigos ! -_-

Resolvido ! O problema era que eu estava colocando no script um após o outro : Text1.Text = rs!Codigo & Text2.Text = rs!Nome & ... Aí resolví colocar um abaixo do outro e deu certo ! :P Text1.Text = rs!Codigo Text2.Text = rs!Nome Text3.Text = rs!Endereco... Obrigado mais uma vez !

@ Kuroi... Funcionou... eu havia configurado no Load como adUserClient, e no form da busca estava adUseServer... corrigí este detalhe e está funcionando...porém não estou conseguindo carregar os valores dentro de TextBox... Faço o seguinte: tem uma caixa onde fica disponivel para se colocar o código que se deseja para fazer a busca...quero que quando encontrado ele carregue as TextBox com os demais valores... para adicionar em uma ListBox dá beleza, assim como em um FlexGrid, porém para carregar nas TextBoxes da uma mensagem de " False " dentro da primeira TextBox...

@ Kuroi: Obrigado Kuroi, vou verificar...estou no trabalho agora, mas não tenho certeza de ter configurado todos os CursorLocation para " adUseServer "... acho que tem algum direcionado para " adUseClient "... pois me orintaram que o desenpenho é melhor...quanto a biblioteca é essa mesma que utilizo: Microsoft ActiveX Data Objetcs 2.8 não procurei saber se tem uma versão mais nova... de todo jeito Obrigado pela dica ! Ao chegar em casa vou verificar meu script. :)

OK Raphael !

OK Anderson ! Funfou 100%... Ainda adicionei ao script a linha: " MSFlexGrid1.Rows = 0 "... fazendo assim que comece o Grid como no inicio (Form_Load no meu caso) Código: Private Sub MSFlexGrid1_DblClick() On Error GoTo TrataErro With MSFlexGrid1 'Remove a linha selecionada Call .RemoveItem(.RowSel) End With Exit Sub TrataErro: If Err.Number = 30015 Then MSFlexGrid1.Clear MSFlexGrid1.Rows = 0 End If End Sub Valeu Cara ! ;)

Boa Macêdo ! Testei aqui e também funcionou ! :D Para informação de todos... B)

Seguinte: Tenho uma tabela (tab1) onde há 6 colunas (Codigo, Nome, Endereco, Cidade, UF , Telefone). Com a dica do Kuroi sobre "Busca em BD" conseguí configurar meu modo de busca, porém, não estou conseguindo carregar os valores nos TextBoxes e DataGrid após encontrá-los. Segue o Script: Private Sub cmd_pes_Click() Dim cod As Variant cod = t1.Text If cod = "" Then MsgBox "Informe a ID do Usuário!" End If abb Set rs = New ADODB.Recordset rs.CursorLocation = adUseServer rs.Open "tab1", con, adOpenKeyset, adLockReadOnly, adCmdTableDirect If rs.Supports(adIndex) And rs.Supports(adSeek) Then rs.Index = "PrimaryKey" rs.MoveFirst rs.Seek Array(cod) If rs.EOF Then MsgBox "Usuário não encontrado" Else MsgBox rs!Codigo & " - " & rs!Nome & vbCrLf End If Else MsgBox "O Provedor não suporta Index e Seek" End If rs.Close con.Close Set rs = Nothing Set con = Nothing End Sub Fiz diversas tentativas como alterar o CursorLocation mas sem sucesso...sempre pula tudo e vai para o script onde apresenta a MsgBox "O provedor não suporta Index e Seek"...mas eu sei que suporta se assim não fosse, não apresentava os resultados da busca, no caso: o Código e o Nome. Fico no aguardo de opiniões :rolleyes:

Pode trabalhar Anderson! :rolleyes: Mas qundo tiver tempo me diz como corrijo este detalhe: Tou com um MSFlexGrid editavel, só que tenho um evento no Clique Duplo para apagar uma linha completa... utilizo este script: Private Sub MSFlexGrid1_DblClick() With MSFlexGrid1 ''Remove a linha selecionada .RemoveItem (.Row) End With End Sub Só que dá erro quando eliminado a ultima linha... e as vezes é necessário... EX: Se tem 3 e eu elimino 1 ou 2 dá OK...porém se tento eliminar esta última apresenta o erro: Valeu ! :rolleyes: