Conexin de SQL Server 2008 con Visual Basic
2010
Para elaborar la tabla con sus campos, que sern los datos a mostrarse en nuestra aplicacin,
creamos la base de datos llamada ejemplo, una vez creada damos clic derecho en tabla luego
clicNueva tabla, como se muestra en la figura.
Luego escribimos estos campos y verificamos que el primer campo no este seleccionado.
Establecemos el campo Carnet como llave primaria.
Luego guardamos los cambios dando clic en la barra de herramienta Guardar (Figura de
Disquete).
Llenemos con algunos datos la tabla que hemos creado, para ello nos ubicamos en la tabla
damos clic derecho y seleccionamos editar primeras 200 filas.
Llenemos con los siguientes datos:
Guardemos los cambios.
Aplicacin en visual studio.
Mostraremos en este tutorial los pasos y procedimiento a seguir para lograr una conexin de
una base de datos desde SQL Server 2008.
Iniciamos Visual Studio 2010, donde le daremos clic en la opcin nuevo proyecto, ubicado en
la parte izquierda de la ventana principal, a como lo muestra la figura siguiente:
Una vez de haber dado clic en la opcin ya antes mencionada, se nos mostrar otra ventana
la cual nos permitir agregar el nombre con que deseamos guardar nuestro proyecto, as
mismo podremos seleccionar en que parte de nuestro ordenador deseamos guardar nuestro
proyecto, sino le agregamos ninguna direccin en donde guardaremos nuestro proyecto,
Visual Studio 2010 lo guardar por defecto en la carpeta projects, dicha carpeta se encuentra
en el lugar en donde se encuentra instalado Visual Studio 2010.- A como lo muestra la figura siguiente:
Luego de haber realizado todo los procedimientos del ejemplo anterior le damos clic en
aceptar.- nos mostrar nuestro formulario y una vez ah diseamos uno como el ejemplo a
continuacin.
Posteriormente de haber creado nuestro proyecto y diseado nos ubicamos en la ventana
Explorador de Soluciones, luego le damos clic derecho en el nombre de nuestro proyecto en
este ejemplo se llama (Ejemplo Conexionn), elegimos la opcin de propiedades, por lo cual se
nos mostrara una ventana como la del ejemplo siguiente.
Damos clic en la opcin configuracin y procedemos a escribir el nombre de la conexin en la
opcin nombre, que nos muestra la ventana, posteriormente llenamos la opcin tipo,
seleccionando la opcin Cadena de conexin.-Posteriormente en la opcin de valor nos
dirigimos al filtro que se muestra en la figura lo cual despus de dar clic se nos mostrar otra ventana de
manera independiente en donde tendremos que seleccionar el tipo de conexin que queremos a
continuacin el ejemplo de la ventana que se debe demostrar despus de haber dado clic en
el filtro de la opcin mbito.
Damos clic en cambiar correspondiente al campo origen de datos y se no mostrar una
ventana como la de abajo, ah verificamos que este seleccionado Microsoft SQL Server
y damos en aceptar.
Una vez de haber seleccionado el origen de dato, continuamos con la ventana de propiedades
de conexin.
Seleccionamos el nombre del servidor con que deseamos trabajar para nuestro
caso el nombre de nuestro servidor tiene el nombre de: (local).
Una forma de darnos cuenta cual es el nombre de nuestro servidor es iniciando SQLServer
2008 y la primera ventana que se nos muestra podemos visualizar el nombre del servidor,
como en el ejemplo que se muestra:
Otra forma de conocer el nombre de nuestro servidor es, situndonos en nuestra interfaz
de sql, seleccionamos la opcin conectar y luego seleccionamos la opcinMotor de Bases de
datos.
Esta es la ventana en la cual tenemos, que especificar el nombre del servidor en el que iremos
a trabajar y al mismo tiempo tenemos que especificar el nombre de nuestra base de datos.
Esta es la ventana en la cual tenemos, que especificar el nombre del servidor en el que iremos
a trabajar y al mismo tiempo tenemos que especificar el nombre de nuestra base de datos.
Luego de haber elegido nuestro servidor y nuestra base de datos procedemos a dar clic en
el botn comprobar conexin, donde se nos mostrar una ventana comn mensaje por el cual
nos avisa de que la conexin fue todo un xito. Tal a como lo muestra la figura siguiente.-
Posteriormente damos clic en el botn de aceptar, por tanto nuestra bases de datos estar
lista para trabajar.
Programando nuestra aplicacin
Librera principal para trabajar con nuestra base de datos. Antes de la clase principal.
Imports System.Data.SqlClient
Variables globales declaradas en el form principal. Despus de la clase principal.
Private oDataAdapterAs SqlDataAdapter
Private oDataSetAs DataSet
Private iPosicFilaActualAs Integer
DimCCAs SqlConnection
Funcin privada, declarada en el form principal.
Private oDataAdapterAs SqlDataAdapter
Private oDataSetAs DataSet
Private iPosicFilaActualAs Integer
Dim CCAs SqlConnection
Funcin privada, declarada en el form principal.
Private Sub HABILITAR() nombre de la funcin
TxtAppellidos.Enabled = True
TxtNombres. Enabled = True
TxtCarnet.Enabled = True
TxtDireccion.Enabled = True
TxtEmail.Enabled = True
TxtTelefono.Enabled = True
TxtAppellidos. Text =
TxtNombres. Text =
TxtCarnet. Text =
TxtDireccion. Text =
TxtEmail. Text =
TxtTelefono. Text =
End Sub
Evento botn Mostrar datos:
CC =New SqlConnection
CC.ConnectionString =My.MySettings.Default.CadenaConexion
DimoComandoAs New SqlCommand("exec Buscar'"+ Trim(txtCarnet.Text) +"'", CC)
' crear DataReader
DimoDataReaderAs SqlDataReader
CC.Open()
oDataReader = oComando.ExecuteReader()' obtener DataReader ' recorrer filas
While oDataReader.Read()
Me.TxtNombres.AppendText(Trim(oDataReader("Nombres")))
Me.TxtApellidos.AppendText(Trim(oDataReader("Apellidos")))
Me.TxtEMail.AppendText(Trim(oDataReader("EMail")))
Me.TxtTelefono.AppendText(Trim(oDataReader("Telefono")))
Me.TxtDireccion.AppendText(Trim(oDataReader("Direccion")))
End While
oDataReader.Close()
CC.Close()
Evento botn Agregar Nuevo
HABILITAR()
Evento botn Guardar
Dim oConexionAs SqlConnection
oConexion=New SqlConnection
oConexion.ConnectionString =My.MySettings.Default.CadenaConexion
Me.oDataAdapter =New SqlDataAdapter("SELECT * FROM Datos", oConexion)
DimoCommBuildAs SqlCommandBuilder=New SqlCommandBuilder(oDataAdapter)
Me.oDataSet =New DataSet
oConexion.Open()
Me.oDataAdapter.Fill(oDataSet,"Datos")
oConexion.Close()
DimoDataRowAs DataRow
oDataRow =Me.oDataSet.Tables("Datos").NewRow()
oDataRow("Carnet") =Me.txtCarnet.Text
oDataRow("Nombres") =Me.TxtNombres.Text
oDataRow("Apellidos") =Me.TxtApellidos.Text
oDataRow("Telefono") =Me.TxtTelefono.Text
oDataRow("EMail") =Me.TxtEMail.Text
oDataRow("Direccion")=Me.TxtDireccion.Text
Me.oDataSet.Tables("Datos").Rows.Add(oDataRow)
Me.oDataAdapter.Update(oDataSet,"Datos")
MsgBox("Estudiante almacenado")
Evento botn Buscar
CC =New SqlConnection
CC.ConnectionString =My.MySettings.Default.CadenaConexion
oDataAdapter =New SqlDataAdapter("SELECT * FROM dbo.Datos WHERE(Carnet = '"&
Trim(TxtCarnet2.Text) &"')", CC)
Dim oCommBuildAs
SqlCommandBuilder=New
SqlCommandBuilder(oDataAdapter)
oDataSet =New DataSet
CC.Open()
oDataAdapter.Fill(oDataSet,"Datos")
CC.Close()dgr.DataSource() = oDataSet
dgr.DataMember() ="Datos"
Evento botn Editar
Me.oDataAdapter.Update(oDataSet,"Datos"
Validando el textbox nmero uno, para que solo el usuario pueda ingresar
dgitosnumricos. Para ello seleccionamos en nuestro formulario la caja de texto
nosubicamos en la pestaa Propiedades ubicada en la parte derecha y damos clic
enevento, damos doble clic en el evento Keypress.
Una vez en el evento Keypress y copiamos el siguiente c
If Not(Asc(e.KeyChar) = 45Or(Asc(e.KeyChar) >= 48AndAsc(e.KeyChar) <= 57))Then
e.Handled =True
End If
FUENTES DE INFORMACIN:
https://es.scribd.com/doc/82699858/CONEXION-Visual-Studio-2010-y-SQL-Server-
2008
