Preenchendo listbox e dbgrids sem utilizar datacontrols?

[crauller 0]

Olá pessoal...

Sou novo no fórum, e gostaria que vcs me dissessem como faço para preencher esses controles com o resultado de um select....

abração..... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Hugo Slepicka 0]

Faz um for...

 

com o resultado...

 

For i = 1 to Recordset1.recordcount   //comando para inserir na listbox (Pq to sem o VB Aqui)next i

 

flw aew http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[crauller 0]

vlw...Ajudou um pouco, mas o que acontece é o seguinte:eu tenho a seguinte consulta:gsql="SELECT tb_escritorio.[tec_acreditacao],tb_escritorio.[nome_organismo],tb_escritorio.[dt_inicio],tb_escritorio.[dt_fim]," & _ "tb_testemunha.[tec_acreditacao],tb_testemunha.[nome_organismo],tb_testemunha.[dt_inicio],tb_testemunha.[dt_fim]" & _ "FROM tb_escritorio,tb_testemunha"e gostaria de inserir todos os campos na list ou na grid de maneira ordenada..com os dados da tb_escritorio um ao lado do outro, assim como da tb_testemunha...obrigado...

[Hugo Slepicka 0]

ué...

 

da mesma maneira... ele irá trazer os registros...

 

basta a você posicionar o Grid...

Grid1.Row = 1Grid1.Col = 0Grid1.Text = recordset1[0].value

e assim sucessivamente, ai você adapta ele a um for... e fica automático...

[Vitor Linares 0]

crauller,

 

seguinte, você pode fazer como o amigo Hugo falou, ou tambem voce pode ordenar os dados na sua consulta sql, colocar o resultado em um dataset e definir o datasource do seu grid como o dataset utilizado na consulta.

 

Exemplo:

 

dim con as new sqlclient.sqlconnection("string de conexao")dim cmd as new sqlclient.sqlcommand()dim adp as new sqlclient.sqldataadapter()dim dset as new datasetcon.open()cmd.connection = concmd.commandtext = "Select campo1,campo2,campo5,campo4 from tabela order by campo1"adp.selectcommand = cmdcmd.executenonquery()adp.fill(dset)dset.acceptchanges()grid.datasouce = dset.tables(0)

com esse codigo o seu grid vai ter as segintes colunas na seguinte ordem

 

[campo1][campo2][campo5][campo4]

 

espero ter ajudado

 

Abc

Vitor

[crauller 0]

crauller,seguinte, você pode fazer como o amigo Hugo falou, ou tambem voce pode ordenar os dados na sua consulta sql, colocar o resultado em um dataset e definir o datasource do seu grid como o dataset utilizado na consulta.Exemplo:

dim con as new sqlclient.sqlconnection("string de conexao")dim cmd as new sqlclient.sqlcommand()dim adp as new sqlclient.sqldataadapter()dim dset as new datasetcon.open()cmd.connection = concmd.commandtext = "Select campo1,campo2,campo5,campo4 from tabela order by campo1"adp.selectcommand = cmdcmd.executenonquery()adp.fill(dset)dset.acceptchanges()grid.datasouce = dset.tables(0)

com esse codigo o seu grid vai ter as segintes colunas na seguinte ordem[campo1][campo2][campo5][campo4]espero ter ajudadoAbcVitor

Caro vitor... A solução apresentada parece viável, mas não sei a qual bibliotec atenho que fazer referencia para utilizá-lo....lembrando que estou utilizando a DAO 3.51 por alguns motivos administrativos...se puder postar uma outra solução que ordene os campos um ao lado do outro..Agradeceria muito..abração...

[Vitor Linares 0]

crauller,desculpe nao tinha percebido que voce estava usando dao, vou montar o code pra voce e posto assim q possivel...desculpe pela falta de atenção..acredito q ainda hoje estarei postando pra voce...

[crauller 0]

crauller,desculpe nao tinha percebido que voce estava usando dao, vou montar o code pra voce e posto assim q possivel...desculpe pela falta de atenção..acredito q ainda hoje estarei postando pra voce...

Que isso camarada...só naum coloco a ado aki por algumas implicações...Mas creio que a intenção do fórum é tirar dúvidas certo??????Pelo que vi sua intenção foi ajudar..naum esquenta naummm.....Grande abraço vlw....

[Vitor Linares 0]

crauller,

 

em dao a coisa fica com uma cara mais feinha... mas o principio eh o mesmo...

 

voce ordena os campos como quiser na sua sql e depois pode executar o seginte

 

for i = 0 to recordset.recordcount	 grid.row = i	 for r = 0 to recordset.fields.count - 1		 grid.col = r		 grid.text = recordset.fields(r).value	 end for	 recordset.movenextend for

acho q isso deve resolver...

 

eu to sem vb6 aqui... mas voce pode criar as colunas do seu grid usando o seu recordset...

 

naum me lembro se isso existe... recordset.fields(0).name

 

mas se existir você pode fazer um for com o numero total de campos do recordset... e pra cada campo criar uma coluna no no seu grid com header text igual ao nome do campo...

 

desculpe se ficou meio confuso...

 

espero ter ajudado

 

Abc

Vitor