Foros Club Delphi - Conections

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:

Código:

    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