Ver Mensaje Individual
  #2 (permalink)  
Antiguo 12/12/2004, 06:58
Avatar de freegirl
freegirl
Colaborador
 
Fecha de Ingreso: octubre-2003
Ubicación: Catalonia
Mensajes: 4.334
Antigüedad: 20 años, 7 meses
Puntos: 156
bueno, dejo el código por si alguien ve algún error:


Cita:
Dim sqlString As String
Dim dataAdapter As OleDb.OleDbDataAdapter
Dim oConexion As New OleDb.OleDbConnection(cl.CONEXION)

sqlString = "SELECT * FROM clientes"
CGrid.ClearTableStyles(Me.DataGrid1)
Dim dt As New DataTable("dt")
Try
'Create Connection
oConexion.Open()
'Create DataAdapter to obtain data
dataAdapter = New OleDb.OleDbDataAdapter(sqlString, oConexion)
'Fill the DataTable
dt = New DataTable("dt")
dt.Clear()
dataAdapter.Fill(dt)
Catch ex As Exception
MessageBox.Show("Error Accessing Database:" & Environment.NewLine & ex.ToString)
Exit Sub
Finally
'Close the connection
oConexion.Close()
End Try
Me.DataGrid1.DataSource = dt
Me.DataGrid1.Refresh()