Conectar VB 2010 con SQL 2008

Publicado en 'Programación' por Dark Zero, 7 Mar 2011.





  1. Dark Zero

    Dark Zero Miembro de oro

    Registro:
    21 Ene 2009
    Mensajes:
    7,198
    Likes:
    1,668




    Buenas tardes a todos
    el motivo del post es saber como hacer una conexion desde visual basic 2010 (o 2008) con el SQL 2008 R2 (o el normal ) , ya tengo hecho las interfaces y la DB pero no se como conectar ambos entornos para que funcione.

    gracias de antemano y pido que lo contesten lo antes posible
     


  2. carlos_chavez

    carlos_chavez Miembro frecuente

    Registro:
    4 Mar 2011
    Mensajes:
    107
    Likes:
    10
    Espero que sepas usar Stored Procedures
    pk primero deberias crear un SP en tu base de datos

    supongamos que tienes una tabla llamada TIPO_PRODUCTO y queremos todas las columnas y todos los registros
    entonces el SP seria asi

    CREATE PROCEDURE [dbo].[PA_LISTAR_TIPO_PRODUCTO]
    AS
    BEGIN
    SELECT * FROM TIPO_PRODUCTO
    END
    GO

    Luego en tu aplikacion deklaras una variable que sera la cadena de conexion

    Dim sCadCn As String = "integrated security=SSPI;Initial Catalog= BASE_DATOS ;Data Source=localhost\INSTANCIA"

    cambia las siguientes palabras:
    BASE_DATOS: cambialo por el nombre de tu Base de Datos
    INSTANCIA: mira en ke isntancia del SQL esta korriendo tu base de datos. Si instalaste la version Express la instancia se deberia llamar SQLEXPRESS


    Luego utilizas el NameSpaces

    Imports System.Data.SqlClient

    Ahora creas una funcion asi que retorne un DataSet
    no tendras ke kambiar nada aki si los pasos anteriores estan bien kreados

    Public Function ListarTipoProducto() As DataSet
    Dim Ds As New DataSet
    Dim Da As New SqlDataAdapter
    Dim Cn As New SqlConnection
    Dim Cmd As New SqlCommand

    Cn.ConnectionString = sCadCn

    Cmd.Connection = Cn
    Cmd.CommandText = "Pa_Listar_Tipo_Producto"
    Cmd.CommandType = CommandType.StoredProcedure

    Da.SelectCommand = Cmd

    Cn.Open()
    Da.Fill(Ds)
    Cn.Close()

    Return Ds
    End Function



    Ahora ya en tu aplicacion en tu formulario crea un boton y un DataGridView
    este seria el kodigo de tu boton suponiendo ke el DataGridView se llame Dg
    kon este kodigo llamas a la funcion ke a la vez se conectara al SQL para traer
    la informacion

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Me.Dg.DataSource = ListarTipoCliente.Tables(0)
    End Sub


    Espero que te sirva