Base de datos en windows form

BASE DE DATOS EN WINDOWS FORMS

1. MANEJANDO LA CONEXIÓN

DEMO 35 (modificado) conectarse a SQL Server usando el proveedor de datos de SQL, para lo cual veremos algunas propiedades y métodos de la clase SqlConnection. Para ello arrastre un botón de comando y un cuadro de lista

Imports System.Data.SqlClient
Public Class Form1
Private Sub Btnconectar_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Btnconectar.Click
Dim CadenaConexion As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=E:\DATOS\ALUMNOS.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim con As New SqlConnection(CadenaConexion)
With con
.Open()
ListBox1.Items.Add("nombre del servidor de datos =" &.DataSource)
ListBox1.Items.Add("Version del servidor de datos =" & .ServerVersion)
ListBox1.Items.Add("Nombre de la base de datos =" & .Database)
ListBox1.Items.Add("Tamaño del paquete en bytes =" & .PacketSize)
ListBox1.Items.Add("cadena de conexion =" & .ConnectionString)
ListBox1.Items.Add("tiempo de conexion = " &.ConnectionTimeout)
ListBox1.Items.Add("Estaacion de trabajo= " & .WorkstationId)
ListBox1.Items.Add("Estado = " & .State)
ListBox1.Items.Add("Estatic enabled = " & .StatisticsEnabled)
.Close()
End With
End Sub
End Class

[pic]
Nota si usted copia la base de datos al directorio del proyecto su cadena de conexxion seria
DataSource=.\SQLEXPRESS;AttachDbFilename=E:\DATOS\demo35\demo35\ALUMNOS.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True

Si su base de datos es obtenido del servidor ( creado en SQL Server 2005) solo deberia poner)
Dim CadenaConexion As String = "Data Source=.\sqlexpress;Initial Catalog=Alumnos;Integrated Security=True"

Y su solucion seria
[pic]

USANDO EL PROVEEDOR DE OLEDB1. Clase OleDbConnection
Esta clase permite conectarse a cualquier órigen de datos que tenga un proveedor de OleDB, tal como Access o versiones anteriores a SQL Server 7. Esta Clase también implementa los miembros de la clase Connection, y es muy similar a SqlConnection

Demo 36 (modificado) conectarse a una base de datos de MS Access 2007 usando el proveedor de datos de OleDbCódigo
Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Btnconectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnconectar.Click
Dim CadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DATOS\ALUMNOS.accdb"
Dim con As New OleDbConnection(CadenaConexion)
ListBox1.Items.Clear()With con
.Open()
ListBox1.Items.Add("Nombre de la base de datos =" & .DataSource)
ListBox1.Items.Add("Provedor =" & .Provider)
ListBox1.Items.Add("Cadena de conexion =" & .ConnectionString)
ListBox1.Items.Add("Version del servidor =" & .ServerVersion)
ListBox1.Items.Add("estado =" & .State)ListBox1.Items.Add("database =" & .Database.ToString)
.Close()
End With
End Sub
End Class

[pic]
Puede cambiar la cadena de conexion a

Dim CadenaConexion = "data source = .\sqlexpress;provider = sqloledb;integrated security = sspi;Initial Catalog=Alumnos"

USANDO EL PROVEEDOR DE OLEDB
Imports System.Data.Odbc
Public Class Form1
InheritsSystem.Windows.Forms.Form
Private Sub Btnconectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConectar.Click
Dim CadenaConexion = "dsn=AlumnosODBC"
Dim con As New OdbcConnection(CadenaConexion)
ListBox1.Items.Clear()
With con
.Open()
ListBox1.Items.Add("Nombre de la base de datos =" & .DataSource)...