Type incompatible quand insertion d'une variable dans base AccessRésolu

Question

Bonjour &#224; tous,

Je suis toujours avec mes probl&#232;mes de programmation en VB6...

Donc cette fois ci j'ai besoin d'aide pour l'insertion d'une variable num&#233;rique dans une table Access.
La table Access a &#233;t&#233; cr&#233;&#233;e en ligne de code sql via du VB6, elle s'appelle Customer et contient 2 colonnes (Colonne et Colnum [Original non  ?])
Petite pr&#233;cision, je suis en settings Am&#233;ricain (L'appli doit &#234;tre utilis&#233;e aux US, donc les chiffres ont ce format 1,000.00)
Voil&#224; le bout de code :

    Const adOpenStatic = 3
    Const adLockOptimistic = 3
    Const adUseClient = 3
Dim oConnection
Dim oRecordset
Dim Titi As Currency

Set oConnection = CreateObject("ADODB.Connection")
Set oRecordset = CreateObject("ADODB.Recordset")

oConnection.Open "DSN=Quickbooks Data;"

oRecordset.CursorLocation = adUseClient
oRecordset.Open "SELECT TxnID, subtotal FROM Invoice ", oConnection, adOpenStatic, adLockOptimistic

Load_Access_Connection
While oRecordset.EOF() = False

        Titi = oRecordset.Fields(1).Value

        If IsNumeric(Titi) Then
        MsgBox (Titi)
        Else
        MsgBox ("bof")
        End If
        
        Access_Connection.Execute ("Insert into Customer(colnum) values ('" + Titi + "')")
        oRecordset.MoveNext
    End If
Wend

Au d&#233;but, le type de ma variable n'&#233;tait pas assign&#233;, donc j'ai test&#233; tous les types, &#231;a change rien.
Dans mon fichier Access, Colnum est bien en num&#233;rique.

Voici un bout de code qui marche lui :

Dim Toto
Load_Access_Connection
Toto = "32.3"
Access_Connection.Execute ("Insert into Customer(colnum) values ('" + Toto + "')")

Et je vois pas trop la diff&#233;rence avec mon bout de code... sauf le recordset, c'est vrai...

J'esp&#232;re que vous pourrez m'aider et je vous en remercie par avance 
&#231;a fait 2 jours que je suis bloqu&#233;e sur &#231;a 

Bonne journ&#233;e,
C&#233;line.

Renfield · Accepted Answer

si toto est num&#233;rique, ne fais pas 
Toto = "32.3"
mais 
Toto = 32.3

d'autre part, on ne concat&#232;ne JAMAIS en utilisant le symbole '+'   mais bien en utilisant '&'

Renfield
Admin CodeS-SourceS - MVP Visual Basic

olixelle · Answer

Salut :)

ton probl&#232;me vient des apostrophes autour de ta valeur: ces derni&#232;res ne sont utilises que pour les valeurs de type texte ou date.
Dans ton cas tu dois mettre:
Access_Connection.Execute ("Insert into Customer(colnum) values (" + Toto + ")")

Voila :)

Rollerman

cecelecyborg · Answer

Bonjour,



J'avais d&#233;j&#224; essay&#233; sans les simple quote mais &#231;a ne marchait pas 

Pour la concat&#233;nation, je ne suis pas pro du tout en VB6, merci pour le tuyau 



Enfin, j'ai r&#233;ussi &#224; trouver une solution &#224; mon piti probl&#232;me :
je rappelle mon souci : J'ai un champ Num&#233;rique dans une base Access que je veux renseigner. Je lui mets un chiffre via un recordset, marche pas m&#234;me avec un CCur() sur la valeur...

Et bien, la solution, c'est justement faire l'inverse de ce que je veux obtenir...  Voil&#224; la ligne qui marche sans l'erreur Type Incompatible =>
        Access_Connection.Execute ("Insert into Customer(colnum) values ('" & CStr(oRecordset.Fields(1).Value) & "')")

Oui, vous lisez bien, je passe ma variable en texte pour qu'elle soit en Num&#233;rique...
Donc plus de messages d'erreurs en faisant &#231;a et surtout, dans ma table Access, les donn&#233;es sont bien enregistr&#233;es et sont en format Num&#233;rique...

Y'a de quoi perdre des neurones 
Bonne journ&#233;e,
C&#233;line

Type incompatible quand insertion d'une variable dans base Access

3 réponses

Discussions similaires