requete

comment gerer l'ajout d'information ds une table access, lorsqu'un champ est une clé etrangere d'une autre table

Salut
je comprends pas trop le sens de ta question?

Une clé étrangère n'empêche pas l'ajout de données dans la BD

a+

en fai javai une erreur, et il me disai qu'un de mes champs etai utilisé autre part et donc il ne pouvait faire l'ajout, car jai un formulaire qui utilise une table et une frame qui en utilise une autre, je souhait donc mettre un bouton ajouter, supprimer, modifier.:

SQL = "Insert into TRIATHLON (nom_tri,lieu_tri,date_tri,Code_type_tri) values ('" & Combo1.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "')"
ExecRequete (SQL)
SQL2= "Insert into TYPE DE TRIATHLON (Code_type_tri, design_type_tri, dist_nat, dist_cyc, dist_cap) values ('" & Combo2.Text & "','" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "', '" & Text4.Text & "')"
ExecRequete (SQL2)


-------------------------------
Réponse au message :
-------------------------------

> Salut
> je comprends pas trop le sens de ta question?
>
> Une clé étrangère n'empêche pas l'ajout de données dans la BD
>
> a+

T'avais une erreur, t'as plus?

si jai tjrs lol, pour l'update jai une erreur de syntaxe
SQL = "Update TRIATHLON set nom_tri=" & Combo1.Text & ", lieu_tri='" & Text5.Text & "', date_tri='" & Text6.Text & " ', code_type_tri='" & Text7.Text & " ' where nom_tri='" & Combo1.Text & "'"
SQL2 = "Update TYPE DE TRIATHLON set Code_type_tri='" & Combo2.Text & "', design_type_tri='" & Text1.Text & "', dist_nat='" & Text2.Text & "',dist_cyc='" & Text3.Text & "', dist_cap='" & Text4.Text & "'"
ExecRequete (SQL2)
ExecRequete (SQL)



-------------------------------
Réponse au message :
-------------------------------

> T'avais une erreur, t'as plus?

encadre tes dates avec # en faisant attention au format
et ton combo1.text avec ' (t'as oublié je crois)
BasicInstinct


-------------------------------
Réponse au message :
-------------------------------

> si jai tjrs lol, pour l'update jai une erreur de syntaxe
> SQL = "Update TRIATHLON set nom_tri=" & Combo1.Text & ", lieu_tri='" & Text5.Text & "', date_tri='" & Text6.Text & " ', code_type_tri='" & Text7.Text & " ' where nom_tri='" & Combo1.Text & "'"
> SQL2 = "Update TYPE DE TRIATHLON set Code_type_tri='" & Combo2.Text & "', design_type_tri='" & Text1.Text & "', dist_nat='" & Text2.Text & "',dist_cyc='" & Text3.Text & "', dist_cap='" & Text4.Text & "'"
> ExecRequete (SQL2)
> ExecRequete (SQL)
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > T'avais une erreur, t'as plus?
>

Pour les ajouts, modifs et suppression, j'utilise plus les commandes SQL, mais les commandes VB.
c + facile à repere ses erreurs

Donc pour modif je ferai:

Req="SELECT * FROM TRIATHLON WHERE nom_tri = " & combo1.text"

Set cursReq = bd.open ...

CursReq.edit //Edition de la base de données
CursReq![nom_tri] = combo1.text
CursReq![lieu_tri] = ...
CursReq.update // Accepter les changement

et voili!

commen je defini la table que jutilise?
je compren pa tres bien le "set cursreq"
-------------------------------
Réponse au message :
-------------------------------

> Pour les ajouts, modifs et suppression, j'utilise plus les commandes SQL, mais les commandes VB.
> c + facile à repere ses erreurs
>
> Donc pour modif je ferai:
>
> Req="SELECT * FROM TRIATHLON WHERE nom_tri = " & combo1.text"
>
> Set cursReq = bd.open ...
>
> CursReq.edit //Edition de la base de données
> CursReq![nom_tri] = combo1.text
> CursReq![lieu_tri] = ...
> CursReq.update // Accepter les changement
>
> et voili!

je les met ou les #


-------------------------------
Réponse au message :
-------------------------------

> encadre tes dates avec # en faisant attention au format
> et ton combo1.text avec ' (t'as oublié je crois)
> BasicInstinct
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > si jai tjrs lol, pour l'update jai une erreur de syntaxe
> > SQL = "Update TRIATHLON set nom_tri=" & Combo1.Text & ", lieu_tri='" & Text5.Text & "', date_tri='" & Text6.Text & " ', code_type_tri='" & Text7.Text & " ' where nom_tri='" & Combo1.Text & "'"
> > SQL2 = "Update TYPE DE TRIATHLON set Code_type_tri='" & Combo2.Text & "', design_type_tri='" & Text1.Text & "', dist_nat='" & Text2.Text & "',dist_cyc='" & Text3.Text & "', dist_cap='" & Text4.Text & "'"
> > ExecRequete (SQL2)
> > ExecRequete (SQL)
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > T'avais une erreur, t'as plus?
> >
>

a la place des ' : exemple
update table set date=#01/01/2003# where....
BasicInstinct


-------------------------------
Réponse au message :
-------------------------------

>
> je les met ou les #
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > encadre tes dates avec # en faisant attention au format
> > et ton combo1.text avec ' (t'as oublié je crois)
> > BasicInstinct
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > si jai tjrs lol, pour l'update jai une erreur de syntaxe
> > > SQL = "Update TRIATHLON set nom_tri=" & Combo1.Text & ", lieu_tri='" & Text5.Text & "', date_tri='" & Text6.Text & " ', code_type_tri='" & Text7.Text & " ' where nom_tri='" & Combo1.Text & "'"
> > > SQL2 = "Update TYPE DE TRIATHLON set Code_type_tri='" & Combo2.Text & "', design_type_tri='" & Text1.Text & "', dist_nat='" & Text2.Text & "',dist_cyc='" & Text3.Text & "', dist_cap='" & Text4.Text & "'"
> > > ExecRequete (SQL2)
> > > ExecRequete (SQL)
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > T'avais une erreur, t'as plus?
> > >
> >
>