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

Asi lo yo abro un archivo access y me funciona muy bien

Private Sub Lee_Carta()
Dim MyConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Loteria\Tablas.mdb"
Dim ds As New DataSet()
Dim da As New OleDbDataAdapter("SELECT top 2000 * FROM Carta", MyConnectionString)
Try
da.Fill(ds, "dt")
Catch ex As Exception
MessageBox.Show("Operation failed: " & ex.ToString(), Application.ProductName & " - Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return
End Try
DGVTabla.ColumnHeadersDefaultCellStyle.Font = New Font("Tahoma", 9, FontStyle.Bold, GraphicsUnit.Point)
DGVTabla.ColumnHeadersDefaultCellStyle.BackColor = SystemColors.ControlDark
DGVTabla.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single
DGVTabla.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DGVTabla.DefaultCellStyle.Font = New Font("Tahoma", 8, FontStyle.Regular, GraphicsUnit.Point)
DGVTabla.DefaultCellStyle.BackColor = Color.Empty
DGVTabla.AlternatingRowsDefaultCellStyle.BackColor = SystemColors.ControlLight
DGVTabla.CellBorderStyle = DataGridViewCellBorderStyle.Single
DGVTabla.GridColor = SystemColors.ControlDarkDark
DGVTabla.DataSource = ds
DGVTabla.DataMember = "dt"
DGVTabla.Columns(DGVTabla.Columns.Count - 1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DGVTabla.AutoResizeColumns(DataGridViewAutoSizeCol umnsMode.AllCells)
DGVTabla.AllowUserToAddRows = False
DGVTabla.AllowUserToDeleteRows = False
DGVTabla.ReadOnly = True

End Sub