Stored procedure e Data Report

[Melly]

Buongiorno a tutti...


Vi pongo il mio problemaa che mi sembra davvero assurdo....

Ho una Stored procedure che fa una select incrociata su due tabelle...

....e naturalmente un data report sul quale riporto i dati....

Il mio problema è che il Data report non carica il primo record...

Se ho un recordset di 5 righe lui ne visualizza solo 4
..

Ho pensato... magari è la stored....

allora ho riscritto in una variabile stringa la stessa select all'interno e fatto rcs.open....

e funziona tutto a meraviglia.... non salta nessun record....

Qualcuno sa illuminarmi??!!!!

[ladyBlu]

che strano, a me funziona tutto alla perfezione...:master:
hai provato a mettere un MoveFirst dopo l'apertura del recordset?

[darkblOOd]

hai provato a cambiare lavoro? :gren:

ciao bimbe belle


melly, postare il codice no?

[ladyBlu]

Originariamente inviato da darkblOOd
hai provato a cambiare lavoro? :gren:

ciao bimbe belle


melly, postare il codice no?

ma è mai possibile che devi sempre fare lo spiritoso?!

ciao bellezza

[Melly]

Originariamente inviato da ladyBlu
che strano, a me funziona tutto alla perfezione...:master:
hai provato a mettere un MoveFirst dopo l'apertura del recordset?

Già fatto non cambia nulla


@Darkettino




il codice eccolo qui...

al click del menu richiamo la stored

Dim com As New ADODB.Command
com.ActiveConnection = cnn
com.CommandText = "SP_ElencoUI_Sfitte"
com.CommandType = adCmdStoredProc
com.Parameters.Append com.CreateParameter("@PI_id_soc", adDouble, adParamInput, 4, 42)
com.Parameters.Append com.CreateParameter("@PI_id_stab", adDouble, adParamInput, 4, 15)
com.Parameters.Append com.CreateParameter("@msg", adVarChar, adParamOutput, 100, Null)
Set rcs = com.Execute
Set DRElencoUISfitte.DataSource = rcs
DRElencoUISfitte.Show


la select della stored è questa

procedure Sp_ElencoUI_Sfitte

@PI_id_soc numeric,
@PI_id_stabile numeric,
@PO_Elenco_UI nvarchar (100) output
as
if @PI_id_stabile is null

select id_immobile,id_inquilino,indirizzo, n_civico, piano, scala, interno, tipo_immobile
from Unità_Immobiliari
where id_soc = @PI_id_soc and affittato=0 order by indirizzo, n_civico,scala, piano, interno
else

select u.id_immobile, u.id_inquilino, s.indirizzo, s.n_civico, u.piano, u.scala, u.interno, u.tipo_immobile
from Unità_Immobiliari as u, Stabili as s
where u.id_stabile = s.id_stabile and u.id_stabile = @PI_id_stabile and affittato =0 order by s.indirizzo,s.n_civico,u.scala, u.piano, u.interno


contento??:zamm:

[darkblOOd]

si, contento...

dimmi un pò...la stored ti restituisce i valori completi o senza il primo record? Nel senso: hai provato a lanciare la stored...chennesò, con query analyzer?

altrimenti puoi fare una cosa, prova cos':

com.CommandText = "EXEC SP_ElencoUI_Sfitte" 
' questo lo togli --> com.CommandType = adCmdStoredProc

cmq verifica che non sia un problema di stored (cioè non della chiamata alla stessa, ma che non sia il codice memorizzato sul server a restituire un risultato errato)

al limite posta anche il codice del datareport

[ladyBlu]

a prescindere dal tuo problema, io avrei scritto semplicemente così:

rcs.Open "EXEC SP_ElencoUI_Sfitte 42, 15", cnn, 1, 3 
Set DRElencoUISfitte.DataSource = rcs 
DRElencoUISfitte.Show

semplicemente perchè non mi piace usare i command, ma è questione di abitudini

e la stored l'avrei scritta così:

