EJEMPLO DE CONEXIÓN A UNA BASE DE DATOS DESDE SQL En este tutorial se realizará un ejemplo de conexión co nexión de una base de datos con Visual Studio 2010. Requisitos previos y
Base de datos a realizar la conexión
Para elaborar la tabla con sus campos, que serán los datos a mostrarse en nuestra aplicación, creamos la base de datos llamada ll amada ejemplo, una vez creada damos clic derecho en tabla luego clic Nueva tabla, como se muestra en la figura
,
Luego escribimos estos campos y verificamos que el primer campo no este seleccionado.
Establecemos 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.
Aplicación en visual studio. Mostraremos en este tutorial los pasos y procedimiento a seguir para lograr una conexión de una base de datos desde SQL Server 2008. Iniciamos Visual Studio 2010, donde le daremos clic en la opción nuevo proyecto , ubicado en la la parte izquierda izquierda de la ventana ventana principal, a como lo lo muestra la figura siguiente.
Una vez de haber dado clic en la opción ya ya antes mencionada, se nos mostrará otra 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 dirección 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 f igura siguiente.
Luego de haber realizado todo los procedimientos del ejemplo anterior le damos clic en aceptar.- nos mostrará nuestro formulario y una vez ahí diseñamos uno como el ejemplo a continuación.
Form
osteriormente P osteriormente
de haber creado nuestro proyecto y diseñado nos ubicamos en la ventana Explorador de Soluciones, luego le damos clic derecho en el nombre de nuestro proyecto en este ejemplo se llama (EjemploConexionn), elegimos la opción de propiedades, propiedades, por lo cual se nos mostrara una ventana como la del ejemplo siguiente.
Damos clic en la opción configuración y procedemos a escribir el nombre de la conexión en la opción nombre, que nos muestra la ventana, posteriormente llenamos la opción tipo , seleccionando la opción Cadena de conexión.- P osteriormente osteriormente en la opción de valor nos dirigimos al filtro que se muestra en la figura lo cual después de dar clic se nos mostrará otra ventana de manera independiente en donde tendremos que seleccionar el tipo de conexión que queremos a continuación el ejemplo de la ventana que se debe de mostrar después de haber dado clic en el filtro de la opción Á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 propiedades de conexión
Seleccionamos el nombre del servidor servidor con que deseamos trabajar trabajar para nuestro caso 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 SQL Server 2008 y la primer 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, situándonos en nuestra interfaz de sql, seleccionamos la opción conectar y luego seleccionamos la opción Motor 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.
Luego de haber elegido nuestro servidor y nuestra base de datos procedemos a dar clic en el botón comprobar conexión, donde se nos mostrará una ventana con un mensaje por el cual nos avisa de que la conexión fue todo un éxito. Tal a como lo muestra la figura siguiente.- Posteriormente damos clic en el botón de aceptar, por tanto nuestra bases de datos estará lista para trabajar.
Programando nuestra aplicación Librería principal para trabajar con nuestra base de datos. Antes de la clase principal Imports System.Data.SqlClient
Variables globales declaradas en el form principal. Después de la clase principal Private oDataAdapter As SqlDataAdapter Private oDataSet As DataSet Private iPosicFilaActual As Integer Dim CC As SqlConnection
Función privada, declarada en el form principal. Private Sub HABILITAR() nombre de la función TxtApellidos.Enabled TxtApellidos.Enabl ed = True TxtNombres.Enabled = True txtCarnet.Enabled = True TxtDireccion.Enabled TxtDireccion.Enabl ed = True TxtEMail.Enabled = True TxtTelefono.Enabled TxtTelefono.Enable d = True TxtApellidos.Text = "" TxtNombres.Text = "" txtCarnet.Text = "" TxtDireccion.Text = "" TxtEMail.Text = "" TxtTelefono.Text = "" End Sub
Evento botón Mostrar datos CC = New SqlConnection CC.ConnectionString CC.ConnectionStrin g = My My. .MySettings MySettings.Default.CadenaConexion .Default.CadenaConexion Dim oComando As New SqlCommand SqlCommand( ("exec Buscar'" + Trim(txtCarnet.Text) + "'" "'", , CC)
' crear DataReader Dim oDataReader As SqlDataReader CC.Open() oDataReader = oComando.ExecuteRe oComando.ExecuteReader() ader() ' obtener DataReader ' recorrer filas While oDataReader.Read() Me.TxtNombres.AppendText(Trim(oDataReader( Me .TxtNombres.AppendText(Trim(oDataReader("Nombres" "Nombres"))) )))
Me.TxtApellidos.AppendText(Trim(oDataReader("Apellidos" Me.TxtApellidos.AppendText(Trim(oDataReader( "Apellidos"))) ))) Me.TxtEMail.AppendText(Trim(oDataReader( Me .TxtEMail.AppendText(Trim(oDataReader("EMail" "EMail"))) ))) Me.TxtTelefono.AppendText(Trim(oDataReader( Me .TxtTelefono.AppendText(Trim(oDataReader("Telefono" "Telefono"))) ))) Me.TxtDireccion.AppendText(Trim(oDataReader( Me .TxtDireccion.AppendText(Trim(oDataReader("Direccion" "Direccion"))) ))) End While oDataReader.Close() CC.Close()
Evento botón Agregar Nuevo HABILITAR()
Evento botón Guardar Dim oConexion As SqlConnection oConexion = New SqlConnection oConexion.ConnectionString oConexion.ConnectionString = My My. .MySettings MySettings.Default.CadenaConexion .Default.CadenaConexion Me.oDataAdapter Me.oDataAdapte r = New SqlDataAdapter SqlDataAdapter( ("SELECT * FROM Datos", Datos" , oConexion) Dim oCommBuild As SqlCommandBuilder = New SqlCommandBuilder SqlCommandBuilder(oDataAdapter) (oDataAdapter)
Me.oDataSet = New DataSet Me.oDataSet oConexion.Open() Me.oDataAdapter.Fill(oDataSet, Me .oDataAdapter.Fill(oDataSet, "Datos" "Datos") ) oConexion.Close() Dim oDataRow As DataRow oDataRow = Me Me.oDataSet.Tables( .oDataSet.Tables("Datos" "Datos").NewRow() ).NewRow() oDataRow("Carnet" oDataRow( "Carnet") ) = Me Me.txtCarnet.Text .txtCarnet.Text oDataRow("Nombres" oDataRow( "Nombres") ) = Me Me.TxtNombres.Text .TxtNombres.Text oDataRow("Apellidos" oDataRow( "Apellidos") ) = Me Me.TxtApellidos.Text .TxtApellidos.Text oDataRow("Telefono" oDataRow( "Telefono") ) = Me Me.TxtTelefono.Text .TxtTelefono.Text oDataRow("EMail" oDataRow( "EMail") ) = Me Me.TxtEMail.Text .TxtEMail.Text oDataRow("Direccion" oDataRow( "Direccion") ) = Me Me.TxtDireccion.Text .TxtDireccion.Text Me.oDataSet.Tables( Me .oDataSet.Tables("Datos" "Datos").Rows.Add(oDataRow) ).Rows.Add(oDataRow) Me.oDataAdapter.Update(oDataSet, Me .oDataAdapter.Update(oDataSet, "Datos" "Datos") ) MsgBox("Estudiante MsgBox( "Estudiante almacenado") almacenado")
Evento botón Buscar CC = New SqlConnection
CC.ConnectionString CC.ConnectionString = My My. .MySettings MySettings.Default.CadenaConexion .Default.CadenaConexion
oDataAdapter oDataAdapter = New SqlDataAdapter SqlDataAdapter( ("SELECT * FROM dbo.Datos WHERE (Carnet = '" & Trim(TxtCarnet2.Text) & "')" "')", , CC) Dim oCommBuild As SqlCommandBuilder = New SqlCommandBuilder(oDataAdapter) SqlCommandBuilder (oDataAdapter) oDataSet = New DataSet CC.Open() oDataAdapter.Fill(oDataSet, "Datos" "Datos") ) CC.Close() dgr.DataSource() dgr.DataSource() = oDataSet dgr.DataMember() dgr.DataMember() = "Datos"
Evento botón Editar Me.oDataAdapter.Update(oDataSet, Me .oDataAdapter.Update(oDataSet, "Datos" "Datos") )
Validando el textbox número uno, para que solo el usuario pueda ingresar dígitos numéricos. Para ello seleccionamos en nuestro formulario la caja de texto nos ubicamos en la pestaña Propiedades ubicada en la parte derecha y damos clic en evento, damos doble clic en el evento Keypress
Una vez en el evento Keypress y copiamos el siguiente c
If Not (Asc(e.KeyChar) (Asc(e.KeyChar) = 45 Or (Asc(e.KeyChar) (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57)) Then e.Handled = True End If
