Recents in Beach

Cómo establecer una conexión con SQL server, agregar y seleccionar datos desde Visual Basic.

Hacer una conexión con SQL Server es muy simple, en este caso será de SQL server 2014 junto a Visual Basic 2017, te dejaré todos los pasos a seguir.


Conexión SQL server con Visual Basic


Lo primero que debemos hacer para crear una conexión con la base de datos, es importar los paquetes de SQL. (Obviando que ya tenemos echa nuestra base de datos, y está lista para que nos conectemos sin inconvenientes)

Imports System.Data.SqlClient

Después vamos a crear una variable tipo SqlConnection, la cual servirá para realizar esta conexión. El nombre puede ser el que tu quieras.

Dim con As SqlConnection

Y seguidamente vamos a poner los datos para que se cree esta conexión, poniendo el servidor (sea local o no), y la base de datos que nos vamos a conectar.

con = New SqlConnection("Data Source=TuComputador\SQLEXPRESS;Initial Catalog=TuBaseDeDatos;Integrated Security=True")

Y ahí tenemos lo suficiente para abrir nuestra conexión, ahora solo nos faltan los comandos para abrirla y cerrarla. Los cuales son:

con.Open() *Abrir

con.Close() *Cerrar

Ingresar datos a nuestra BD en SQL desde Visual.


Para esto debemos tener la conexión que realizamos anteriormente abierta.
Primero debemos crear una variable donde se guardará el comando INSERT correspondiente para insertar nuestros datos en la BD, el cual se hace de la siguiente forma, respetando las comillas y '&' correspondientes, puedes agregarle otros valores de la misma forma.

Dim cadena As String = "INSERT INTO TuTabla VALUES ('" & TuTextBox.Text & "','" & Val(TuTextobx.Text) & "', '" & TuTextbox.Text & "')"

Y después vamos a crear otra variable tipo SqlCommand, donde se guardará el Insert y la conexión a la base de datos, para después ejecutarse.

Dim comando = New SqlCommand(cadena, con) *Cadena es el insert, y con la conexión.

Y ahora vamos a ejecutar ese comando, después de ejecutarlo si no vamos a hacer nada más en esa función, cerramos la conexión con la base de datos.

comando.ExecuteNonQuery() *Ejecuta el INSERT

Codigo completo:
Dim con As SqlConnection
con = New SqlConnection("Data Source=TuPC\SQLEXPRESS;Initial Catalog=TuBD;Integrated Security=True")
con.Open()
Dim cadena As String = "INSERT INTO TuTabla VALUES ('" & TuTextBox.Text & "','" & Val(TuTextBox.Text) & "', '" & TuTextBox.Text & "')"
Dim comando = New SqlCommand(cadena, con)
comando.ExecuteNonQuery()
con.Close()

Seleccionar datos de nuestra BD desde Visual y ingresarlo a un datagridview


Debemos tener la conexión a base de datos abierta.
Primero vamos a hacer una variable cadena como en el código anterior.

Dim cadena As String = "select * from TuTabla" * selecciona todo de TuTabla, se puede seleccionar columnas especificas, poniendo en vez de el asterisco, paréntesis con las columnas.

Después hacemos otra variable para guardar la cadena y la conexión.

Dim comando As New SqlDataAdapter(cadena, con)

Y ahora vamos a crear una variable la cual nos servirá para llenar nuestro DataGridView. Creamos la variable y la llenamos de datos.

Dim ds2 As New DataSet() *Creamos la variable
comando.Fill(ds2) *La cargamos con los datos

Seleccionamos nuestro DataGridView y lo cargamos con los datos guardados en ds2.

DataGridView1.DataSource = ds2.Tables(0) *Cargamos el DataGridView con los datos del Select echo anteriormente.

Código completo:
Dim con As SqlConnection
con = New SqlConnection("Data Source=TuPc\SQLEXPRESS;Initial Catalog=TuBD;Integrated Security=True")
con.Open()
Dim cadena As String = "select * from TuTabla"
Dim comando As New SqlDataAdapter(cadena, con)
Dim ds2 As New DataSet()
comando.Fill(ds2)
DataGridView1.DataSource = ds2.Tables(0)
con.Close()

Código en funcionamiento


INSERT
SELECT


Publicado por: Lucas Benero

¡Cualquier duda ponla en los comentarios!

Otras publicaciones que te pueden gustar:

Los mejores cursos de programación para este 2018
Cómo saber la contraseña del BIOS de una laptop
El impacto de la tecnología en la primera infancia

Publicar un comentario

0 Comentarios