Bookmark - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Bookmark

¨Hennyere¨

SALVADOR
BA - BRASIL

Postada em 26/01/2006 14:05 hs

para que servem as propriedades: Bookmark e Seek de um RecordSet(ADO)?

UGS

SÃO CARLOS
SP - BRASIL

Postada em 26/01/2006 14:33 hs

Olá amigo acho que isso vai te ajudar:

Bookmarks (marcadores)

Um bookmark de um recordset é como um cursor que aponta para um registro específico dentro do Recordset identificando-o de forma única. Fazendo uma analogia , ao ler um livro você não costumar usar um marcador para indicar em qual página parou ? Sim , você põe o marcador na página para quando retornar a leitura localizar com rapidez onde parou a leitura. Assim funciona um bookmark.

Seek
O método Seek permite a procura em uma coluna. Ele só encontra os valores iguais ao valor da procura e vai precisar de um provedor de dados que permita a utilização da propriedade Index e o método Seek. (Nem todos os provedores permitem). Além disso o método Seek vai requerer um cursor do lado do servidor.

Flw abraços

¨Hennyere¨

SALVADOR
BA - BRASIL

Postada em 26/01/2006 15:07 hs

Dá p/ mostrar um exemplo na prática de como usar estes dois métodos?

Tekki

UBERLÂNDIA
MG - BRASIL

ENUNCIADA !

Postada em 26/01/2006 19:41 hs

Este código não é meu, peguei um exemplo.

Private Sub localizar_Click()
    Dim criterio As long
    Dim marcador As variant

    marcador = dtacli.Recordset.Bookmark
    dtacli.Recordset.Index = "codigo" 'recordset é do tipo Table !!!

    criterio = InputBox$("Codigo do cliente a localizar: ", "Localizar Clientes")

    If criterio <> Empty Then
      dtacli.Recordset.Seek "=", criterio
      If dtacli.Recordset.NoMatch Then
        MsgBox "Cliente não localizado ! ", vbExclamation, "Localizar Clientes"
        dtacli.Recordset.Bookmark = marcador
      End If
    Else
        dtacli.Recordset.Bookmark = marcador
    End If
End Sub

Resumindo.

O seek faz a consulta e o bookmark guarda onde esta o registro.

Antes da consulta ele guardou a posição do registro

(marcador = dtacli.Recordset.Bookmark) para recuperar a informação depois.

O código foi do link:

http://www.macoratti.net/codevb.htm

Particularmente uso SQL nas minhas consultas.

Martini

PAROBÉ
RS - BRASIL

Postada em 27/01/2006 06:20 hs

ActiveForm.vgTb.Update 'deu certo - atualiza
ActiveForm.vgTb.BookMark = ActiveForm.vgTb.MaxModified 'posiciona no ultimo registro editado

neste exemplo, após gravar os dados, eu "marco" o último registro atualizado

Página(s): 1/1