Ver Mensaje Individual
  #24 (permalink)  
Antiguo 16/09/2010, 17:04
EmanuelTorres
 
Fecha de Ingreso: septiembre-2010
Mensajes: 14
Antigüedad: 14 años, 5 meses
Puntos: 0
Respuesta: Error con visual Basic (Adapter.Fill)

Private Sub Txtcedula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcedula.TextChanged
Dim strAccess As String
Dim Da As OleDbDataAdapter
Dim MyconnectionString As String
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\Administrador\Mis documentos\Descargas\ControlAcademicoFinal\Control AcademicoFinal\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 = "dv"
DataGridView1.Columns(DataGridView1.Columns.Count - 1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView1.AutoResizeColumns(DataGridViewAutoSi zeColumnsMode.AllCells)
DataGridView1.AllowUserToAddRows = False
DataGridView1.AllowUserToDeleteRows = False
DataGridView1.ReadOnly = True

End Sub

Amigo ahora me muestra una cuadro de dialogo q me dice q tengo errores en la seleccion de busqueda..