[VB.NET] Récupération de l'ID d'un enregistrement crée

Version imprimable

19/05/2004, 14h43
Webman

[VB.NET] Récupération de l'ID d'un enregistrement crée

Bonjour,

Par le biais d'un formulaire les utilisateurs rentrent des données dans une base SQL Server. Ils peuvent aussi par ce même formulaire uploader des fichiers sur le serveur. Mon problème se situe dans la gestion de ces fichiers. En effet quand un utilisateur rentre des infos elles sont stockées par fiches avec un identifiant unique qui est une clé primaire. Je voudrais renommer le fichier qui est uploadé avec ce formuaire avec le numéro identifiant de la fiche à laquelle il est associé. Ainsi si l'utilsiateur crée la fiche 255 et bien le fichier qu'il a uploadé sera renommé 255.doc

En fait là où j'ai besoin de vous c'est de savoir comment récupérer l'identifiant qui est associé à l'enregistrement que je crée car l'opération de création de la fiche et d'upload du fichier se réalise en une seule fois...
Est-ce que je suis obligé de passer par une procédure stockée pour retourner cette valeur (l'identifiant de la fiche crée) ou y a t'il une autre solution ?

Merci par avance de votre aide !

PS: Si je n'ai pas été clair n'hésitez pas à demander des précisions :)
19/05/2004, 14h50
Keihilin
Tu n'est pas obligé de passer par une procédure stockée...

Avec SQL Server, tu peux faire :
Code:

1 2 SELECT Ident_Current('tableName')
Cette requête te renvoit le dernier Id automatique insérer dans une table...

Sinon, tu peux aussi utiliser
Code:

1 2 SELECT @@Identity
qui va te renvoyer le dernier Id auto généré au niveau de la base.

Tu peux utiliser l'une ou l'autre de ces requête juste après ton insert, mais attention, si tu n'es pas dans une transaction, tu n'as pas la garantie que la veleur retournée soit effectivement celle que tu souhaites traiter...un autre insert peut s'intercaller...
19/05/2004, 14h58
Webman

Ok merci beaucoup c'est nickel ! Dans un premier temps ca va me premettre de me passer de la procédure stockée qui est plus lourde à mettre en oeuvre... De toute façon la probailité que deux enregistrement soient crées au même moment est proche de zéro... sachant qu'il n'y aura pas plus de 5 utilisateurs...

Une fois que j'aurais fini le reste je me mettrais en place la procédure stockée et la gestion de transactions ca sera quand même plus "propre" et plus robuste !

Encore une petit question, les fonctions que tu m'a donné vont bien me renvoyer la clé primaire (qui est un ID auto incrémenté par SQL Server) de mon enregistrement crée ? Et pas un identifiant propre à SQL Server ?

Merci encore de ton aide et de ta réponse ultra rapide :)
19/05/2004, 15h06
Webman

C'est bon j'ai eu accès à mon serveur SQL Server et ca m'a permis de faire un test :) ca me renvoi bien la clé primaire :) c'est parfait :)

Encore merci
Webman :)
19/05/2004, 15h48
Webman
J'ai encore une question suite à un problème qui se pose dans la récup de cet ID.

Quel est le type de la donnée renvoyée par cette requete ? Car j'essaye de la récupérer aprés la requete et ca plante...

Voilà le code qui pose problème:
Code:

1 2 3 4 5 6 Dim DS2 As SQLDataReader = maRequete2.ExecuteReader() do while (DS2.Read()) ID = DS2.GetString(0) loop
Voilà l'erreur:

Code:

System.InvalidCastException: Specified cast is not valid.

Et voilà la requête:

Code:

maRequete2 = New SQLCommand("SELECT Ident_Current('Courrier')", maConnexionSQLsrv2)

J'ai essyé GetString(0) mais c'est pareil... je ne comprends pas...

Webman :)
19/05/2004, 15h52
Keihilin

Essais d'utiliser ExecuteScalar au lieu de ton reader...

A priori, il devrait renvoyé un numeric.

Voilà le code complet de ma "fonction"... j'ai modifié avec ExecuteScalar, mais j'ai toujours la même erreur... voilà le code d'origine.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
     Dim maConnexionSQLsrv2 As SQLConnection
     Dim maRequete2 As SQLCommand
     Dim ID As Integer
 
 
     Dim ConnexionSQL2 As String
     ConnexionSQL2 = ConfigurationSettings.AppSettings("ConnectionString")
     maConnexionSQLsrv2 = New SqlConnection(ConnexionSQL2)
 
     maRequete2 = New SQLCommand("SELECT Ident_Current('Courrier')", maConnexionSQLsrv2)
 
 
     maConnexionSQLsrv2.Open()
 
 
     Dim DS2 As SQLDataReader = maRequete2.ExecuteReader()
 
 
     do while (DS2.Read())
            ID = DS2.GetInt32(0)
     loop
 
 
     maConnexionSQLsrv2.Close()

