Conections

[Cheswar]

No se si estoy en el foro correcto, y sino perdon, pero necesito saber como poder conectarme a una base de datos de SQL desde Visual Basic 2005. Cualquier ayuda se los agradecerè.

[[poliburro]]

Pues, he usado muy poco VB 2005. Pero debes hacer uso de ADO.Net.

Saludos

[[fer21unmsm]]

Como dice el compañero de arriba con adob.net, sqlconnection, etc., y bueno ya decidirás si trabajas con entorno conectado o desconectado, etc.

Te mando un ejemplo por si acaso:

    Public Function ExecStProc(ByVal p_szNameOfSP As String, ByVal p_a_szParam As Generic.List(Of Object), Optional ByRef p_dsDatos As DataSet = Nothing) As Integer
        Dim oCnx As DbConnection
        Dim oCmd As DbCommand
        Dim oTSQL As DbTransaction

        oCnx = New SqlClient.SqlConnection(szConxStr)
        oCnx.Open()
        oCmd = New SqlClient.SqlCommand(p_szNameOfSP, oCnx)
        oCmd.CommandType = CommandType.StoredProcedure
        oTSQL = oCnx.BeginTransaction
        oCmd.Transaction = oTSQL
        Try
            SqlClient.SqlCommandBuilder.DeriveParameters(oCmd)

            Dim iIndex As Integer
            Dim oPrm As DbParameter

            For Each oPrm In oCmd.Parameters
                If (oPrm.Direction <> ParameterDirection.ReturnValue) Then
                    oPrm.Value = p_a_szParam(iIndex)
                    iIndex += 1
                End If
            Next

            If Not (p_dsDatos Is Nothing) Then
                Dim oDa As DbDataAdapter = New SqlClient.SqlDataAdapter(oCmd)
                Dim oDs As New DataSet

                oDa.Fill(oDs)
                p_dsDatos = oDs
                ExecStProc = 1
                oDa.Dispose()
            Else
                oCmd.ExecuteNonQuery()
                ExecStProc = oCmd.Parameters(0).Value.ToString
            End If
            oTSQL.Commit()
        Catch ex As SqlClient.SqlException
            ExecStProc = -1
            oTSQL.Rollback()
            'regInLog(ex.ErrorCode, ex.Message.ToString(), Today.ToString)
            'Throw New Exception(getFriendlyMessage(ex.ErrorCode))
        Finally
            oCmd.Dispose()
            oCnx.Close()
            oCnx.Dispose()
        End Try
    End Function

PD: tienes que añadirle el namespace (Imports System.Data.Common)

Saludos