VISUAL BASIC.
NET CON PARAMETROS EN SQL SERVER 2008
Uso de parmetros desde Visual [Link]
NOTA:
1. Coloca un SqlDataAdapter1, un sqlconnection1 y el DataSet11.
2. Enlazar los controles al DataSet11
Imports [Link]
Public Class Form1
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]()
[Link](DataSet11)
End Sub
Private Sub cmdInsertar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
Dim sentencia As String
[Link]()
sentencia = "Insert into Cliente values (@IDCliente, @Nombre, @Apellido,@Direccion,@Telefono,
@Email)"
Dim comando As New SqlCommand(sentencia, SqlConnection1)
[Link]("IDCliente", [Link])
[Link]("Nombre", [Link])
[Link]("Apellido", [Link])
[Link]("Direccion", [Link])
[Link]("Telefono", [Link])
[Link]("Email", [Link])
Dim t As Integer
t = CInt([Link]())
[Link]()
End Sub
PROFESOR: JOSE RAUL CASTILLO R.
Pgina 1
VISUAL [Link] CON PARAMETROS EN SQL SERVER 2008
Private Sub cmdActualizar_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim sentencia As String
[Link]()
sentencia = "Update Cliente set IDCliente= @IDCliente, Nombre=@Nombre,
Apellido=@Apellido,Direccion= @Direccion,Telefono=@Telefono, Email= @Email where IDCliente=
@IDCliente"
Dim comando As New SqlCommand(sentencia, SqlConnection1)
[Link]("IDCliente", [Link])
[Link]("Nombre", [Link])
[Link]("Apellido", [Link])
[Link]("Direccion", [Link])
[Link]("Telefono", [Link])
[Link]("Email", [Link])
Dim t As Integer
t = [Link]()
[Link]()
End Sub
Private Sub cmdEliminar_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link]()
Dim sentencia As String
sentencia = "Delete from Cliente where IDCliente= @IDCliente"
Dim comando As New SqlCommand(sentencia, SqlConnection1)
[Link]("IDCliente", [Link])
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Dim r As Integer
r = [Link]()
[Link]()
End Sub
Private Sub cmdNuevo_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
PROFESOR: JOSE RAUL CASTILLO R.
Pgina 2
VISUAL [Link] CON PARAMETROS EN SQL SERVER 2008
BOTONES DE NAVEGACIN
Private Sub cmdUltimo_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link](DataSet11, "Cliente").Position = [Link](DataSet11, "Cliente").Count - 1
End Sub
Private Sub cmdAnterior_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link](DataSet11, "Cliente").Position -= 1
End Sub
Private Sub cmdPrimero_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link](DataSet11, "Cliente").Position = 0
End Sub
Private Sub cmdSiguiente_Click(ByVal sender As [Link], ByVal e As [Link]) Handles
[Link]
[Link](DataSet11, "Cliente").Position += 1
End Sub
PROFESOR: JOSE RAUL CASTILLO R.
Pgina 3