19/05/2004, 15h59
Johan31

Effectivement Keihilin a raison...
Je te conseille pour faire simple de faire schématiquement et un peu en c# désolé...

string requeteAjout = "Insert ....... ; Select @@identity;";

puis

début transaction

try

Code:

int idGenere = Int32.Parse(maCommand.ExecuteScalar().ToString())

commit;
catch
rollback

ExecuteScalar renvoie un objet.
19/05/2004, 16h02
Webman

Je suis également tout à fait d'accord :) le problème est que je voudrais avoir un exemple fonctionnel avant de me lancer dans les transactions et tout ce qui va avec... C'est pour ca que cette solution me paraissait la meilleure pour le moment, je suis d'accord que c'est trés lourd et pas "propre" du tout !
19/05/2004, 16h05
Johan31
Ok pour les transcations mais je te donne aussi la soluce :wink:

remplace
Code:

1 2 3 4 5 6 Dim DS2 As SQLDataReader = maRequete2.ExecuteReader() do while (DS2.Read()) ID = DS2.GetInt32(0) loop
par en c# toujours

Code:

int IdGENERE = Int32.Parse(maRequete2.ExecuteReader().ToString() );

où la requete de la commande et ton insertion + ";" + "select @@identity;" ou "SELECT Ident_Current('Courrier');" peu importe!
19/05/2004, 16h07
Webman

Merci beaucoup c'est trés sympa :) là je dois bosser sur un autre truc urgent mais d'ici moins d'une heure je suis de retour et je mets ca en pratique !!! Merci de ton aide :) :) :)

Essais avec cette petite modification :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Dim maConnexionSQLsrv2 As SQLConnection 
Dim maRequete2 As SQLCommand 
Dim ID As Integer 
 
Dim ConnexionSQL2 As String 
ConnexionSQL2 = ConfigurationSettings.AppSettings("ConnectionString") 
maConnexionSQLsrv2 = New SqlConnection(ConnexionSQL2) 
 
maRequete2 = New SQLCommand("SELECT Ident_Current('Courrier') AS Result", maConnexionSQLsrv2) 
 
 
maConnexionSQLsrv2.Open() 
 
Dim Result as Long = CType(maRequete2.ExecuteScalar(), long)
 
maConnexionSQLsrv2.Close()

19/05/2004, 16h52
Webman

Me voilà de retour, mais manque de chance le serveur de l'herbergeur où sont mes fichiers de tests vient de tomber... :? Donc pour le moment je n'ai accès qu'a mon serveur local mais qui ne contient pas les pages que je veux... :? Je teste ca dès que ca revient :) Merci à tous les deux pour votre aide ! avoir deux version c'est toujours plus agréable qu'une seule ! et puis ca me permet d'apprendre des techniques diverses :) Je vous tiens au courant quand à l'application de vos solutions.

Webman :)

Pour le moment le code de Keihilin fonctionne, j'ai une erreur avec celui de Johan:

Code:

1
2
3
4
5
6
7
8
Exception Details: System.FormatException: Input string was not in a correct format.
 
Source Error: 
Line 94:     
Line 95:     
Line 96:          Dim IdGENERE As Integer = Int32.Parse(maRequete2.ExecuteReader().ToString())
Line 97:     
Line 98:

Je vais essayer de voir si je trouve d'où va vient, j'ai surement du faire une erreur...

Voilà le code avec la solution de Johan:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
     Dim maConnexionSQLsrv2 As SQLConnection
     Dim maRequete2 As SQLCommand
     Dim ID As Integer
 
     Dim ConnexionSQL2 As String
     ConnexionSQL2 = ConfigurationSettings.AppSettings("ConnectionString")
     maConnexionSQLsrv2 = New SqlConnection(ConnexionSQL2)
 
     maRequete2 = New SQLCommand("SELECT Ident_Current('Courrier')", maConnexionSQLsrv2)
 
     maConnexionSQLsrv2.Open()
 
 
     Dim IdGENERE As Integer = Int32.Parse(maRequete2.ExecuteReader().ToString())
 
 
     maConnexionSQLsrv2.Close()