Erreur d'exécution '13' type incompatibe

**Rahim29** · 16/06/2008, 12h19

Bonjour,
je developpe une application sous vb6 avec sql server 2005,et lors du transfer des données sur la base de donnée j'ai un message d'erreur qui s'affiche 'Erreur d'exécution '13' type incompatibe '
j'ai crée une procédure stocker qui fait un transfére de données sur deux base une qui contient toutes les factures nomé Ligne_factures et l'autre contient le globale des factures nomée facture
l'importation du file ecxel s'exécute normalement mais dés que j'exécute le transfére vers la BD j'ai le message déja cité
voila mon code source et la procédure stocké globale

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
Private Sub Btn_Transfére_Click()
 Dim C, L, Nbr As Long
 
 If Qr_DE.Qr_DE.State = 1 Then Qr_DE.Qr_DE.Close
 Qr_DE.Qr_DE.Open
 
 Qr_DE.Get_DT_Server
 Dt_Server = Qr_DE.rsGet_DT_Server("DT_Server")
 Qr_DE.rsGet_DT_Server.Close
 'If RS.State = 1 Then RS.Close
 
 Nbr = FG.Rows
 
 For L = 1 To Nbr - 1
 
      Qr_DE.PR_Insert_All_QR FG.TextMatrix(L, 1), FG.TextMatrix(L, 2), _
      "04", FG.TextMatrix(L, 3), FG.TextMatrix(L, 4), FG.TextMatrix(L, 5), _
      FG.TextMatrix(L, 6), FG.TextMatrix(L, 7), FG.TextMatrix(L, 8), _
      FG.TextMatrix(L, 9), FG.TextMatrix(L, 10), FG.TextMatrix(L, 11), _
       "", "000", "000", "00", "", "", Format(Dt_Server, "dd/MM/yyyy hh:mm:ss"), _
      User_Id, "", "", Patche_Label, "", "", "", FG.TextMatrix(L, 12), FG.TextMatrix(L, 13), _
      FG.TextMatrix(L, 14), FG.TextMatrix(L, 15), FG.TextMatrix(ligne, 16), FG.TextMatrix(L, 17), _
      FG.TextMatrix(L, 18), FG.TextMatrix(L, 19), "", Patche_Ref
 
 Next L
 
 
 
End Sub

Procédure stockée

Code sql :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
 
 
 
ALTER procedure [dbo].[PR_Insert_All_QR] 
           (@DMSATransactionID nvarchar(10),
            @TABSTransactionID nvarchar(10),
	@ClientID nchar(10) ,
	@CustomerID  nvarchar(10),
	@Action_Date datetime,
	@InvoiceNo  nvarchar(10),
             @TABSAccountNo nvarchar(10),
	@ProductID numeric(18, 0),
	@Expire_Date datetime, 
	@AgentID nvarchar(10),
	@PU nvarchar(10),
 	@Quantity numeric(18, 0),
             @MNT_HT_Prd nvarchar(10),
	@Distrib float,
             @zone nvarchar(15),
             @flag nchar(10),
	@day int,
	@Resultat nvarchar(10),
             @Date_Now datetime,
             @User_Name nvarchar(10),			
	@Date_Entry datetime,
             @User_Entry numeric,
	@Patche nvarchar(50),
	@Mnt_HT numeric,
             @Mnt_TTC1 numeric,
             @Mnt_TTC2 numeric,
 
	@Nom nvarchar(50),
	@Adresse nvarchar(250),
             @Wilaya nvarchar(50),
	@commune nvarchar(50),
             @code_postal nchar(10),
             @MainPhone nvarchar(10),
             @HommePhonne nvarchar(9),
             @Comments nvarchar(50),
             @Date_Collecte datetime,
             @Patche_Ref int)
 
AS
declare @ref_fact nvarchar (8)
if not exists (select ref_fact from facture where InvoiceNo=@InvoiceNo and ClientID=@ClientID)
begin
exec @ref_fact = dbo.QR_FN_GetNewRef_fact  Get_DT_Server 
 
exec PR_Insert_Facture_QR  @Ref_fact,@InvoiceNo,@CustomerID,@Nom,@ClientID 
           ,@Adresse ,@commune ,@Wilaya ,@code_postal ,@Action_Date ,@Expire_Date
           ,@MainPhone, @HommePhonne, @Distrib ,@zone ,@flag, @day, @Resultat
           ,@Date_Collecte ,@Date_Entry ,@User_Entry , Get_DT_Server,@User_Name
           ,@Patche ,@Mnt_HT ,@Mnt_TTC1 ,@Mnt_TTC2
 end 
 
set @ref_fact=(select ref_fact from facture where InvoiceNo=@InvoiceNo and ClientID=@ClientID )
 
 
exec PR_Insert_Ligne_Fact   @DMSATransactionID , @TABSTransactionID ,
            @CustomerID ,@TABSAccountNo ,@InvoiceNo ,@ProductID ,
            @AgentID , @PU ,@MNT_HT_Prd , @Quantity ,@Ref_Fact ,@Patche_Ref

Merci

**ProgElecT** · 16/06/2008, 12h51

Code :

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

Dim C, L, Nbr As Long

C et L sont considere comme variant, seul Nbr est bien typé Long

Code :

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

Dim C As Long, L As Long, Nbr As Long

lors du transfer des données

lors de l'arrêt pour raison d'erreur, sélectionne tour a tour chacun des FG.TextMatrix(L, c), en restant quelque secondes dessus avec le curseur, tu pourras voir sa valeur, je pense que tu en déduiras le pourquoi de l'erreur.