MOVER-SE POR REGISTROS USANDO RECORDSET COM SELECT
olá gostaria que alguem ajudase a resolver meu problema :
eu usei um data environment para fazer uma conexão con access
criei um recordset e fiz um select em uma tabela de alguns registros
e gostaria de colocar um botão que vá prar o próximo registro sem usar DATACONTROLS
vou passar o código de consulta onde esta meu record set
Private Sub cmd_consultar_Click()
Dim rstemp As ADODB.Recordset
Dim strsql As String
Set rstemp = New ADODB.Recordset
strsql = _
" SELECT nome, telefone, data" & _
" FROM Pessoas" & _
" WHERE indice = " & Val(txt_indice.Text)
rstemp.Open strsql, de.Con_agenda
If rstemp.BOF And rstemp.EOF Then
MsgBox "indice não encontrado"
Else
txt_nome.Text = rstemp("nome")
txt_telefone.Text = rstemp("telefone")
txt_data.Text = rstemp("data")
End If
rstemp.Close
Set rstemp = Nothing
End Sub
eu usei um data environment para fazer uma conexão con access
criei um recordset e fiz um select em uma tabela de alguns registros
e gostaria de colocar um botão que vá prar o próximo registro sem usar DATACONTROLS
vou passar o código de consulta onde esta meu record set
Private Sub cmd_consultar_Click()
Dim rstemp As ADODB.Recordset
Dim strsql As String
Set rstemp = New ADODB.Recordset
strsql = _
" SELECT nome, telefone, data" & _
" FROM Pessoas" & _
" WHERE indice = " & Val(txt_indice.Text)
rstemp.Open strsql, de.Con_agenda
If rstemp.BOF And rstemp.EOF Then
MsgBox "indice não encontrado"
Else
txt_nome.Text = rstemp("nome")
txt_telefone.Text = rstemp("telefone")
txt_data.Text = rstemp("data")
End If
rstemp.Close
Set rstemp = Nothing
End Sub
Caro DAYKES, tente não fechar sua recordset, e depois use o seguinte comando em um botão:
rstemp.MoveNext -> para ir para frente nos registros
rstemp.MovePrevious -> para ir para trás nos registros
rstemp.MoveFirst - para ir ao primeiro registro da tabela
rstemp.MoveLast -> para ir ao último registro da tabela
espero ter ajudado
rstemp.MoveNext -> para ir para frente nos registros
rstemp.MovePrevious -> para ir para trás nos registros
rstemp.MoveFirst - para ir ao primeiro registro da tabela
rstemp.MoveLast -> para ir ao último registro da tabela
espero ter ajudado
Tópico encerrado , respostas não são mais permitidas