CONTROLE NAVAGACAO
como faria para fazer os botoes de navegacao(primeiro,anterior, proximo ultimo) usando ADO e sql?
sem akilo de recorset.moveFirst e bla blabla
desde ja Obrigado
sem akilo de recorset.moveFirst e bla blabla
desde ja Obrigado
por que não usar o RS.MoveNext ,RS.moveLast ....
do until rs.eof
' seu comando para proximo ...
loop
' seu comando para proximo ...
loop
do until rs.eof
Dim rsprocurar As New ADODB.Recordset
strSQL = "select * from fornecedor where codigo=" & mskcodigo.Text + 1
mskcodigo.Text = mskcodigo.Text + 1
Set rsprocurar = conexao.Execute(strSQL)
cmdConsultar_Click
Set rsprocurar = Nothing
loop
Valew
Dim rsprocurar As New ADODB.Recordset
strSQL = "select * from fornecedor where codigo=" & mskcodigo.Text + 1
mskcodigo.Text = mskcodigo.Text + 1
Set rsprocurar = conexao.Execute(strSQL)
cmdConsultar_Click
Set rsprocurar = Nothing
loop
Valew
Tópico encerrado , respostas não são mais permitidas