Combobox e Listview???


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Combobox e Listview???

SRick

LAVRAS
MG - BRASIL

ENUNCIADA !

Postada em 19/01/2008 14:13 hs

Olá pessoal - boa tarde.

Estou querendo montar uma consulta da seguinte maneira

Tenho uma tabela em um banco de dados access com vários campos e um destes campos eu estou usando um combobox (Para mim escolher uma determinada cidade, eu abro o combobox, que já contem as 200 cidades).

Bem, é aqui que estou com dificuldade. Eu escolho a cidade no combox ai eu gostaria de mostrar todos os dados da minha tabela em um listview, porem no campo cidade somente a cidade que eu selecionei que deverá aprecer no listview com outros campos, logicamente.

--------------------------

EXEMPLO:

LISTAR CIDADE: Belo horizonte ' (este é o campo combobox)

AI NO LISTVIEW APARECERIA:

CIDADE SETOR DE TRABALHO TELEFONE (estes são os campos da tabela)

-----------------------------------------------------

Belo Horizonte Empresa X 343444

Belo Horizonte Empresa Y 234512

Belo Horizonte Empresa A 983176

E assim por diante.

Agradeço a todos.

Agradeço aos amigos que puderem me ajudar~.

SRick.

Tiranossauro

DOIS IRMÃOS
RS - BRASIL

ENUNCIADA !

Postada em 19/01/2008 16:37 hs

POrque vc não coloca isto numa MsFlexGrid de modo que no primeiro acesso já busca todas as informações no BAnco de dados.

Mas se quiser fazer no combobox use o evento LostFocus (armazene o código no ítemdata do combo box e no lostfocus acesso o registro buscando as informações

SRick

LAVRAS
MG - BRASIL

ENUNCIADA !

Postada em 19/01/2008 16:41 hs

Por que sou novato em VB e nao sei fazer, caso vc quiser me dar uma força, agradeço.

SRick.

Treze

SÃO VICENTE
SP - BRASIL

Postada em 21/01/2008 13:01 hs

Voltei henrinque

Eu acho que a melhor forma seria esta no evento lost_focus

use esta função

vamos supor que o nom d seu recordset seja REG_cid

sua tabla chamase tabcidades, e nla contnham os campos nome, empresa,telefone.

então faça assim

REG_cid.findMin "tabcidades like '" & cmbcidades.txt & "'"

Do While not REG_cid.EOF

lista=Listview1.Listitens (,,REG_cid("nome"))

lista.subitens(1)=REG_cid("empresa")

lista.subitens(2)=REG_cid("telefone")

REG_cid.findnext "tabcidades like '" & cmbcidades.txt & "'"

loop

agora é o seguinte, lembra quando eu falei pra você quanto ao fato de se usar maiusculas e minusculas, então se no seu combo estiver nesta forma Bauru então o seu campo de estar Obrigatóriamente como Bauru e não bauru ou BAURU, entendeu, estou sem meu visual basic pois acabei de fazer um upgrade na minha máquina então teste e poste o ódigo, e o erro que poderá ocorrer, valeu até

RARS

AMERICO BRASILIENSE
SP - BRASIL

ENUNCIADA !

Postada em 22/01/2008 11:05 hs

SRick..

Tenta Fazer assim.usa uma MsFlexgrid

'Para montar a grade..vc pode usar o Form_Load esse codio abaixo

GrdCidade.cols = 3

GrdCidade.rows= 1

GrdCidade.fixedcols = 0

For x = 0 To GrdCidade.cols -1

GrdCidade.textmatrix(0,x) = Choose(x+1,"Cidade","Setor","Telefone")

GrdCidade.ColWidht(x) = Choose(x+1,"2000","2000","2000")

Next x

'Rotina para preencher a Grade vc chama ela no click ow lostfocus da combo

Ex:

Call Preencher_Grade("Araraquara",GrdCidade)

Private Sub Preencher_Grade(Cidade as String,grade as MSFlexgrid)

Dim Sql$,Sn as Adodb.recordset,x%

sql="Select Cidade,Setor,Telefone From Cidade"

sql=sql & " Where Ucase(Cidade) ='" & Cidade & "'"

Set sn = Db.execute(Sql)

GRade.rows = GRade.rows +1

For x= 1 To GRade.rows -1

Grade.textmatrix(x,0) = "" & sn("Cidade")

Grade.textmatrix(x,1) = "" & sn("Setor")

Grade.textmatrix(x,2) = "" & sn("Telefone")

Sn.movenext

NExt x

sn.close

End Sub

PRA ADICIONAR O MSFLEXGRID..CLICA Com o botao direito na toolbox..components e seleciona o MIcrsoft Flexgrid Contros 6.0

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR