SISTEMA EN SQL SERVER Y VISUAL BASIC 2008 BY VICO
ACTUALEMTE ESTOY CONCURSANDO EN EL MEJOR BLOG DE MEXICO POR FAVOR APOYAME
BLOGIT
ACTUALMENTE ESTOY CONCURSANDO CON ESTE BLOG DE SQL SERVER Y VB 2008 Y LOS SIGUIENTES ARTICULOS SON LOS QUE PUBLIQUE EN ESTE CONCURSO
VOTA POR MI MUCHAS GRACIAS!!!
LINKS DE INTERES DE VISUAL STUDIO 2008
ASP.NET 2008
SQL SERVER Y VB 2008
INTRODUCCION :
Hola bienvenidos a mi blog espero este blog les sirva a todas esas personas que se ven en la necesidad de implementar un sistema espero me digan que les Parece o si tienen dudas me las hagan saber gracias.........
Como primer paso necesitamos instalar Visual Studio 2008 que va ser la herramienta que vamos a ocupar para la implementación del sistema.
VISUAL STUDIO 2008
2. Visual Studio 2008 Contiene diferentes versiones no voy a meterme mucho en eso pero lo que nos interesa saber es que cualquier versión completa
Contiene los siguientes elementos que vamos a utilizar.
3. Bueno después de instalar todo el Kit de Visual Studio solo faltaría una cosa por hacer; la cual a mi forma de ver las cosas es necesaria la
Herramienta se llama SQL Server Management Studio Express esta herramienta fue creada por Microsoft para así mismo tener una mejor
Administración de nuestro Motor De Base de Datos
DESAROLLO:
Bueno pues después de haber instalado las herramientas con las que vamos a trabajar empecemos hacer nuestro sistema de aquí en adelante......
OK pues empecemos.....
Lo primero que debemos saber es que en el Servidor de Base de Dato se van a alojar todas aquellas herramientas que nos sirven para administrar nuestra
Base de Datos estas son algunas cosas que se pueden hacer dentro de nuestro Servidor.
Bueno para poder empezar a trabajar con nuestro servidor es importante saber que los servidores manejan dos tipos de Autenticación que son:
Autenticación de Windows
Autenticación de SQL Server
Al igual cada Servidor puede tener uno o mas usuarios y contraseñas que sirven para tener acceso a nuestro servidor.
Abrimos nuestro Sql Server Management Studio Express aparece una pantalla como la siguiente donde con un simple Click en conectar tendremos acceso A todo lo que contiene nuestro Servidor de Base de Datos
NOTA:
Si no tenemos acceso a nuestro Servidor es debido a que tenemos un problema con la Autenticacion o con el nombre de usuario o contraseña
Si todo sale correctamente llegaremos a una pantalla como la siguiente:
En esta pantalla podemos acceder a crear diferentes bases de datos entre otras cosas que mas adelante veremos....
PARA ESTA SECCION ES NECESARIO CREAR UNA BASE DE DATOS Y TENER TODA LA INFORMACION DE NUESTRO SERVIDOR.
Los datos con lo que voy a trabajar seran los siguientes:
Server: JENYFER\SQLEXPRESS 'el nombre del servidor de Base de Datos
User id: root 'el nombre de usuario para entrar al Servidor
Password: #&#& 'el password para entrar al Servidor
Database: VICO 'el nombre de mi Base de Datos que Cree
Ok pues empezemos hacer nuestra conexion de base de datos con visual basic para eso es necesario abrir Windows y seleccionar Windows Form Appication.
NOTA:
Algo bueno que tiene Visual Studio 2008 es que podemos cambiar el .Net Framework con el que queramos Trabajar como notan en la imagen anterior en la parte Superior izquierda.
Después tendremos un formulario como el siguiente en el cual se realizara una pequeña conexión a continuación.
Utilizaremos el siguiente método de coneccion Imports System.Data.SqlClient
El codigo quedari asi con los datos que tenemos:
Imports System.Data.SqlClient ' EL PROVEEDOR DE BASE DE DATOS SQLCLIENT
Public Class Form1 'ESTA DECLARADA TU CLASSE FORM1
Dim conexion As New SqlConnection 'DECLARAS TU CONEXION
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickconexion.ConnectionString = "server=SERVER\LOCAL;user id=root; password=#&#&; database=VICO; pooling=false" 'TU CONEXION
Try 'ABRES TRYconexion.Open() 'ABRE TU CONEXION
MessageBox.Show("Tu conexion es correcta") 'SI NO HAY PROBLEMA SE ABRE LA CONEXION Y APARECE EL MENSAJE
Catch excepcion As SqlException ' DECLARAS EXCEPCION MessageBox.Show("Error de sintaxis") 'SI TIENES ALGUN ERROR ENTRA ESTE MENSAJE
conexion.Close() 'CIERRA TU CONEXION
End Try 'CIERRAS TRYEnd SubEnd Class
Bueno si todo sale bien quiere decir que nuestra conexion con el servidor es correcta cualquier duda favor de hacermela saver para apoyarnos entre todos continuaremos con los demas procesos para esto supongamos que tenemos una tabla que es la siguiente tratare de hacer una tabla con pocos campos para asi mismo sea entendible ok y practicaremos una consulta con la siguiente tabla:
para empezar a relacionarnos con los Query el formulario es el siguiente:
el codigo quedari asi:
Imports System.Data.SqlClient ' EL PROVEEDOR DE BASE DE DATOS SQLCLIENT
Public Class Form1 'ESTA DECLARADA TU CLASSE FORM1
Dim conexion As New SqlConnection 'DECLARAS TU CONEXIONDim comando As New SqlCommand 'DECLARAS TU COMANDOPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickconexion.ConnectionString = "server=SERVER\LOCAL;user id=root; password=#&#&; database=VICO; pooling=false" 'TU CONEXION
Try 'ABRES TRYconexion.Open() 'ABRE TU CONEXION
comando.Connection = conexion 'INDICAS QUE EL COMANDO ES PARTE DE LA CONEXION
comando.CommandText = "update t_prueba set nombre=josue where nombre= " & Me.TextBox1.Text 'CONSULTA
comando.ExecuteNonQuery() 'EJECUTAMOS EL COMANDO
Catch excepcion As SqlException ' DECLARAS EXCEPCION MessageBox.Show("Error de sintaxis") 'SI TIENES ALGUN ERROR ENTRA ESTE MENSAJE
conexion.Close() 'CIERRA TU CONEXION
End Try 'CIERRAS TRYEnd SubEnd Class
espero este blog valla conforme espero si no me doy a explicar algo me gustaria que me lo hicieran saber o que me dijieran que les gustaria que aportara a este blog gracias.
saludos!!
Bueno el codigo anterior lo unico que hace es realizar una actualizacion de nuestra base de datos donde la condicion sea igual a nuestro textbox1.text existe una forma en la que le podemos dar un parametro a nuestras consultas voy a utilizar el mismo ejemplo pero con parametros espero y les sirva:
; 
el codigo seria el siguiente:
Imports System.Data.SqlClient ' EL PROVEEDOR DE BASE DE DATOS SQLCLIENT
Public Class Form1 'ESTA DECLARADA TU CLASSE FORM1
Dim conexion As New SqlConnection 'DECLARAS TU CONEXIONDim comando As New SqlCommand 'DECLARAS TU COMANDOPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickconexion.ConnectionString = "server=SERVER\LOCAL;user id=root; password=#&#&; database=VICO; pooling=false" 'TU CONEXION
Try 'ABRES TRYconexion.Open() 'ABRE TU CONEXION
comando.Connection = conexion 'INDICAS QUE EL COMANDO ES PARTE DE LA CONEXION
comando.CommandText = "update t_prueba set nombre=@x where nombre= " & Me.TextBox1.Text 'CONSULTA
comando.Parameters.Add(New SqlParameter("@x", SqlDbType.VarChar, 100)) 'PARAMETRO DEM LA VARIABLE X
comando.Parameters("@x").Value = TextBox2.Text 'INDICAMOS QUE LA VARIABLE ES IGUAL AL TEXTBOX2
comando.ExecuteNonQuery() 'EJECUTAMOS EL COMANDO
Catch excepcion As SqlException ' DECLARAS EXCEPCION MessageBox.Show("Error de sintaxis") 'SI TIENES ALGUN ERROR ENTRA ESTE MENSAJE
conexion.Close() 'CIERRA TU CONEXION
End Try 'CIERRAS TRYEnd SubEnd Class
Bueno hasta este momento tenemos como conectar nuestra base de datos a visual basic y hacer una consulta con y sin parametros las diferentes consultas como INSERT DELETE etc son paraecidas a esta que acabamos de hacer que es UPDATE bueno conforme tenga tiempo continuaremos con lo que es la lectura de la base de datos para asi mismo depositarla dentro de nuestro objetos.
Bueno en estos momentos hemos visto como conectar sql con visual basic y hacer consultas con y sin parametros.... ; ; NOTA:
Bueno en este apartado les voy a mostrar como leer los datos de la base de datos y asi mismo depositarlas en un form el diseño del form en base a la tabla que tenemos seria el siguiente
; 
el codigo para leer datos de la base de datos seria el siguiente:
Imports System.Data.SqlClient ' EL PROVEEDOR DE BASE DE DATOS SQLCLIENT
Public Class Form1 'ESTA DECLARADA TU CLASSE FORM1
Dim conexion As New SqlConnection 'DECLARAS TU CONEXIONDim comando As New SqlCommand 'DECLARAS TU COMANDODim lectura As SqlDataReader 'DECLARAMOS LO QUE VA SER NUESTRA LECTURA DE DATOSPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Clickconexion.ConnectionString = "server=SERVER\LOCAL;user id=root; password=#&#&; database=VICO; pooling=false" 'TU CONEXION
Try 'ABRES TRYconexion.Open() 'ABRE TU CONEXION
comando.Connection = conexion 'INDICAS QUE EL COMANDO ES PARTE DE LA CONEXION
comando.CommandText = "select nombre,apaterno,amaterno,edad where id= '" & TextBox1.Text & "'" 'CONSULTA
lectura = comando.ExecuteReader 'EJECURTA LA LECTURA DE DATOS
If lectura.Read() Then 'SENTENCIAMe.Label5.Text() = lectura.Item("nombre").ToString() 'DEPOSITAMOS NOMBRE EN EL LABELMe.Label6.Text() = lectura.Item("apaterno").ToString() 'DEPOSITAMOS AP PATERNMO EN EL LABELMe.Label7.Text() = lectura.Item("amaterno").ToString() 'DEPOSITAMOS AP MATERNO EN EL LABELMe.Label8.Text() = lectura.Item("edad").ToString() 'DEPOSITAMOS EDAD EN EL LABELlectura.Close() 'CERRAMSO LA LECTURA
End Ifconexion.Close() 'CERRAMOS LA CONEXION
comando.ExecuteNonQuery() 'EJECUTAMOS EL COMANDO
Catch excepcion As SqlException ' DECLARAS EXCEPCION MessageBox.Show("Error de sintaxis") 'SI TIENES ALGUN ERROR ENTRA ESTE MENSAJE
conexion.Close() 'CIERRA TU CONEXION
End Try 'CIERRAS TRYEnd Sub
End Class
......
Bueno espero hasta ahora todo valla claro pues en este capitulo veremos como mostrar los datos de una tabla en un DataGridView continuemos......
- Primero creamos un nuevo proyecto
- Agregamos un DataGridView
- Lo agregamos al form que creamos
Lo que tenemos que hacer a continuacion es simplemente programar este objeto y mandarlo a llamar en el evento que quieras; el codigo quedaria asi.
Public Class Form1 'ESTA DECLARADA TU CLASSE FORM1
Dim conexion As New SqlConnection 'DECLARAS TU CONEXION
Dim adapter As New SqlDataAdapter("select * from t_productos", conexion) 'aqui declaramos nuestro adaptador indicando el Query que rellena nuestro DataGridView
Dim data As New DataSet 'aqui declaramos nuestro dataset
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
conexion.ConnectionString = "server=SERVER\LOCAL;user id=root; password=#&#&; database=VICO; pooling=false" 'TU CONEXION
Try 'ABRES TRY
conexion.Open() 'ABRE TU CONEXION
DataGridView1.DataSource = data.Tables(0) 'llenamos el DataGridView con el dataset que llenamos anteriormente
conexion.Close() 'CERRAMOS LA CONEXION
Catch excepcion As SqlException ' DECLARAS EXCEPCION
MessageBox.Show("Error de sintaxis") 'SI TIENES ALGUN ERROR ENTRA ESTE MENSAJE
conexion.Close() 'CIERRA TU CONEXION
End Try 'CIERRAS TRY
End Sub
End Class
El resultado seria el siguiente
Bueno espero halla quedado claro me gustaria saber que quisieran que agregara a este blog recuerden entre todos aprendemos.....muchas gracias por visitarlo este y todos mis blogs.....
- ASP.NET 2008
- CRYSTAL REPORTS 2008
