USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Arquivos/Diretórios)

Título da Dica:  Carregar um combo box com os dados de um arquivo texto
Postada em 3/9/2002 por Ageu Elias Rove      Clique aqui para enviar email para o autor  ageu.rover@bol.com.br
************************************************************
como char a sub
Call CarregaTxtComboBox(cmb_FiltroTabela, App.Path & "\FiltroTab.aux")


***********************************************************
Public Sub CarregaTxtComboBox(nmCombo As ComboBox, ArqTxt As String)
On Error GoTo trata_erro
Screen.MousePointer = 11

Dim ContItem As Integer
Dim Linha As String

If FileExist(ArqTxt) = False Then
    Screen.MousePointer = 1
    MsgBox "Arquivo " & ArqTxt & " não encontrado.", vbCritical
    Exit Sub
End If

Open ArqTxt For Input As #1

ContItem = 1

Do Until EOF(1) = True
    DoEvents
    Line Input #1, Linha
    If Mid(Linha, 1, 4) = "CMP=" Then
        nmCombo.AddItem LTrim(RTrim(Mid(Linha, 5)))
        nmCombo.ItemData(nmCombo.NewIndex) = ContItem
        ContItem = ContItem + 1
    End If
Loop
      
Close #1
Screen.MousePointer = 1

trata_erro:
    If Err.Number <> 0 Then
        Screen.MousePointer = 1
        MsgBox Err.Number & Chr(13) & Err.Description, vbInformation, "Mensagem"
        Exit Sub
    End If

End Sub

********************************************************
exemplo do arquivo texto:

#### CAMPOS DA TABELA DE Produtos
CMP= CODPROD
CMP= DESCRICAO
CMP= EMBALAGEM
CMP= QTEST
CMP= PUNIT
CMP= PVENDA1
CMP= PVENDA2
CMP= PVENDA3
CMP= PERDESC
CMP= PERCOMISSAO
#### FIM TABELA CLIENTE
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página