I tuoi insegnamenti hanno funzionato!!!
codice:
IF EXISTS (SELECT * FROM sysobjects WHERE id = object_id(N'[dbo].[GetJobs]') AND OBJECTPROPERTY(id, N'IsProcedure') = 1)
DROP PROC GetJobs
GO
CREATE PROC GetJobs @id AS INT, @count AS INT OUT
AS
BEGIN
SELECT @count = Count(*) FROM jobs WHERE job_id >@id
SELECT * FROM jobs WHERE job_id >@id
END
GO
VB.NET
------------------------------------
codice:
Imports System.Data
Imports system.Data.SqlClient
Public Class Form1
Private oConn As New SqlConnection("Data Source=(local);Initial Catalog=pubs;User ID=sa;Password=;")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DS As New DataSet()
Dim DA As New SqlDataAdapter()
Dim oComm As New SqlCommand()
Dim param As SqlParameter
oComm = New SqlCommand("GetJobs", oConn)
oComm.CommandType = CommandType.StoredProcedure
param = oComm.Parameters.Add(New SqlParameter("@id", SqlDbType.Int))
param.Direction = ParameterDirection.Input
param.Value = 0
param = oComm.Parameters.Add(New SqlParameter("@count", SqlDbType.Int))
param.Direction = ParameterDirection.Output
param.Value = 0
DA.SelectCommand = oComm
DA.Fill(DS, "jobs")
'visualizzo la QUERY
DataGrid1.DataSource = DS.Tables("jobs")
'visualizzo il parametro di OUT
MsgBox(param.Value)
End Sub
End Class
FUNZIONA TUTTO PERFETTAMENTE!!
GRAZIE MILLE!!!