0% encontró este documento útil (0 votos)
7 vistas3 páginas

Parámetros en SQL Server con VB.NET

Este documento describe cómo usar parámetros en consultas SQL desde Visual Basic.NET. Explica cómo agregar parámetros a comandos SQL y ejecutar operaciones de inserción, actualización y eliminación de datos en una base de datos. También muestra cómo navegar entre registros usando botones de navegación y enlazar controles a un conjunto de datos.

Cargado por

jrcr1
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
0% encontró este documento útil (0 votos)
7 vistas3 páginas

Parámetros en SQL Server con VB.NET

Este documento describe cómo usar parámetros en consultas SQL desde Visual Basic.NET. Explica cómo agregar parámetros a comandos SQL y ejecutar operaciones de inserción, actualización y eliminación de datos en una base de datos. También muestra cómo navegar entre registros usando botones de navegación y enlazar controles a un conjunto de datos.

Cargado por

jrcr1
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

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

También podría gustarte