martes, 26 de octubre de 2010

Conexion a MySql

Lo primero tenemos que hacer es descargar el siguiente archivo conector de mysql con vb.net; una ves descargado lo descomprimimos y lo guardamos en una carpeta

Después lo que tenemos que hacer es dar clic derecho en el proyecto y clic en agregar referencia


Después le damos clic en examinar y nos vamos donde guardamos la carpeta nos vamos a la carpeta bin y seleccionamos el archivo MySql.Data.dll


Bueno ahora comenzamos a programar vamos a copiar los siguientes codigos



en ves de "localhost" pueden poner la ip del servidor donde se encuentra la base de datos en ves de "user" el nombre de usuario y en ves de "pwd" la contraseña del usuario bueno por lo demas uds ya saben que codigos usar ya que van a ser iguales a los que usan para SQL server con la unica diferencia que van a cambiar el sql por el mysql.

martes, 12 de octubre de 2010

Conexion a SQL Server 2005

Conexión a Base de Datos


Para conectarnos a una base de datos de Microsoft SQL Server 2005 lo primero que debemos saber es el nombre del servidor donde esta alojada nuestra base de datos, el nombre de la base de datos y por ultimo el nombre y usuario del servidor.

Vamos a crear un proyecto y yo le pondré conexión a base de datos.

Ahora vamos a crear una cadena de conexión para eso vamos a proyecto, clic en propiedades de conexión a base de datos después clic en cofiguración, en donde dice tipo buscamos cadena de conexión, y en donde dice valor le damos clic en los puntos suspensivos y nos aparecera esta ventana:

Colocamos el nombre del servidor y despues el nombre de la base de datos.


y después le damos clic en probar conexión y nos debe salir la prueba de conexión de prueba se realizo correctamente.

después le damos clic en aceptar y aceptar en la ventana principal nos debe dar la cadena de conexión la cual vamos a copiar.



martes, 5 de octubre de 2010

Bucles

Bucles
En otras circunstancias a la hora de escribir nuestras aplicaciones, nos podemos ver interesados o incluso obligados a utilizar bucles en nuestro código, con el fin y objetivo de evaluar expresiones y sentencias.
Esto es justamente lo que veremos a continuación.
1.- Bucles de repetición o bucles For
Es uno de los bucles más extendidos para recorrer una determinada porción de código un número de veces limitado. Si ese número de veces se convierte en ilimitado, se denomina bucle infinito y la ejecución del proceso se volvería eterna, por lo que es un tipo de bucle a controlar en nuestras aplicaciones.
La nomenclatura de uso de este tipo de bucle es de la siguiente manera:

    For <variable> = <valor inicial> To <valor final> Step <salto>
Next

Un ejemplo nos ayudará a comprender esto de forma sencilla y práctica:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
Dim intValor As Integer = 5
Dim I As Integer, strCadena As String = ""
For I = 1 To intValor
strCadena += Chr(I + 64)
Next
MessageBox.Show(strCadena)
End Sub

Este ejemplo en ejecución es el que puede observarse en la figura 3.15.

ejecución de un ejemplo de demostración del uso de un bucle For.

Como vemos en el ejemplo anterior, no hemos utilizado la palabra reservada Step ya que no es necesario utilizarla. A continuación veremos un ejemplo del uso de esta palabra reservada.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
Dim intValor As Integer = 5
Dim I As Integer, strCadena As String = ""
For I = 1 To intValor Step 2
strCadena += Chr(I + 64)
Next
MessageBox.Show(strCadena)
End Sub

Pero también podemos utilizar otro bucle, el bucle Do Until...Loop que nos permite ejecutar una o más sentencias de código, hasta que se cumpla una determinada condición. En este caso, la estructura del bucle sería de la forma:

Do
Loop  


Un ejemplo práctico del uso de este tipo de bucles sería el que se detalla a continuación:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load
Dim intValor As Byte = 5
Dim intResultado As Byte
Do Until intValor < 1
intResultado += intValor
intValor -= 1
Loop
MessageBox.Show(intResultado)
End Sub