Ver Mensaje Individual
  #21 (permalink)  
Antiguo 16/09/2010, 15:55
winexim
 
Fecha de Ingreso: marzo-2007
Mensajes: 74
Antigüedad: 17 años, 2 meses
Puntos: 0
Respuesta: Error con visual Basic (Adapter.Fill)

Te modifique tu datagridview al mio que si esta funcionando y no tengo problema.

este
"SELECT * FROM ALUMNOS WHERE [Apellidos y Nombres] like '" & Txtcedula.Text & "'%"

copialo del tuyo por que al escribir en el foro te pone espacios y te quita espacios.

y este tambien:

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrator\Desktop\ControlAcademicoFin al\ControlAcademicoFinal\Base de Datos de Alumnos.mdb;"

copialo del tuyo por los espacios que te agrega.





El codigo del procedimiento

Private Sub Txtcedula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcedula.TextChanged

quedaria asi


Dim strAccess As String
Dim Da As OleDbDataAdapter
Try
strAccess = "SELECT * FROM ALUMNOS WHERE [Apellidos y Nombres] like '" & Txtcedula.Text & "'%"
MyConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrator\Desktop\ControlAcademicoFin al\ControlAcademicoFinal\Base de Datos de Alumnos.mdb;"
Da = New OleDbDataAdapter(strAccess, MyConnectionString)
Da.Fill(ds, "Alumnos")
DataGridView1.DataSource = ds.Tables("Alumnos")

Catch ex As Exception
MessageBox.Show("Operation failed: " & ex.ToString(), Application.ProductName & " - Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End Try
DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font("Tahoma", 9, FontStyle.Bold, GraphicsUnit.Point)
DataGridView1.ColumnHeadersDefaultCellStyle.BackCo lor = SystemColors.ControlDark
DataGridView1.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
DataGridView1.ColumnHeadersDefaultCellStyle.Alignm ent = DataGridViewContentAlignment.MiddleCenter
DataGridView1.DefaultCellStyle.Font = New Font("Tahoma", 8, FontStyle.Regular, GraphicsUnit.Point)
DataGridView1.DefaultCellStyle.BackColor = Color.Empty
DataGridView1.AlternatingRowsDefaultCellStyle.Back Color = SystemColors.ControlLight
DataGridView1.CellBorderStyle = DataGridViewCellBorderStyle.Single
DataGridView1.GridColor = SystemColors.ControlDarkDark
DataGridView1.DataSource = ds
DataGridView1.DataMember = "dt"
DataGridView1.Columns(DataGridView1.Columns.Count - 1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView1.AutoResizeColumns(DataGridViewAutoSi zeColumnsMode.AllCells)
DataGridView1.AllowUserToAddRows = False
DataGridView1.AllowUserToDeleteRows = False
DataGridView1.ReadOnly = True