Inquiridor
ComboBox a Saga Continua

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.
Todas as Respostas
-
Veja se o vídeo abaixo te ajuda.
Leonardo Garcia
pensouweb@hotmail.com -
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