none
Boton avanzar y retroceder en vb.net con base de datos en un modulo en .net RRS feed

  • Pregunta

  • ya tiene referencia a ado 2.8

    ---modulo---

    Module base
    Public Dbase As ADODB.Connection
    Public Aut As
    ADODB.Recordset
    Public Cli As ADODB.Recordset
    Public sis As
    ADODB.Recordset
    Public Sub Main()
    Dim File As String

    Dbase = New
    ADODB.Connection
    Dbase.CursorLocation =
    ADODB.CursorLocationEnum.adUseClient

    File = "C:\Documents and
    Settings\Clases\Escritorio\Autolavado.md…


    File =
    My.Application.Info.DirectoryPath &
    "\Autolavado.Mdb"


    Dbase.Open("PROVIDER=Microsoft.Jet.OLEDB… Source="
    & File & ";")

    Cli = New ADODB.Recordset
    Aut = New
    ADODB.Recordset
    sis = New ADODB.Recordset

    Cli.Open("Select Nombre,
    Apellido, Cedula, Direccion, Correo from Clientes", Dbase,
    ADODB.CursorTypeEnum.adOpenStatic,
    ADODB.LockTypeEnum.adLockOptimistic)
    Aut.Open("Select Marca, Modelo, Color,
    Año, Placa from Autos", Dbase, ADODB.CursorTypeEnum.adOpenStatic,
    ADODB.LockTypeEnum.adLockOptimistic)
    sis.Open("Select Id, Pla, Ced from
    sisref", Dbase, ADODB.CursorTypeEnum.adOpenStatic,
    ADODB.LockTypeEnum.adLockOptimistic)
    End Sub
    End Module

    ---app---

    Sub ve()

    If Cli.AbsolutePosition > 0 Then
    ToolStripLabel1.Name =
    Cli.AbsolutePosition
    ToolStripLabel3.Name = Cli.RecordCount
    TextBox1.Text
    = Cli.Fields("Nombre").ToString
    TextBox2.Text =
    Cli.Fields("Apellido").ToString
    TextBox3.Text =
    Cli.Fields("Cedula").ToString
    TextBox4.Text = Cli.Fields("Direccion").ToString
    TextBox5.Text =
    Cli.Fields("Correo").ToString
    Else
    MsgBox("Registro no encontrado o no
    existe mas registros por mostrar ")
    End If
    End Sub

    boton siguiente

    If Not cli.EOF Then*
    cli.MoveNext
    Call ve
    end if
    end sub

    no me marca error sin embargo cuando se ejecuta y presiono el boton me aparece este error:

    * Referencia a objeto no establecida como instancia de un objeto.

    y no entiendo como resolver este problema

    miércoles, 5 de septiembre de 2012 14:45

Todas las respuestas

  • pero no te animas a aprender ado.net ? digo si estas con vb.net seria lo recomendable

    ademas no es buena idea ir moviendose de a uno los registros, para el usuario ese es un mal diseño

    deberias listar listar en algun grid los registros que se puede editar, proporcionando filtros y asi la persona elige puntualmente cual quiere trabajar

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    miércoles, 5 de septiembre de 2012 17:59
  • yo no tengo problemas con aprender ado .net pero no se nada, el caso es que es un programa sencillo un datagrid si bien visualmente es mejor no busco crear filtros avanzados (solo busqueda principal)
    jueves, 6 de septiembre de 2012 21:21