Jump to content
Fórum Script Brasil

namon

Membros
  • Content Count

    13
  • Joined

  • Last visited

Community Reputation

0 Neutro

About namon

  • Birthday 08/02/1953

Contatos

Perfil

  • Gender
    Male
  • Location
    Serro - MG
  1. Para importar uma planilha excel para MDB via código, posso utilizar o código abaixo: ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub cmdexecuta_Click() Dim rsdados As Recordset Dim x As Object Dim linha As Integer Dim strvalor_A As String, strvalor_B As Integer, strvalor_C As String Set x = CreateObject("Excel.Application.8") 'para o office 97/2000 x.Workbooks.Open(App.Path & "\Clientes.xls" x.Sheets("Cli
  2. Obrigado Kuroi! você é fera! Alguns ajuste vou ter que fazer ainda, mas já dei o pontepé inicial com seus esclarecimentos Abraços Enéa
  3. Boa noite Kuroi, Fiz o teste mas não funcionou! Esse formulário com o Grid que utilizo é o padrão do VB6 (DataGrid) e não o MSFlexGrid. Trata-se de uma formulário que é alimentado por Importação de arquivo TXT e não permite alterações, somente visualização, razão pelo qual utilizo o DataGrid. Essa rotina que você me passou, como fica para o DataGrid? Agradeço! Enéa
  4. Obrigado Kuroi! Vou testar e posto aqui! Até amanhã e abraços!
  5. Kuroi, Na realidade tentei de TUDO, inclusive adptar esse codigo que passei. Mas não consegui com nada! E mão tenho nenhuma idéia de como conseguir. Já vasculhei a nete não encontrei nada específico!
  6. Re: Help in Msflexgrid -------------------------------------------------------------------------------- VB Code: Option Explicit Private Sub Command1_Click() '1st parameter is the first column and the 2nd one is the last column 'the result is calculated between those two columns, including both of theme Text1.Text = getColumnSum(MSFlexGrid1, 0, 1) Text2.Text = getColumnSum(MSFlexGrid1, 2, 8) End Sub Private Function getColumnSum(mfg As MSFlexGrid, clmn1 As Integer, clmn2 As Integer) As Double Dim i As Integer, j As Integer For i = clmn1 To clmn2 Wi
  7. Prezado Kuroi, Encontrei num fragmento de uma função em VBA (apenas anotei, há algum tempo). Enéa
  8. VB - Como somar colunas do GRID (filho) e alimentar campo do PAI. Já tentei de várias formas, inclusive com a função MeuGrid.GetColumnSum(Coluna), mas apenas o primeiro registro da tabela é transportado. Se alguém puder me ajudar, agradeço. namon [email protected]
  9. Kuroi, Exatamente o que disseste! Percorri o arquivo TXT e eis que encontro duplicidade. Obrigado pela força TÓPICO ENCERRADO! :rolleyes:
  10. Kuroi, agora "pirei". Efetuei as alterações: Set PAI = vgDb.OpenRecordSet("Select * From PAI Order By Codigo", dbOpenTable) If PAI.RecordCount > 0 Then PAI.MoveFirst Set FILHO = vgDb.OpenRecordSet("Select * From FILHO Order By Codigo", dbOpenTable) If FILHO.RecordCount > 0 Then FILHO.MoveFirst Apliquei F9 na linha Do While Not FILHO.EOF e executei. Apertando F8 a rotina pula para RollBack e apresenta a mensagem de erro: "Não foi possível atualizar o arquivo TXT Motivo: O mecanismo de banco de dados Microsoft Jet não pôde encontrar o objeto 'Select * FROM Familia Order By Codigo'. Certif
  11. Kuroi, Eliminei a linha indicada, mas continua somente PROCESSANDO a alteração no PRIMEIRO registro! A seqüência (ordem) dos comandos estariam errados? namon
  12. Obrigado Kuroi! Fiz algumas alterações mas continua atualizando somente o primeiro registro. Veja abaixo as alterações: BeginTrans Set PAI = vgDb.OpenRecordSet("PAI", dbOpenTable) If PAI.RecordCount > 0 Then PAI.MoveFirst Set FILHO = vgDb.OpenRecordSet("FILHO", dbOpenTable) If FILHO.RecordCount > 0 Then FILHO.MoveFirst Do While Not FILHO.EOF With PAI .Edit If PAI!Codigo = FILHO!Codigo And FILHO!Tppar = 1 Then PAI!Ident = FILHO!Ident PAI!Nome = FILHO!Nome PAI!TotalDespesas = FILHO!Despesas PAI!TotalReceitas = FILHO!Receitas PAI!TotalPessoas = FILHO!Qtpessoas End
  13. Em meu projeto (Formulário em GRID- PAI e FILHO). Inseri uma rotina para atualizar um campo do PAI a partir FILHO, segundo condições. Importa um arquivo TXT para um MDB com mais de 18 mil registros. Após isso, necessito atualizar alguns campos do PAI que vieram preenchidos no FILHO pela importação. Nesse exemplo, 4 campos no PAI a serem atualizados: a) Campo Ident (IDENTIFICADOR do Responsável) que está em UMA LINHA do Grid FILHO (somente um é o respsonsável) B) Campo Receitas que é a soma de determinada coluna do Grid FILHO; c) Campo Despesas que é a soma de determinada coluna do Grid FIL
×
×
  • Create New...