Tema: Error con visual Basic (Adapter.Fill)
Ver Mensaje Individual
  #8 (permalink)  
Antiguo 16/09/2010, 06:20
Avatar de gedarufi
gedarufi
 
Fecha de Ingreso: diciembre-2008
Ubicación: Colombia
Mensajes: 540
Antigüedad: 16 años, 2 meses
Puntos: 22
Respuesta: Error con visual Basic (Adapter.Fill)
Deberia de funcionarte algo como esto

Código C#: 
Ver original
  1. Public Class Form3
  2.  
  3. Private Conexion As OleDb.OleDbConnection
  4. Private Tabla As DataTable
  5. Private Adaptador As OleDb.OleDbDataAdapter
  6. Private Constructor As OleDb.OleDbCommandBuilder
  7. Private Reader As OleDb.OleDbDataReader
  8. Private dv As New DataView
  9. Private ds As New DataSet
  10.  
  11. Dim cmd As New OleDbCommand
  12.  
  13. Private Sub ALUMNOSBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ALUMNOSBindingNavigator.RefreshItems
  14. End Sub
  15.  
  16. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
  17. End Sub
  18.  
  19.  
  20.  
  21. Private Sub Txtcedula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcedula.TextChanged
  22. Dim strAccess As String = "SELECT* FROM ALUMNOS WHERE `Apellidos y Nombres` LIKE 'untexto%'"
  23.  
  24. 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;")
  25. Conexion.Open()
  26.  
  27.  
  28.  
  29. If DataGridView1.Rows.Count > 0 Then
  30.  
  31. ds.Clear()
  32.  
  33. End If
  34.  
  35. //Aqui debes de llamar la función que se encarga de cargar los datos al DataTable
  36.  
  37. DataGridView1.DataSource = ds.Tables("ALUMNOS")
  38. End Sub
  39.  
  40. Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  41. '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.
  42. Me.HorarioTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.Horario)
  43. '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.
  44. Me.TurnoTableAdapter.Fill(Me.Base_de_Datos_de_Alum nosDataSet.Turno)
  45. '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.
  46. Me.DiasTableAdapter.Fill(Me.Base_de_Datos_de_Alumn osDataSet.Dias)
  47. '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.
  48. Me.CURSOSTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CURSOS)
  49. '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.
  50. Me.ESTADOTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.ESTADO)
  51. '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.
  52. Me.CIUDADTableAdapter.Fill(Me.Base_de_Datos_de_Alu mnosDataSet.CIUDAD)
  53. '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.
  54. Me.ALUMNOSTableAdapter.Fill(Me.Base_de_Datos_de_Al umnosDataSet.ALUMNOS)

Saludos