Leiste el protocolo?
Querés que te hagamos la tarea?

No es tan facil.

Lo lamento, no te voy a regalar la nota

MODIFIQUE UN PROYECTO DE UN USUARIO DEL YOUTUBE SI LO VE KE NO SE MOLESTE


HAY ALGUNAS COSAS PARA ARREGLAR PERO =FUNCIONA

aki el link

http://www.mediafire.com/?a6gq1o1qwbj5vd2





Imports System.Data.OleDb
Public Class Form1
Dim N As Integer = 0


'aki va la ruta donde esta tu baseeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee'

Dim CN As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=D:agenda.accdb&quot
'CREAREMOS UN PROCEDIMIENTO PARA MOSTRAR LA TABLA
Sub MOSTRAR()
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM agenda", CN)
Dim DS As New DataSet
DA.Fill(DS, "agenda&quot
DataGridView1.DataSource = DS.Tables("agenda&quot
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'AL MOMENTO Q CARGE EL FORM1 MUESTRE...
MOSTRAR()
CARGAR()
BLOQUEAR()

End Sub
Sub CARGAR()
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM agenda", CN)
Dim DS As New DataSet
DA.Fill(DS, "agenda&quot
CBOCOD.DataSource = DS.Tables("agenda&quot
CBOCOD.DisplayMember = "codigo"
End Sub

Sub LIMPIAR()

TXTDNI.Clear()
TXTNOM.Clear()
txtape.Text = ""
End Sub
Sub BLOQUEAR()
BTNBUSCAR.Enabled = True
BTNNEW.Enabled = True
BTNGUARDAR.Enabled = False
BTNMODIFIC.Enabled = True
BTNELIMIN.Enabled = True
BTNCANCELAR.Enabled = False
End Sub
Sub DEBLOQUEAR()
BTNBUSCAR.Enabled = False
BTNNEW.Enabled = False
BTNGUARDAR.Enabled = True
BTNMODIFIC.Enabled = False
BTNELIMIN.Enabled = False
BTNCANCELAR.Enabled = True
End Sub
Sub BUSCAR_COD()
Dim CMD As New OleDb.OleDbCommand("SELECT * FROM agenda WHERE codigo='" & CBOCOD.Text & "'", CN)
Dim DR As OleDb.OleDbDataReader

CN.Open()
DR = CMD.ExecuteReader

If DR.Read Then

TXTNOM.Text = DR(1)
TXTDNI.Text = DR(2)
'TXTDNI.Text = DR(3)

Else
MsgBox("ERROR&quot
End If
CN.Close()
End Sub
Sub NUEVO()
Dim CMD As New OleDb.OleDbCommand("INSERT INTO agenda VALUES('" & CBOCOD.Text & "','" & TXTNOM.Text & "','" & txtape.Text & "')", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
MOSTRAR()
MsgBox("REGISTRO AGREGADO&quot
End Sub
Sub MODIFICAR()
Dim CMD As New OleDb.OleDbCommand("UPDATE agenda SET codigo='" & CBOCOD.Text & "',descripcion='" & TXTNOM.Text & "',fecha='" & txtape.Text & "' WHERE codigo='" & CBOCOD.Text & "'", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
MOSTRAR()
MsgBox("REGISTRO ACTUALIZADO&quot
End Sub
Private Sub BTNBUSCAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBUSCAR.Click
BUSCAR_COD()
End Sub

Private Sub BTNNEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNNEW.Click

DEBLOQUEAR()
LIMPIAR()
N = 1
End Sub

Private Sub BTNMODIFIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMODIFIC.Click
DEBLOQUEAR()
N = 2
End Sub

Private Sub BTNGUARDAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGUARDAR.Click
If N = 1 Then
NUEVO()
ElseIf N = 2 Then
MODIFICAR()
End If
BLOQUEAR()
LIMPIAR()
CARGAR()
N = 0
End Sub

Private Sub BTNCANCELAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCANCELAR.Click
BLOQUEAR()
LIMPIAR()
N = 0
End Sub

Private Sub BTNELIMIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNELIMIN.Click
Dim CMD As New OleDb.OleDbCommand("DELETE FROM agenda WHERE CODigo='" & CBOCOD.Text & "'", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
LIMPIAR()
CARGAR()
MOSTRAR()
MsgBox("EL REGISTRO SE A ELIMINADO&quot
End Sub
End Class

perdona amigo, ahora no puedo ayudarte, podria pero hasta las 3pm, de todos modos me pasare a dejar el codigo, que mal por el de arriba, lastima, la finalidad es ayudarse, aunque sea para un examen, pero cada quien, echale ganas bro, estudiale o buscate algunos manuales en la red

MODIFIQUE UN PROYECTO DE UN USUARIO DEL YOUTUBE SI LO VE KE NO SE MOLESTE


HAY ALGUNAS COSAS PARA ARREGLAR PERO =FUNCIONA

aki el link

http://www.mediafire.com/?a6gq1o1qwbj5vd2





Imports System.Data.OleDb
Public Class Form1
Dim N As Integer = 0


'aki va la ruta donde esta tu baseeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee'

Dim CN As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=D:agenda.accdb&quot
'CREAREMOS UN PROCEDIMIENTO PARA MOSTRAR LA TABLA
Sub MOSTRAR()
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM agenda", CN)
Dim DS As New DataSet
DA.Fill(DS, "agenda&quot
DataGridView1.DataSource = DS.Tables("agenda&quot
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'AL MOMENTO Q CARGE EL FORM1 MUESTRE...
MOSTRAR()
CARGAR()
BLOQUEAR()

End Sub
Sub CARGAR()
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM agenda", CN)
Dim DS As New DataSet
DA.Fill(DS, "agenda&quot
CBOCOD.DataSource = DS.Tables("agenda&quot
CBOCOD.DisplayMember = "codigo"
End Sub

Sub LIMPIAR()

TXTDNI.Clear()
TXTNOM.Clear()
txtape.Text = ""
End Sub
Sub BLOQUEAR()
BTNBUSCAR.Enabled = True
BTNNEW.Enabled = True
BTNGUARDAR.Enabled = False
BTNMODIFIC.Enabled = True
BTNELIMIN.Enabled = True
BTNCANCELAR.Enabled = False
End Sub
Sub DEBLOQUEAR()
BTNBUSCAR.Enabled = False
BTNNEW.Enabled = False
BTNGUARDAR.Enabled = True
BTNMODIFIC.Enabled = False
BTNELIMIN.Enabled = False
BTNCANCELAR.Enabled = True
End Sub
Sub BUSCAR_COD()
Dim CMD As New OleDb.OleDbCommand("SELECT * FROM agenda WHERE codigo='" & CBOCOD.Text & "'", CN)
Dim DR As OleDb.OleDbDataReader

CN.Open()
DR = CMD.ExecuteReader

If DR.Read Then

TXTNOM.Text = DR(1)
TXTDNI.Text = DR(2)
'TXTDNI.Text = DR(3)

Else
MsgBox("ERROR&quot
End If
CN.Close()
End Sub
Sub NUEVO()
Dim CMD As New OleDb.OleDbCommand("INSERT INTO agenda VALUES('" & CBOCOD.Text & "','" & TXTNOM.Text & "','" & txtape.Text & "')", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
MOSTRAR()
MsgBox("REGISTRO AGREGADO&quot
End Sub
Sub MODIFICAR()
Dim CMD As New OleDb.OleDbCommand("UPDATE agenda SET codigo='" & CBOCOD.Text & "',descripcion='" & TXTNOM.Text & "',fecha='" & txtape.Text & "' WHERE codigo='" & CBOCOD.Text & "'", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
MOSTRAR()
MsgBox("REGISTRO ACTUALIZADO&quot
End Sub
Private Sub BTNBUSCAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBUSCAR.Click
BUSCAR_COD()
End Sub

Private Sub BTNNEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNNEW.Click

DEBLOQUEAR()
LIMPIAR()
N = 1
End Sub

Private Sub BTNMODIFIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMODIFIC.Click
DEBLOQUEAR()
N = 2
End Sub

Private Sub BTNGUARDAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGUARDAR.Click
If N = 1 Then
NUEVO()
ElseIf N = 2 Then
MODIFICAR()
End If
BLOQUEAR()
LIMPIAR()
CARGAR()
N = 0
End Sub

Private Sub BTNCANCELAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCANCELAR.Click
BLOQUEAR()
LIMPIAR()
N = 0
End Sub

Private Sub BTNELIMIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNELIMIN.Click
Dim CMD As New OleDb.OleDbCommand("DELETE FROM agenda WHERE CODigo='" & CBOCOD.Text & "'", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
LIMPIAR()
CARGAR()
MOSTRAR()
MsgBox("EL REGISTRO SE A ELIMINADO&quot
End Sub
End Class