15/09/2010, 21:39
|
| | Fecha de Ingreso: septiembre-2010
Mensajes: 14
Antigüedad: 14 años, 2 meses Puntos: 0 | |
Respuesta: Error con visual Basic (Adapter.Fill) gracias gnzsoloyo con la correcion quedo asi mi codigo pero igual cuando introduzco un valor en el textbox no me muestra resultados el datawiev... :s ¿? esto me tiene mal jeje es q debo entregar rapido ese programa..
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 'untexto%'"
Conexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrator\My Documents\programas de visual\ControlAcademicoFinal\ControlAcademicoFinal \Base de Datos de Alumnos.mdb;")
Conexion.Open()
If DataGridView1.Rows.Count > 0 Then
ds.Clear()
End If
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
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
End Class |