[VB+SQL Server] Cursore Non Dichiarato

[bubu80]

Ciao a tutti,

Allora ho un problema che mi sta facendo perdere la pazienza...

In pratica ho alcune interrogazioni su un db... interrogazioni banalissime...sto lavorando con RDO (aime progetto ereditato)..cmq

apro dei resultset e gli chiudo subito dopo avere catturato le informazioni che mi interessano... a volte capita che non riesce ad
iniziallizare il resultset ... ecco il messaggio di errore...


40002 : 37000: [Microsoft][ODBC SQL Server Driver][SQL Server]The cursor was not declared.



Ciao a tutti...

[Johnny_Depp]

per parlare si VB abbiamo il subforum apposito. sposto là
n.b. nel titolo devi specificare anche la versione (come da regolamento)

[Brainjar]

Se non posti il codice non ti possiamo aiutare.
(dovresti, tra parentesi, specificare anche la versione di VB).

ciao,

[bubu80]

Ops scusate, non mi sono accorto del SubForum

VB6 + SP6
SQL Server 2000 SP3


Sono sotto transazione...

        Sql = "SELECT Quantity, BaseEn, BaseL, BaseT, BsDocE, BsDocL, BsDocT FROM MAGAZZINO_B"
        Sql = Sql + vbCrLf + " WHERE "
        Sql = Sql + vbCrLf + "  ICode = '" + Articolo + "'"
        Sql = Sql + vbCrLf + "  AND BNum = '" + Lotto + "'"
        Sql = Sql + vbCrLf + "  AND Dction = 0"

        Set RS5 = File_DB.OpenResultset(Sql, rdOpenKeyset, rdConcurValues, rdExecDirect)
        
        If Not RS5.EOF Then
            GoSub TrovaPrezzo
            GoSub CPrezzoNuovo
        Else
            RS5.Close
            
            Sql = "SELECT LAV, ART, LOTTO, QUANTITA "
            Sql = Sql & " FROM MAGAZZINO_S "
            Sql = Sql & " WHERE TMOVE='S' AND LAV ='" & IDLav & "'"
            Set RS4 = File_DB.OpenResultset(Sql, rdOpenKeyset, rdConcurValues, rdExecDirect) 
            
            TLog ll, sLAMM, ALLINFO, True
            
            If Not RS4.EOF Then
                Articolo = Trim(RS4!ART)
                Lotto = Trim(RS4!LOTTO)
                GoSub TrovaPrezzo
                GoSub CPrezzoNuovo
            Else
                'Condizioni
            End If
            RS4.Close
        End If

Quando istanzio il resultset RS4 mi da il messaggio di errore

Ciao

[bubu80]

HELP UP

[Brainjar]

Prova a sostituire rdOpenKeyset con rdOpenDynamic nella :

Set RS4 = File_DB.OpenResultset(Sql, rdOpenKeyset, rdConcurValues, rdExecDirect)

Dovresti, cominque, postare anche il codice di apertura della
connesisone e della dichiarazione dei Recordset. Perchè la
dichiarazione del cursore la devi fare a livello di rdoEngine o
a livello di rdoEnvironments :

rdoEngine.rdoDefaultCursorDriver = rdUseODBC

oppure

rdoEnvironments(0).CursorDriver = rdUseOdbc

Ciao,

[bubu80]

Utilizzo questo

File_WK.CursorDriver = rdUseIfNeeded

File_WK = rdoEnvironments

[bubu80]

non riesce ad aiutarmi nessuno??

HELPPP

[Brainjar]

Quello che hai postato non è il codice di apertura della
connessione, deve essere qualcosa simile a :

strConnect = "Driver={SQL Server}; Server=myServer; " & _
                     "Database=pubs; Uid=sa; Pwd="
        Set cn = rdoEnvironments(0).OpenConnection(dsName:="", _
                                              Prompt:=rdDriverNoPrompt, _
                                              ReadOnly:=False, _
                                              Connect:=strConnect)

Comunque devi impostare :

rdoEngine.rdoDefaultCursorDriver = rdUseODBC

' Commenta questa istruzione
' File_WK.CursorDriver = rdUseIfNeeded

'Inserisci questa istruzione
rdoEngine.rdoDefaultCursorDriver = rdUseODBC

File_WK = rdoEnvironments.Open .........

Ciao,