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è.:D

[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