Besoin d'aide avec VB6 et SQLRésolu

Question

Voici mon code de base:create table AGV
(CODEAGV                 numeric(10)           not null,
    REF                     char(20)              not null,
    UTILISATEUR             char(6)               null    ,
    TYPOPER                 char(1)               null    ,
    DATOPER                 datetime              null    ,
    OBSERVATION             char(250)             null    ,
    OFFID                   char(10)              null    ,
    NOM_AGV                 char(20)              null    ,
    FAX                     char(20)              null    ,
    TEL                     char(20)              null    ,
    VILLE                   char(20)              null    ,
    DIRECTION               char(20)              null    ,
    AGVDATEINST             datetime              null    ,
    AGVSTATUS               char(20)              null    ,
    constraint PK_AGV primary key (CODEAGV)  )
ma requete ne marche pas:strsql = "Insert into AGV (CODEAGV,REF,UTILISATEUR,TYPOPER,DATOPER,OBSERVATION,OFFID,NOM_AGV,FAX,TEL,VILLE,DIRECTION,AGVSTATUS,AGVDATEINST) values ('" & txt1 & "','" & txt2 & "','" & txt3 & "',getdate(),'" & txt5 & "','" & txt6 & "','" & txt7 & "','" & txt8 & "','" & txt9 & "','" & txt10 & "','" & txt11 & "','" & txt12 & "','" & txt14 & "','" & txt13 & "' )"

crn_c21 · Accepted Answer

Pfffff

il faut INSERT INTO à la place de INSERT

crn_c21 · Answer

Ne pas mettre de ' pour ajouter une variable dans un champ numerique!

strsql = "Insert into AGV (CODEAGV,REF,UTILISATEUR,TYPOPER,DATOPER,OBSERVATION,OFFID,NOM_AGV,FAX,TEL,VILLE,DIRECTION,AGVSTATUS,AGVDATEINST) values (" & txt1 & ",'" & txt2 & "','" & txt3 & "',getdate(),'" & txt5 & "','" & txt6 & "','" & txt7 & "','" & txt8 & "','" & txt9 & "','" & txt10 & "','" & txt11 & "','" & txt12 & "','" & txt14 & "','" & txt13 & "' )"

samag · Answer

Ca ne marche pas .Il m'affiche toujours 

Erreur d'execution '-2147217913 (80040e07)':
Erreur de conversion du type de données varchar en numéric.

crn_c21 · Answer

excuse moi!

strsql = "Insert into AGV (CODEAGV,REF,UTILISATEUR,TYPOPER,DATOPER,OBSERVATION,OFFID,NOM_AGV,FAX,TEL,VILLE,DIRECTION,AGVSTATUS,AGVDATEINST) values (" & convert(integer,txt1) & ",'" & txt2 & "','" & txt3 & "',getdate(),'" & txt5 & "','" & txt6 & "','" & txt7 & "','" & txt8 & "','" & txt9 & "','" & txt10 & "','" & txt11 & "','" & txt12 & "','" & txt14 & "','" & txt13 & "' )"

samag · Answer

VB6 n'accepte pas
Erreur de compilation attendu: expression
Merci d'avance

samag · Answer

strsql = "(Insert into AGV (CODEAGV,REF,UTILISATEUR,TYPOPER,DATOPER,OBSERVATION,OFFID,NOM_AGV,FAX,TEL,VILLE,DIRECTION,AGVSTATUS,AGVDATEINST) values (" & convert(Numeric, txt1) & ",'" & txt2 & "','" & txt3 & "',getdate(),'" & txt5 & "','" & txt6 & "','" & txt7 & "','" & txt8 & "','" & txt9 & "','" & txt10 & "','" & txt11 & "','" & txt12 & "','" & txt14 & "','" & txt13 & "' ))"
celle ci marche mais ne résouds pas le problème

Besoin d'aide avec VB6 et SQL

6 réponses

Discussions similaires