CAPTURAR VALOR DA LINHA SELECIONADA NO DATAGRID

USUARIO.EXCLUIDOS 31/08/2007 22:36:46
#233685
tenho uma rotina FILTER à qual pus como referencia, ou melhor, tentei por como referencia o valor do COD que se encontra dentro do Datagrid, ou seja, gostaria que o FILTER pegasse o valor do campo selecionado no Datagrid, assim:

exemplo do GRID:

COD NOME ENDEREÇO
1 SINKERTEC TSL
4 MARCELOHF ASDADFA
18 MILTONBARRETO ASDASDA
7 SILVERDRAGON ASDAKLGFDS

Digamos que o usuario selecione a linha:

4 MARCELOHF ASDADFA

Gostaria de usar como parametro para o FILTER este valor do COD = 4, ou seja, usar sempre o valor da 1ê coluna da linha selecionada.

Dim cnncomando As New ADODB.Command
Dim rs_altera As New ADODB.Recordset

With cnncomando
.ActiveConnection = cnnProjetos
.CommandType = adCmdText
.CommandText = "select * from arquivo"
Set rs_altera = .Execute

End With
With rs_altera
rs_altera.Filter = " cod = '" & DataGrid1.(O_QUE_COLOCO_AQUI?) & "'"

Dim vCaixa As Integer
vCaixa = MsgBox("Deseja alterar o número da caixa onde está arquivado o projeto de : " & !nome & " ? ", vbYesNo + vbQuestion, "Alterar caixa do arquivo")

If vCaixa = vbYes Then

Dim vALT As Integer
vALT = InputBox("Digite o número da caixa onde será arquivado o projeto", "Arquivar projeto")

With cnncomando
.ActiveConnection = cnnProjetos
.CommandType = adCmdText
.CommandText = " update arquivo set " & _
" caixa = '" & vALT & "'" & _
"where cod = '" & DataGrid1.(O_MESMO_VALOR_QUESTIONADO) & "';"
End With

Set rs_altera = Nothing
Set cnncomando = Nothing


End If
End With
End Sub
USUARIO.EXCLUIDOS 31/08/2007 23:01:38
#233688
codigo =(MSFlexGrid1.RowSel,0)


kra to sem vb aqui mais eu axo q e mais ou menos isso

o rowsel retorna a linha selecionada, ai vc define lah a coluna q vc quer.
LCSD 31/08/2007 23:41:10
#233691 Resposta escolhida
Citação:

MILTONBARRETOS escreveu:
codigo =(MSFlexGrid1.RowSel,0)


kra to sem vb aqui mais eu axo q e mais ou menos isso

o rowsel retorna a linha selecionada, ai vc define lah a coluna q vc quer.



Milton, o amigo esta utilizando um DATAGRID e naum um FlexGrid, para tanto, é necessário fazer de outra forma........


With rs_altera
     rs_altera.Filter = " cod = '" & DataGrid1.Columns.item(0).Text  & "'"
USUARIO.EXCLUIDOS 01/09/2007 05:06:40
#233694
puts kra, to ficando lokoo

uhahauh foi malz
USUARIO.EXCLUIDOS 01/09/2007 09:36:29
#233710
Obrigado mais uma vez pela atenção MILTON, tenho certeza que se não fosse pelo deslize do nome do Grid sua resposta seria a mesma do FOXMAN CORRETÍSSIMA, se tivesse pontuação pela intenção vc também ganharia mais um pontinho hheheheh, mas sei que o que vale aqui no nosso VBMANIA é o espirito de ajuda e aprendizado. Tenham certeza que este pequeno detalhe numa pesquisa pode alterar toda a linha de pensamento na criação de um projeto, afinal é de centavos que se chega a um MILHÃO.
Tópico encerrado , respostas não são mais permitidas
Voltar