Procedure Sp_ElencoUI_Sfitte 

    @PI_id_soc numeric, 
    @PI_id_stabile numeric
AS 

    DECLARE @strSelect VARCHAR(500)

    if @PI_id_stabile is null 
          SET @strSelect = 'select id_immobile,id_inquilino, 
              indirizzo, n_civico, piano, scala, interno, 
              tipo_immobile 
              from Unità_Immobiliari 
              where id_soc = ' + @PI_id_soc + ' and affittato=0 
              order by indirizzo, n_civico,scala, piano, interno'
    else 
          SET @strSelect = 'select select u.id_immobile, 
              u.id_inquilino, s.indirizzo, s.n_civico, 
              u.piano, u.scala, u.interno, u.tipo_immobile 
              from Unità_Immobiliari as u, Stabili as s 
              where u.id_stabile = s.id_stabile and u.id_stabile = ' 
              + @PI_id_stabile + ' and affittato =0 
              order by s.indirizzo,s.n_civico,u.scala, u.piano, 
              u.interno'

EXEC(@strSelect)
GO

[Melly]

Originariamente inviato da darkblOOd
si, contento...

dimmi un pò...la stored ti restituisce i valori completi o senza il primo record? Nel senso: hai provato a lanciare la stored...chennesò, con query analyzer?

altrimenti puoi fare una cosa, prova cos':

com.CommandText = "EXEC SP_ElencoUI_Sfitte" 
' questo lo togli --> com.CommandType = adCmdStoredProc

cmq verifica che non sia un problema di stored (cioè non della chiamata alla stessa, ma che non sia il codice memorizzato sul server a restituire un risultato errato)

al limite posta anche il codice del datareport

si ho provato a lanciare la stored dal query analaizer ed il numero dei record è corretto



proverò come mi hai detto....

magari funziona pure

[Melly]

Originariamente inviato da darkblOOd
si, contento...

dimmi un pò...la stored ti restituisce i valori completi o senza il primo record? Nel senso: hai provato a lanciare la stored...chennesò, con query analyzer?

altrimenti puoi fare una cosa, prova cos':

com.CommandText = "EXEC SP_ElencoUI_Sfitte" 
' questo lo togli --> com.CommandType = adCmdStoredProc

cmq verifica che non sia un problema di stored (cioè non della chiamata alla stessa, ma che non sia il codice memorizzato sul server a restituire un risultato errato)

al limite posta anche il codice del datareport

non funziona...

[Melly]

Originariamente inviato da ladyBlu
a prescindere dal tuo problema, io avrei scritto semplicemente così:

rcs.Open "EXEC SP_ElencoUI_Sfitte 42, 15", cnn, 1, 3 
Set DRElencoUISfitte.DataSource = rcs 
DRElencoUISfitte.Show

semplicemente perchè non mi piace usare i command, ma è questione di abitudini

e la stored l'avrei scritta così:

Procedure Sp_ElencoUI_Sfitte 

    @PI_id_soc numeric, 
    @PI_id_stabile numeric
AS 

    DECLARE @strSelect VARCHAR(500)

    if @PI_id_stabile is null 
          SET @strSelect = 'select id_immobile,id_inquilino, 
              indirizzo, n_civico, piano, scala, interno, 
              tipo_immobile 
              from Unità_Immobiliari 
              where id_soc = ' + @PI_id_soc + ' and affittato=0 
              order by indirizzo, n_civico,scala, piano, interno'
    else 
          SET @strSelect = 'select select u.id_immobile, 
              u.id_inquilino, s.indirizzo, s.n_civico, 
              u.piano, u.scala, u.interno, u.tipo_immobile 
              from Unità_Immobiliari as u, Stabili as s 
              where u.id_stabile = s.id_stabile and u.id_stabile = ' 
              + @PI_id_stabile + ' and affittato =0 
              order by s.indirizzo,s.n_civico,u.scala, u.piano, 
              u.interno'

EXEC(@strSelect)
GO

Ho provato anche così ma nell'esecuzione mi da una msgbox con scritto

Si sono verificati errori

bhò!!