MOVER REGISTRO

EPISCOPAL 05/02/2016 18:58:59
#457188
olá ...

na conexão via sql não abrimos a tabela .... apenas apontamos ela na instrução sql.

no caso pra se mover registro tipo: movefirst, movelast ... qual comando sql usar?
OMAR2011 05/02/2016 19:30:19
#457190 Resposta escolhida
Eu em particular prefiro usar isto.
With cmd
.CommandType = System.Data.CommandType.Text
.CommandText = [Ô]select * From Letras where Cod=(select min(Cod) from Letras where cod > ?)[Ô]
.Parameters.Add([Ô]@cod[Ô], OleDbType.Integer)
.Parameters([Ô]@cod[Ô]).Value = txtCod.Text
End With
EPISCOPAL 11/02/2016 10:06:48
#457477
Citação:

.Parameters([Ô]@cod[Ô]).Value = txtCod.Text



O [txt-color=#e80000]txtCod.Text[/txt-color] seria o registro corrente, não é isso?
OMAR2011 11/02/2016 11:10:11
#457482
Isto.
Ele é movimentado pelo valor do txtCod.Text.
Sempre que houver uma exclusão movimenta para o primeiro registro.
With cmd
.CommandType = System.Data.CommandType.Text
.CommandText = [Ô]SELECT * FROM Letras Where Cod= (SELECT Min(Cod) FROM Letras)[Ô]
End With
EPISCOPAL 11/02/2016 11:28:25
#457485
se eu usar:

.CommandText = [Ô]SELECT * FROM Letras Where Cod= (SELECT Max(Cod) FROM Letras)[Ô]

onde Cod= (SELECT Max(Cod) é o último registro?
OMAR2011 11/02/2016 12:12:42
#457487
[txt-color=#e80000]Sim.Último.[/txt-color]
With cmd
.CommandType = System.Data.CommandType.Text
.CommandText = [Ô]SELECT * FROM letras Where cod= (SELECT Max(Cod) FROM Letras)[Ô]
End With
[txt-color=#e80000]Próximo.[/txt-color]
With cmd
.CommandType = System.Data.CommandType.Text
.CommandText = [Ô]select * From Letras where Cod=(select min(Cod) from Letras where cod > ?)[Ô]
.Parameters.Add([Ô]@cod[Ô], OleDbType.Integer)
.Parameters([Ô]@cod[Ô]).Value = txtCod.Text
End With
[txt-color=#e80000]Anteriror.[/txt-color]
With cmd
.CommandType = System.Data.CommandType.Text
.CommandText = [Ô]select * From Letras where Cod=(select max(Cod) from Letras where cod < ?)[Ô]
.Parameters.Add([Ô]@idpeso[Ô], OleDbType.Integer)
.Parameters([Ô]@idpeso[Ô]).Value = txtCod.Text
End With
EPISCOPAL 11/02/2016 18:59:12
#457512
faltou o primeiro ..... srsrsrsrs
OMAR2011 11/02/2016 19:21:10
#457513
Este.
With cmd
.CommandType = System.Data.CommandType.Text
.CommandText = [Ô]SELECT * FROM Letras Where Cod= (SELECT Min(Cod) FROM Letras)[Ô]
End With
EPISCOPAL 12/02/2016 10:25:52
#457564
Fechado .... obrigado Omar.
Tópico encerrado , respostas não são mais permitidas
Voltar