Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
hugoee

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

Recommended Posts

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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.