Discussion :

[georgeabitbol]

Bonjour,

Je cherche à enregistrer une date dans ma base...
Je rentre ma date dans un formulaire, dans un champ texte sur lequel j'ai appliqué un masque de saisie dd/mm/aaaa .

Mais je ne parviens pas à le convertir en smalldatetime...
J'ai ma procedure stockée qui prend mon parametre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SET p_dateDebut = cmAjout.CreateParameter( "@dateDebut", adDate, adParamInput, 50, dateDebut)

Mais ca me renvoie une erreur; je suppose que c'est parce que ma date est dans un champ text mais en réalité je sais pas vraiment :

L'application utilise une valeur d'un type incorrect pour l'opération en cours.

[MAMMAR]

Bonjour,

"@dateDebut"

c'est voulu ou c'est un oublie :

variable=@dateDebut

A+

[georgeabitbol]

Sans vouloir faire le boulet, ca m'arrangerai si tu pouvais être un peu plus loquace parce que là je vois pas vraiment ce que tu veux dire ...

[MAMMAR]

désolé de ne pas avoir été plus clair, je voulais seulement savoir que signifie: "@dateDebut"

car un nom de variable ne se met entre " ".

Ou bien j'ai mal saisi le sens de l'appel de ta procedure.


A+

[georgeabitbol]

Ben "@DateDebut" c(est le nom de la variable qui sera utilisé dans ma procédure stockée...
J'ai tujours fais ca et en fait ca marche très bien...

[MAMMAR]

peux tu me montrer comme tu l'utitilses dans ta procédure, ceci m'aidera à comprendre mieux.


A+

[georgeabitbol]

voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
CREATE PROCEDURE ajout (
	@dateDebut smalldatetime ,
	@dateFin smalldatetime ,
 
)  AS BEGIN TRANSACTION
 
 
INSERT INTO TRUC (Date_debut,Date_Fin) VALUES (@dateDebut,@dateFin);
 
 
COMMIT TRANSACTION
 
GO

Je recupere donc mes dates dans un champ text. Il faut apparement que jai les convertisse au format smalldatetime pour qu il accepte de me les inserer dans la base...

[Gandalf Le Blanc]

Slt,

voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
CREATE PROCEDURE ajout (
	@dateDebut smalldatetime ,
	@dateFin smalldatetime ,
 
)  AS BEGIN TRANSACTION
 
 
INSERT INTO TRUC (Date_debut,Date_Fin) VALUES (@dateDebut,@dateFin);
 
 
COMMIT TRANSACTION
 
GO

Je recupere donc mes dates dans un champ text. Il faut apparement que jai les convertisse au format smalldatetime pour qu il accepte de me les inserer dans la base...

Premiere remarque, ta procedure n'est pas correcte, surtout au niveau de la gestion des transactions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CREATE PROCEDURE ajout 
   @dateDebut smalldatetime , 
   @dateFin smalldatetime  
AS 
 
BEGIN TRANSACTION 
 
INSERT INTO TRUC (Date_debut,Date_Fin) VALUES (@dateDebut,@dateFin)
 
IF @@ERROR <> 0 GOTO QuitWithRollback 
 
COMMIT TRANSACTION 
 
GOTO   EndProc              
 
QuitWithRollback:
  IF (@@TRANCOUNT > 0) ROLLBACK TRANSACTION
 
EndProc: 
 
Return 0 
 
GO

Et pour faire appel de ta procedure avec ADO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
28
29
30
31
32
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim params As ADODB.Parameters
Dim param As ADODB.Parameter
 
' Create connection and command objects
Set cn = New ADODB.Connection
Set cmd = New ADODB.Command
 
' Set connection properties and open
cn.ConnectionString = "Provider=SQLOLEDB.1;Password=*****;Persist Security Info=True;User ID=sa;Initial Catalog=tempdb;Data Source=******"
cn.Open
 
' Set command properties
With cmd
    Set .ActiveConnection = cn
    .CommandText = "ajout"
    .CommandType = adCmdStoredProc
    Set params = .Parameters
End With
 
' Define stored procedure params and append to command.
params.Append cmd.CreateParameter("@RETURN_VALUE", adInteger, adParamReturnValue, 0)
params.Append cmd.CreateParameter("@dateDebut", adDBTimeStamp, adParamInput, 0)
params.Append cmd.CreateParameter("@dateFin", adDBTimeStamp, adParamInput, 0)
 
' Specify input parameter values
params("@dateDebut") = MyVariable
params("@dateFin") = MyVariable
 
' Execute the command
cmd.Execute , , adExecuteNoRecords

a+

[georgeabitbol]

Danke

[georgeabitbol]

Heeeeeeeeeeeeuuuuuu
Juste une question à la con, le RETURN_VALUE, si il est égal à 0, c'est que ma transaction s'est bien passée ou l inverse ?

[Gandalf Le Blanc]

Heeeeeeeeeeeeuuuuuu
Juste une question à la con, le RETURN_VALUE, si il est égal à 0, c'est que ma transaction s'est bien passée ou l inverse ?

elle s'est bien passee.

a+