Como conectar el VB 2010 con el SQL 2008 R2?

[Ka0stj]

Es sencillo, yo utilizo la siguiente clase:

Código vb:

Imports System.Data.SqlClient
 
Public Class Conexion
 
    '-- Función privada para el manejo del String de conexion (Esta función me "construye" y regresa mi cadena de Conexión)
    Public Function StrConexion() As String
 
        '-- Declaro mi variable Cadena de Conexión
        Dim strConn As String
        Try
 
            '-- Asigno los parámetros a la cadena strConn
            strConn = "Data Source = TuServidor; Initial Catalog = TuBD; User ID = TuUsuario;  Password = TuPass"
 
        Catch ex As Exception
            Throw ex
        End Try
 
        '-- regreso la cadena
        Return strConn
 
    End Function
 
End Class
 

Solo te pongo el método que regresa la cadena de conexión pero puedes crear todos los que quiereas. Ahora bien para llamarla lo haces asi, primero creas una instancia en la clase que la usaras:

Código vb:

Private MiConexion As New Conexion
Private objConn As New SqlConnection
 

Después por ejemplo si lo llamarás del evento click de algún botón:

Código vb:

Private Sub btnElBoton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnElBoton.Click
 
        '-- Asignas la cadena de Conexión a tu objConn
        objConn = New SqlConnection(MiConexion.StrConexion)
 
        Try
                 'Abres la conexión
                 objConn.Open()
 
 
                'Sección de tu código(inserciones, consultas, o lo que sea)
 
                'Cierras la Conexión
                objConn.Close() 
 
              
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            objConn.Close()
        End Try
 
    End Sub
 

Con lo anterior basta para realizar operaciones a tu BD. Puede haber varias maneras pero yo te planteo esta.

Saludos!