none
ComboBox a Saga Continua RRS feed

  • Pergunta

  • Mais uma vez aqui, mais duvidas. Na minha duvida anterior, eu não estva conseguindo carregar 3 combos, uma a partir da outra, mas ja deu tudo certo...porém agora, eu preciso mostrar um relatório data report com data environment a partir das opções selecionadas nos combos. ex. combo1=cidade; combo2=bairro e combo3=loteamento. Eu preciso montar meu relatório onde irão aparecer todos os moradores pertencentes apenas a estas informações e não de todos os municipios, bairros e loteamentos. To usando apenas uma tabela com access e vb6 com ADO. Se alguém puder me ajudar, fico muito grato.
    sexta-feira, 5 de abril de 2013 10:56

Todas as Respostas

  • Veja se o vídeo abaixo te ajuda.


    Leonardo Garcia
    pensouweb@hotmail.com

    sexta-feira, 5 de abril de 2013 13:04
  • Caro Leonardo, obrigado por sua resposta. Meu sistema é em vb6 com access ADO.

    na real, eu consegui enquanto postava a ultima mensagem, carregar o relatório, porem está carregando todas as informações e não só as referente aos combos. segue código:
    Public Sub rel2()

    Dim db_file As String
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    Dim strCliente As String

    strCliente = frmRelatorio.cboMunicipio.Text
    strCliente = frmRelatorio.cboBairro.Text
    strCliente = frmRelatorio.cboLoteamento.Text

    strSQL & "SELECT DataCad, CodCliente, Nome, CPF, RG,Nascimento, EstadoCivil, Conjuge, Nacionalidade, Profissao, Endereco, Complemento, Bairro, Cidade, Estado, CEP, Telefone, "
    strSQL = strSQL & "FoneComercial, Celular, Loteamento, Lote, Quadra, Vendedor, Area, Documento, Frente, Fundos, LD, LE, Obs FROM CadCliente WHERE Cidade = ' " & frmRelatorio.cboMunicipio.Text & "' And Bairro = ' " & frmRelatorio.cboBairro.Text & " ' and Loteamento = ' " & frmRelatorio.cboLoteamento.Text & "' "

    db_file = App.Path & "\Clientes.mdb"

    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file & ";Persist Security Info=False"
    conn.Open

    Set rs = New ADODB.Recordset
    rs.Open strSQL, conn

    If rs.EOF = False Then

    With dtrClientes
    Set .DataSource = Nothing
    .DataMember = ""
    Set .DataSource = rs.DataSource

    With .Sections("Section4").Controls

    'joga o valor no primeiro textbox
    .Item(1).DataMember = ""
    .Item(1).DataField = rs(0).Name 'valor da primeira coluna retornada no select

    'joga o valor no segundo textbox
    .Item(2).DataMember = ""
    .Item(2).DataField = rs(1).Name 'valor da segunda coluna retornada no select

    'joga o valor no terceiro textbox
    .Item(3).DataMember = ""
    .Item(3).DataField = rs(2).Name 'valor da terceira coluna retornada no select

    'joga o valor no quarto textbox
    .Item(4).DataMember = ""
    .Item(4).DataField = rs(3).Name 'valor da quarta coluna retornada no select

    'joga o valor no quinta textbox
    .Item(5).DataMember = ""
    .Item(5).DataField = rs(4).Name 'valor da quinta coluna retornada no select

    'joga o valor no sexta textbox
    .Item(6).DataMember = ""
    .Item(6).DataField = rs(5).Name 'valor da sexta coluna retornada no select

    'joga o valor no sétima textbox
    .Item(7).DataMember = ""
    .Item(7).DataField = rs(6).Name 'valor da sétima coluna retornada no select

    'joga o valor no oitava textbox
    .Item(8).DataMember = ""
    .Item(8).DataField = rs(7).Name 'valor da oitava coluna retornada no select

    'joga o valor no nona textbox
    .Item(9).DataMember = ""
    .Item(9).DataField = rs(8).Name 'valor da nona coluna retornada no select

    'joga o valor no decima textbox
    .Item(10).DataMember = ""
    .Item(10).DataField = rs(9).Name 'valor da decima coluna retornada no select

    'joga o valor no decima primeira textbox
    .Item(11).DataMember = ""
    .Item(11).DataField = rs(10).Name 'valor da decima primeira coluna retornada no select

    'joga o valor no decima segunda textbox
    .Item(12).DataMember = ""
    .Item(12).DataField = rs(11).Name 'valor da decima segunda coluna retornada no select

    'joga o valor no decima terceira textbox
    .Item(13).DataMember = ""
    .Item(13).DataField = rs(12).Name 'valor da decima terceira coluna retornada no select

    'joga o valor no decima quarta textbox
    .Item(14).DataMember = ""
    .Item(14).DataField = rs(13).Name 'valor da decima quarta coluna retornada no select

    'joga o valor no decima quinta textbox
    .Item(15).DataMember = ""
    .Item(15).DataField = rs(14).Name 'valor da decima quinta coluna retornada no select

    'joga o valor no decima sexta textbox
    .Item(16).DataMember = ""
    .Item(16).DataField = rs(15).Name 'valor da decima sexta coluna retornada no select

    'joga o valor no decima setima textbox
    .Item(17).DataMember = ""
    .Item(17).DataField = rs(16).Name 'valor da decima setima coluna retornada no select

    'joga o valor no decima oitava textbox
    .Item(18).DataMember = ""
    .Item(18).DataField = rs(17).Name 'valor da decima oitava coluna retornada no select

    'joga o valor no decima nova textbox
    .Item(19).DataMember = ""
    .Item(19).DataField = rs(18).Name 'valor da decima decima nova coluna retornada no select

    'joga o valor no segundo textbox
    .Item(20).DataMember = ""
    .Item(20).DataField = rs(19).Name 'valor da segunda coluna retornada no select

    'joga o valor no vigessima textbox
    .Item(21).DataMember = ""
    .Item(21).DataField = rs(20).Name 'valor da vigessima coluna retornada no select

    'joga o valor no vigessima primeira textbox
    .Item(22).DataMember = ""
    .Item(22).DataField = rs(21).Name 'valor da vigessima primeira coluna retornada no select

    'joga o valor no vigessima segunda textbox
    .Item(23).DataMember = ""
    .Item(23).DataField = rs(22).Name 'valor da vigessima segunda coluna retornada no select

    'joga o valor no vigessima terceira textbox
    .Item(24).DataMember = ""
    .Item(24).DataField = rs(23).Name 'valor da vigessima terceira coluna retornada no select

    'joga o valor no vigessima quarta textbox
    .Item(25).DataMember = ""
    .Item(25).DataField = rs(24).Name 'valor da vigessima quarta coluna retornada no select

    'joga o valor no vigessima quinta textbox
    .Item(26).DataMember = ""
    .Item(26).DataField = rs(25).Name 'valor da vigessima quinta coluna retornada no select

    'joga o valor no vigessima sexta textbox
    .Item(27).DataMember = ""
    .Item(27).DataField = rs(26).Name 'valor da vigessima sexta coluna retornada no select

    'joga o valor no vigessima setima textbox
    .Item(28).DataMember = ""
    .Item(28).DataField = rs(27).Name 'valor da vigessima setima coluna retornada no select

    'joga o valor no vigessima oitava textbox
    .Item(29).DataMember = ""
    .Item(29).DataField = rs(28).Name 'valor da vigessima oitava coluna retornada no select

    'joga o valor no vigessima nona textbox
    .Item(30).DataMember = ""
    .Item(30).DataField = rs(29).Name 'valor da vigessima nova coluna retornada no select

    End With
    .Show 1
    End With

    End If

    dtrClientes.Show 1

    rs.Close
    conn.Close

    End Sub


    • Sugerido como Resposta Softlesk quinta-feira, 11 de abril de 2013 14:30
    domingo, 7 de abril de 2013 23:30