none
Mantenimiento de tablas de access y vb.net RRS feed

  • Pregunta

  • Bueno soy nuevo en la programación y  aquí tengo unas dudas de como realizar el mantenimiento de una tabla de access en visual studio, lo que me han pedido es que no use clases por ahora y estoy realizando los códigos de la siguiente manera :
    -- para visualizar los datos de la tabla:

    Sub conecta3()
    Dim cn As New OleDbConnection
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Alumno\Desktop\PELICULAS 18.07.13\PELICULAS.accdb;Persist Security Info=true;"
    cn.Open()
    Dim da As New OleDbDataAdapter
    Dim cm As New OleDbCommand
    cm.Connection = cn
    cm.CommandType = CommandType.Text
    cm.CommandText = "select * from Peliculas"
    da.SelectCommand = cm
    Dim dt As New DataTable
    da.Fill(dt)
    cn.Close()
    DataGridView1.DataSource = dt

    End Sub

    --para agregar :

    Dim cn As New OleDbConnection
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Alumno\Desktop\PELICULAS 18.07.13\PELICULAS.accdb;Persist Security Info=FALSE;"
    Dim da As New OleDbDataAdapter
    Dim cm As New OleDbCommand

    Try
    cn.Open()
    cm = New OleDb.OleDbCommand
    cm.Connection = cn
    cm.CommandText = "Insert into peliculas(cod_peliculas,titulo,anno,duracion,gener o) values ('" & txtCod.Text & "','" & txtTitulo.Text & "','" & txtAnno.Text & "','" & txtDuracion.Text & "','" & txtGenero.Text & "')"
    cm.ExecuteNonQuery()
    cn.Close()
    MsgBox("Registro Correcto", MsgBoxStyle.Information, "Registo de asistencia")
    Catch ex As Exception
    MsgBox("Error de conexion", MsgBoxStyle.Exclamation, "Registo de asistencia")
    End Try




    End Sub


    y bueno me gustaría que me pudieran ayudar con el código para el botón modificar, se los agradeceria mucho, toda ayuda sera bien recibida
    martes, 23 de julio de 2013 2:56