André
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 21/03/2005 17:07 hs
Como fasso para carregar o datagrid dentro de um while? Estou usando uma consulta com o DAO. Depois de obter os resultados da consulta quero inserir um a um no DataGrid, pois nem todos serão inserido. Por exemplo, sql = "bla bla" set tab.... while not tab.eof if condicao for verdadeira then carrego campos da tabela no DataGrind else não carrega end if wend |
|
|
|
|
|
|
|
Postada em 21/03/2005 18:36 hs
if not RStabela.eof then RStabela.moveMin do while not RStabela.eof carregar Grid RStabela.movenext loop else msgbox ("Antes estavam faltando alguns comandos.") end if
 ANGUS TORMENTOR |
|
|
|
André
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/03/2005 19:07 hs
tu só pode tá brincando, se não tu é muito burro...quero saber justamente na parte que tu escreveu carregar Grid,....o resto não me interessa...escrevi o exemplo só pra mostrar o que eu estava querendo. |
|
|
|
Mateus
|
AMADORA
PT - PORTUGAL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/03/2005 21:13 hs
É pobre, e ainda por cima, mal agradecido!
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
|
|
Postada em 22/03/2005 10:31 hs
Pega ai o mal agradecido, e ve se da próxima vez vc explica melhor o que quer. Private Sub MontaListagem()
Dim RSTABELA As Recordset
DtList.DatabaseName = BDados
DtList.RecordSource = (" SELECT * FROM TABELA")
Set DbList.DataSource = RSTABELA
ArrumaLista
End Sub
Private Sub ArrumaLista()
DtList.Refresh
DbList.Refresh
With DbList
.Columns(0).Caption = "CÓDIGO"
.Columns(1).Caption = ("NR")
.Columns(2).Caption = ("TIPO")
.Columns(3).Caption = ("COD.PRO")
.Columns(4).Caption = ("SÉRIE")
.Columns(5).Caption = ("Dt.INI")
.Columns(6).Caption = ("Dt.FIN")
.Columns(7).Caption = ("CT.TEC")
End With
End Sub
ANGUS TORMENTOR
|
|
|
|
|
|
Postada em 22/03/2005 15:18 hs
Ae Angus, foi mal mesmo...é que essas bixera de código me deixa meio atucanado, te pesso desculpas. Achei que tu tava tirando uma onda e fui inconsequente. Mas valeu a força e aos demais que ajudam a esse forum funcionar bem. Em relação ao código que tu passou, o caption é para definir o nome da coluna do DbGrid e o Set DbList.DataSource = RSTABELA era o que eu tava precisando. Mas justamente ai que mora o meu problema. Eu preciso restringir após essa consulta os campos que vou usar. Por exemplo: depois de fazer essa consulta preciso usar alguns IF para assim inserir individualmente os campos da tabela para o DBGrid. Bom espero ter sido mais claro agora, e mesmo qualquer um ter toda razão de não me ajudar espero obter uma resposta. Valeu |
|
|
|
