Antes q todo tengan un cordial saludo de mi parte este me dirijo a la comunidad de foros del web por que tengo problemas con una aplicacion q estoy desarrolando en Visual Basic 2008. bueno al grano hay una funcion q tiene en programa q es el de buscar alumnos en una base de datos de access y mostar la busqueda en un dataview pero el problema es q aja el programa se compila sin error pero cuando voy a insertar la busqueda en el texbox me manda a el codigo en visual y me arroja un error el cual es el siguiente "Object reference not set to an instance of an object." en español es "Referencia a objeto no establecida como instancia de un objeto" ese error sale exaptamente en esta linea de codigo
ds.Tables("ALUMNOS").Clear()... pero les colocare el codigo completo para q se les haga mas facil haber si pueden ayudarme se los agradeceria mucho..
Public Class Form3
Private Conexion As OleDb.OleDbConnection
Private Tabla As DataTable
Private Adaptador As OleDb.OleDbDataAdapter
Private Constructor As OleDb.OleDbCommandBuilder
Private Reader As OleDb.OleDbDataReader
Private dv As New DataView
Private ds As New DataSet
Dim cmd As New OleDbCommand
Private Sub ALUMNOSBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ALUMNOSBindingNavigator.RefreshItems
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub Txtcedula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcedula.TextChanged
Dim strAccess As String = "SELECT*FROM ALUMNOS WHERE Apellidos y Nombres" & "like" & "'" & Txtcedula.Text & "%" & "'"
Conexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrator\Desktop\ControlAcademicoFin al\ControlAcademicoFinal\Base de Datos de Alumnos.mdb;")
Conexion.Open()
If DataGridView1.Rows.Count > 0 Then
ds.Tables("ALUMNOS").Clear()
End If
Adaptador.Fill(ds, "Apellidos y Nombres")
DataGridView1.DataSource = ds.Tables("Apellidos y Nombres")
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Horario' Puede moverla o quitarla según sea necesario.
Me.HorarioTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.Horario)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Turno' Puede moverla o quitarla según sea necesario.
Me.TurnoTableAdapter.Fill(Me.Base_de_Datos_de_Alum nosDataSet.Turno)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.Dias' Puede moverla o quitarla según sea necesario.
Me.DiasTableAdapter.Fill(Me.Base_de_Datos_de_Alumn osDataSet.Dias)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.CURSOS' Puede moverla o quitarla según sea necesario.
Me.CURSOSTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CURSOS)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.ESTADO' Puede moverla o quitarla según sea necesario.
Me.ESTADOTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.ESTADO)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.CIUDAD' Puede moverla o quitarla según sea necesario.
Me.CIUDADTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CIUDAD)
'TODO: esta línea de código carga datos en la tabla 'Base_de_Datos_de_AlumnosDataSet.ALUMNOS' Puede moverla o quitarla según sea necesario.
Me.ALUMNOSTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.ALUMNOS)
End Sub
End Class