Ok, te pongo el código, ya solo modificalo a tus necesidades:
Dim cnn As SqlClient.SqlConnection
Dim cmd As SqlClient.SqlCommand
Dim dr As DataRow
Dim conexion As String = "Data Source=.;Initial Catalog=TUBD;Integrated Security=true"
Y ya sea que en un evento de dar clic a un boton(Insertar) :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cnn = New SqlClient.SqlConnection(conexion)
cnn.Open()
cmd = New SqlClient.SqlCommand("spAltaCliente", cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@prmId", SqlDbType.Int).Value = Convert.ToInt16(TextBox1.Text)
cmd.Parameters.Add("@prmNombre", SqlDbType.NVarChar).Value = TextBox2.Text
cmd.Parameters.Add("@prmReferencia", SqlDbType.NVarChar).Value = TextBox3.Text
cmd.Parameters.Add("@prmTelefono", SqlDbType.NVarChar).Value = TextBox4.Text
cmd.ExecuteNonQuery()
MessageBox.Show("Cliente Activado")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Eliminar:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cnn = New SqlClient.SqlConnection(conexion)
cnn.Open()
cmd = New SqlClient.SqlCommand("spEliminaCliente", cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@prmid", SqlDbType.Int).Value = Convert.ToInt16(TextBox1.Text)
cmd.ExecuteNonQuery()
MessageBox.Show("Cliente ELIMINADO")
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Actualizar:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
cnn = New SqlClient.SqlConnection(conexion)
cnn.Open()
cmd = New SqlClient.SqlCommand("spModificaCliente", cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@prmId", SqlDbType.Int).Value = Convert.ToInt16(TextBox1.Text)
cmd.Parameters.Add("@prmNombre", SqlDbType.NVarChar).Value = TextBox2.Text
cmd.ExecuteNonQuery()
MessageBox.Show("Cliente Modificado")
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Consultar:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
cnn = New SqlClient.SqlConnection(conexion)
cnn.Open()
cmd = New SqlClient.SqlCommand("spConsulta", cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@prmId", SqlDbType.Int).Value = Convert.ToInt16(TextBox1.Text)
cmd.Parameters.Add("@prmNombre", SqlDbType.NVarChar).Value = TextBox2.Text
'TextBox1.Text = DS.Tables(0).Rows.Count().ToString() & " Rows Found!"
TextBox2.Text = cmd.Parameters(1).Value '& " Rows Found"
'TextBox1.Text = cmd.Container.Components.CopyTo("@prmId", SqlDbType.Int).Value
'TextBox2.Text = cmd.Parameters.Add("@prmNombre", SqlDbType.NVarChar).Value
'TextBox3.Text = cmd.Parameters.Add("@prmReferencia", SqlDbType.NVarChar).Value
'TextBox4.Text = cmd.Parameters.Add("@prmTelefono", SqlDbType.NVarChar).Value
cmd.ExecuteNonQuery()
End Sub
Los Stored Procedures, para que los ejecutes en SQL:
Create PROCEDURE [dbo].[spAltaCliente]
@prmId int,
@prmNombre nvarchar(50),
@prmReferencia nvarchar(100),
@prmTelefono nvarchar(15)
AS
INSERT INTO CLIENTES (IDCLI,NOMBRE,REFERENCIA,TELEFONO)
VALUES (@prmId,@prmNombre,@prmReferencia,@prmTelefono)
----------------
Create PROCEDURE [dbo].[spConsulta]
@prmid int,
@prmNombre char
AS
SELECT IDCLI, NOMBRE, REFERENCIA, TELEFONO
FROM CLIENTES
WHERE IDCLI Like @prmid or NOMBRE like @prmNombre
---------
Create PROCEDURE [dbo].[spEliminaCliente]
@prmId int
AS
DELETE FROM CLIENTES WHERE
IDCLI=@prmId
--------
Create PROCEDURE [dbo].[spModificaCliente]
@prmId int,
@prmNombre nvarchar(40)
AS
UPDATE clientes SET
nombre=@prmNombre WHERE
IDCLI=@prmId
Salu2 y ojala te sirva.....
