Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Acer TravelMate P4 14: tanta sostanza per l'utente aziendale
Acer TravelMate P4 14: tanta sostanza per l'utente aziendale
Forte di soluzioni tecniche specifiche, il notebook Acer TravelMate P4 14 abbina dimensioni compatte e buona robustezza per rispondere alle necessità specifiche degli utenti aziendali. La piattaforma AMD Ryzen 7 Pro assicura prestazioni elevate con i tipici ambiti di produttività personale e sul lavoro, mantenendo un'elevata autonomia.
Hisense M2 Pro: dove lo metti, sta. Mini proiettore laser 4K per il cinema ovunque
Hisense M2 Pro: dove lo metti, sta. Mini proiettore laser 4K per il cinema ovunque
Dal salotto al giardino, il nuovo proiettore laser di Hisense promette esperienze cinematografiche in qualsiasi contesto: qualità d’immagine, semplicità d’uso, versatilità e prezzo competitivo il suo poker d'assi
Lenovo ThinkPad X1 2-in-1 G10 Aura Edition: il convertibile di classe
Lenovo ThinkPad X1 2-in-1 G10 Aura Edition: il convertibile di classe
La flessibilità di configurazione è il punto di forza di questo 2-in-1, che ripropone in un form factor alternativo tutta la tipica qualità dei prodotti Lenovo della famiglia ThinkPad. Qualità costruttiva ai vertici, ottima dotazione hardware ma costo che si presenta molto elevato.
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 09-12-2009, 23:37   #1
bertani8
Senior Member
 
L'Avatar di bertani8
 
Iscritto dal: Jul 2002
Messaggi: 1608
[VB6 - Stored Procedure sql2005]

devo eseguire una stored procedure su sql passando dei parametri da vb6:
vi posto quello che ho scritto, ma mi ritorna un errore nel recordset (
l' operazione non è cosentita se l' oggetto è chiuso)

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[spWrkOrdiniImpegniGetLastNumber]
@TipoDocumento int,
@DocAnno int,
@DocAlfa VarChar(2)
As
Declare @DocProgressivo int
Select Top 1 @DocProgressivo = DocProgressivo
From OrdiniImpegni
Where TipoDocumento = @TipoDocumento And DocAnno = @DocAnno And IsNull(DocAlfa,'') = @DocAlfa And DocProgressivo <> 0
Order by DocProgressivo DESC
Set @DocProgressivo = IsNull(@DocProgressivo,0) + 1
Return @DocProgressivo


IL CODICE VB6

TipoDocumento = 54002
DocAnno = 2009
DocAlfa = "I"

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = CNSQL
.CommandType = adCmdStoredProc
.CommandText = "spWrkOrdiniImpegniGetLastNumber"
.Parameters.Append cmd.CreateParameter_
("@tipodocumento", adInteger, adParamInput, 6, TipoDocumento)
.Parameters.Append cmd.CreateParameter_
("@docanno", adInteger, adParamInput, 4, DocAnno)
.Parameters.Append cmd.CreateParameter_
("@docalfa", adVarChar, adParamInput, 2, DocAlfa)
End With

Set TMP = New ADODB.Recordset
Set TMP = cmd.Execute

If Not TMP.EOF Then
txt_number = TMP.Fields(0)
End If

PS: CNSQL (la stringa di connessione a sql è ok)

HELP ME!
grazie in anticipo
__________________
Asus P8P67 DLX, I7-2600K @ 4.00 Ghz, Thermalright True120, 8Gb Corsair Vengeance 1600 Mhz; gtx 760 DCII 2gb, Corsiar 520W, Cooler Master Cosmos 1000, SSD Corsair GT sata3 120Gb, 2 x WD 2TB + WD 500Gb+400Gb+ ..+ ..~ƒ☺

Ultima modifica di bertani8 : 09-12-2009 alle 23:47.
bertani8 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Acer TravelMate P4 14: tanta sostanza per l'utente aziendale Acer TravelMate P4 14: tanta sostanza per l'uten...
Hisense M2 Pro: dove lo metti, sta. Mini proiettore laser 4K per il cinema ovunque Hisense M2 Pro: dove lo metti, sta. Mini proiett...
Lenovo ThinkPad X1 2-in-1 G10 Aura Edition: il convertibile di classe Lenovo ThinkPad X1 2-in-1 G10 Aura Edition: il c...
Intervista a Stop Killing Games: distruggere videogiochi è come bruciare la musica di Mozart Intervista a Stop Killing Games: distruggere vid...
Samsung Galaxy S25 Edge: il top di gamma ultrasottile e leggerissimo. La recensione Samsung Galaxy S25 Edge: il top di gamma ultraso...
Amazfit GTR 3 crolla a 69€: ma è solo l’...
Wyoming, un datacenter AI potrebbe consu...
Ancora più giù i prezzi de...
TIM aumenta i prezzi delle offerte mobil...
Apple aggiorna tutto: iOS 18.6, macOS Se...
YouTube saprà quanti anni hai, an...
Meta AI su WhatsApp: l'Antitrust apre un...
Tantissima sostanza, batteria da 7000mAh...
Legge sui social in Australia: YouTube i...
100€ di sconto reale, solo 399€ per la P...
Oggi i Macbook Air da 13 pollici con chi...
Meta ruba il futuro dell'AI ad Apple: fu...
Torna a 104€ il robot bestseller Lefant ...
Groq, la startup che vuole sfidare NVIDI...
AMD Ryzen AI Max+: ora anche gli LLM da ...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 10:35.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Served by www3v