Navegar entre registros
Publicado por Javier (22 intervenciones) el 06/05/2015 19:52:16
Hola gente:
Alguno me podría decir qué estoy haciendo mal en este programa.
Estoy tratando de navegar entre registros en una tabla pero me da error en el punto donde lo puse abajo.
Saludos y gracias de antemano,
Alguno me podría decir qué estoy haciendo mal en este programa.
Estoy tratando de navegar entre registros en una tabla pero me da error en el punto donde lo puse abajo.
Saludos y gracias de antemano,
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Imports System.Data.OleDb
Public Class Form1
Public cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Solinme\Documents\Visual Studio 2013\Projects\SCRegueyra\SCRegueyra\BaseDeDatos\SCotizaciones.accdb")
Public ds As DataSet
Private da As OleDbDataAdapter
Private iposicion As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
Dim da As New OleDbDataAdapter("select * from SC_DetalleSolicitudCotizacion", cn)
cn.Open()
da.Fill(ds, "SC_DetalleSolicitudCotizacion")
cn.Close()
Me.iposicion = 0
Me.cargardatos()
End Sub
Private Sub cargardatos()
Dim drow As DataRow
drow = Me.ds.Tables(0).Rows(Me.iposicion) <<<<<<<Acá da el error
Me.txtcodalu.Text = drow("C1")
'Me.txtnomalu.Text = drow("nomalu")
'Me.txtapelalu.Text = drow("apelalu")
'Me.txtedadalu.Text = drow("edadalu")
'Me.lblregistro.Text = "Registro" & Me.iposicion + 1 & " de " & Me.ds.Tables(0).Rows.Count
End Sub
Private Sub btnPrimero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimero.Click
Me.iposicion = 0
Me.cargardatos()
End Sub
Private Sub btnanterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnanterior.Click
If Me.iposicion = 0 Then
MessageBox.Show("Primer registro")
Else
Me.iposicion -= 1
Me.cargardatos()
End If
End Sub
Private Sub btnsiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsiguiente.Click
If Me.iposicion = Me.ds.Tables(0).Rows.Count - 1 Then
MessageBox.Show("ultimo registro")
Else
Me.iposicion += 1
Me.cargardatos()
End If
End Sub
Private Sub Btnultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnultimo.Click
Me.iposicion = (Me.ds.Tables(0).Rows.Count - 1)
Me.cargardatos()
End Sub
End Class
Valora esta pregunta
0
