Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

hugoee

[Ajuda] Mover para o seguinte registo com o seguinte código

Mensagens Recomendadas

hugoee

Boas, podem me dizer se é possivel com este codigo mover par o registo seguinte, anterior, bla bla bla, se sim como ?

        Try
            Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myDb.mdb;"

            Dim SQL As String = "Select * from requisicao  Where [nome] = @nome"

            'Inicia uma ligação à bse de dados
            Using connection As New OleDbConnection(connString)

                ' Define o comando e os parâmetros
                Dim command As New OleDbCommand(SQL, connection)

                ' Indicação dos parâmetros da selecção
                command.Parameters.Add("@nome", OleDbType.VarChar).Value = ListBox1.Text

                ' Abre a ligação e insere o registo
                connection.Open()

                Dim reader As OleDbDataReader = command.ExecuteReader()


           

                Do While reader.Read



                    txtnreq.Text = (reader.Item("n_req"))
                    txtNLivro.Text = (reader.Item("n_livro"))
                    txtTitulo.Text = (reader.Item("titulo"))
                    txtNLeitor.Text = (reader.Item("n_leitor"))
                    txtNomeLeitor.Text = (reader.Item("nome"))
                    dDataRequesicao.Value = (reader.Item("data_req_inicio"))
            


                Loop

                'fecha a conexao
                connection.Close()

            End Using

        Catch ex As Exception
            MessageBox.Show(ex.Message, My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
renafi

Com o datareader não vais conseguir...

Dá uma vista de olhos aqui:

http://www.akadia.com/services/dotnet_databinding.html

Se mesmo assim não conseguires, diz qualquer coisa.


Oracle Certified Professional - AdministraçãoOracle Certified Professional - Pl/sqlMCPD - Microsoft Certified Professional DeveloperMCTS - Microsoft Certified Technology Specialist

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
hugoee

Parece util mas nao vi nada que me podesse ajudar.

Eu sei que não vou longe com  o datareader, por isso tenho isto:

 Dim ds As New DataSet()

    Dim myConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\myDb.mdb;"

    ' Selecção à  tabela "MyTable" em que o campo "username"   será passado através de parâmetros posteriormente
    Dim SQL As String = "SELECT * FROM leitores Order by nome " 'WHERE [nome] = @nome"

    ' Cria uma nova ligação à base de dados
    Dim connection As New OleDbConnection(myConnectionString)

    ' Criação do comando indicando a instrução e a ligação
    Dim command As New OleDbCommand(Sql, connection)



    'criação dataadpter
    Dim da As New OleDbDataAdapter(SQL, connection)


'...........

    Private Sub btnPrimeiraReq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimeiraReq.Click
        Me.BindingContext(Me.ds, "nome").Position = 0

    End Sub

mas não consigo! :S

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
hugoee

  txtnreq.Text = dsRequisicao.Tables(0).Rows(0).Item(0)
        txtNLivro.Text = dsRequisicao.Tables(0).Rows(0).Item(3)
        txtTitulo.Text = dsRequisicao.Tables(0).Rows(0).Item(4)
        counter = 0

Agora tou a usar esse codigo mas é pouco pratico, nao há outra maneira? :S

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.