re

jueves, 26 de marzo de 2015

CONEXION

    Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Mis documentos\hola.mdb; User Id=admin;Password=;")
    Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Alumno", cnn)
    Dim ac As New OleDb.OleDbCommandBuilder(da)
    Dim ds As New DataSet
    Dim nuevo As DataRow



        da.Fill(ds)
        DataGridview1.DataSource = ds.Tables(0)