ATUALIZAR FLEXGRID

MARCELOFAZAN 26/07/2010 17:20:02
#348530
Pessoal , coloquei esse codigo e ele grava por cima do ultimo , nao pulando uma nova linha
como fazer esse codigo pular a linha na MSflexGrid


Set rs = New ADODB.Recordset
comandsql = [Ô]select * from Nturmas where cod = [Ô] & Txtcod.Text & [Ô][Ô]
rs.Open comandsql, conexao, adOpenStatic

If rs.EOF Then
Else
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = Txtcod.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = TxtTurma.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = Txtaluno.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = TxtData.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = TxtEntrada.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = TxtSaida.Text
End If


Obrigado
Abs
Marcelo Fazan
DANIKULL 26/07/2010 17:24:59
#348533 Resposta escolhida
Boa tarde.

Da uma olhada neste artigo e veja se ele te ajuda.

Preenchendo um MSFlexGrid com ADO

Da uma pesquisa aqui no site.. no Forum e no Arquivos sobre como Preencher MSFlexGrid que vai encontrar inúmeras maneiras e formas, eu mesmo postei dois bons exemplos de como carregalos.

Abraços....
MARCELOFAZAN 26/07/2010 17:38:48
#348535
ola amiguinho ja vi seu exemplo varias vezes
mto bom seu exemplo

porem como ve o codigo acima é uma coisa bem facil de entender .
preciso montar aos pocos pra entender melhor
no mesmo lugar que peguei esse exemplo tinha a resposta do problema só que fechei sem querer

Abs
Obrigado Atencao
Marcelo Fazan

MARCELOFAZAN 26/07/2010 18:20:46
#348541
If rs.EOF Then
Else
Do While Not rs.EOF
MSFlexGrid1.AddItem rs.Fields(1).Value
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = Txtcod.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = TxtTurma.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 2) = Txtaluno.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 3) = TxtData.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 4) = TxtEntrada.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 5) = TxtSaida.Text
rs.MoveNext
Loop
End If

Obrigado resolveu
Abraço
Marcelo Fazan
Tópico encerrado , respostas não são mais permitidas
Voltar