Conectar a SQL server con visual basic.
net y mostrar
datos
Un pequeño ejemplo de cómo conectar con sql server y mostrar datos con dataset
mediante una consulta select. Así podemos hacer un fácil SQL Database desde Forms
con VB & SQL (Abajo del link para descargar el ejemplo en solución de visual studio)
Lo primero es abrir su nuevo proyecto con visual basic, agregar al formulario un Boton
y un DataGridView, después en la misma ventana de diseño damos un doble clic sobre
el Button con el de que nos muestre la pantalla de código.
Primero que nada declaramos los Imports, esto lo declaramos al inicio de todo el
codigo:
(Por favor si te gusto esto da en la columna derecha superior en esta página dale clic en
+1)
Imports [Link]
Imports [Link]
Posteriormente dentro del evento Click del button iniciaremos con el código que
conectara y mostrara los datos:
Primero creamos una variable llamada cnn del tipo conexión de sql y asignaremos
como valor la cande a de conexion a nuestra base de datos de SQL Server:
Dim cnn As New
SqlConnection("Server=MiServidor;uid=sa;pwd=123456;database=MiDB")
Despues definimos una variable de tipo Sql Adapter a la cual signaremos como valor la
cadena de consulta sql que queramos ejecutar, es decir la Query, a esta cadena la
llamaremos da:
Dim da As New SqlDataAdapter("select * from optimas", cnn)
Definimos otra variabla llamada ds del tipo DataSet:
1 Dim ds As New DataSet
y posteriormente llamamos a los datos:
[Link](ds)
[Link] = [Link](0)
El método Fill, se encarga de crear las tablas, y darle los nombres de columnas y los
tipos de dato que almacenarán esas columnas, así como de rellenar las filas con los
datos en función del resultado obtenido con la consulta SQL creada para la propiedad
SelectCommand. De este modo rellena el DataSet indicado y sus DataTable.
Todo el odigo compelto:
1
2
Imports [Link]
3
Imports [Link]
4
5
Public Class Form1
6
7
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
8
[Link]) Handles [Link]
9
Dim cnn As New SqlConnection("Server=valp-
1
maple01;uid=sa;pwd=messrv;database=Wasp")
0
Dim da As New SqlDataAdapter("select * from optimas", cnn)
1
Dim ds As New DataSet
1
[Link](ds)
1
[Link] = [Link](0)
2
End Sub
1
3
End Class
1
4
El método Fill, se encarga de crear las tablas, y darle los nombres de columnas y los
tipos de dato que almacenarán esas columnas, así como de rellenar las filas con los
datos en función del resultado obtenido con la consulta SQL creada para la propiedad
SelectCommand. De este modo rellena el DataSet indicado y sus DataTable. Los tipos
de datos que otorga a cada columna siguen las siguientes reglas de concordancia que
puedes ver en la siguiente tabla:
Aquí les dejo el ejemplo para descargar, solo cambian la cadena de conexion por el de
sus datos y listo!
