MANET
13 de Agosto del 2004

Imports System.Data.OleDb

Public Class Form1
Inherits System.Windows.Forms.Form

Public Cnn As OleDbConnection

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
EjecutarConsulta("AgregarCliente")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
EjecutarConsulta("ModificarCliente")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
EjecutarConsulta("EliminarCliente")

End Sub
Public Sub EjecutarConsulta(ByVal NombreConsulta As String)
Dim cmd As OleDb.OleDbCommand

'Me conecto a la base
Conectar()
'Establezo cual es la consulta a ejecutar
cmd = New OleDb.OleDbCommand(NombreConsulta, Cnn)
'Avisamos que vamos a ejecutar una "Consulta"
cmd.CommandType = CommandType.StoredProcedure
'Cargo los valores de los campos
CargarParametros(cmd.Parameters)
'Ejecuto el comando
cmd.ExecuteNonQuery() 'Excepción no controlada del tipo 'System.Data.OleDb.OleDbException' en system.data.dll 'ESTE ERROR ME SALE AL QUERER AGREGAR, MODIFICAR O ELIMINAR
'Me desconecto de la base
Desconectar()
End Sub

Public Sub CargarParametros(ByRef Parametros As OleDb.OleDbParameterCollection)
'Cargo los valores de los parametros
With Parametros
.Add("paramNumCliente", TextBox1.Text)
.Add("paramRazonSocial", TextBox2.Text)
.Add("paramDomicilio", TextBox3.Text)
End With
End Sub
Public Sub Conectar()
Cnn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Prueba.mdb")
Cnn.Open()
End Sub

Public Sub Desconectar()
Cnn.Close()
End Sub
End Class

ESPERO QUE ME AYUDEN