[SQL]Insert into Values

Version imprimable

07/08/2006, 11h32
Pitou5464

[SQL]Insert into Values
Salut à tous,

Je voudrai insérer dans deux champs d'une de mes tables deux valeurs a et b
Code:

1 2 3 Dim str As String str = "INSERT INTO T_Historique2 (TYPE, DATE) VALUES ('a', 'b')" DoCmd.RunSQL str
j'ai une erreur de syntax mais je vois pas laquelle. Merci pour votre aide.
07/08/2006, 11h38
issam16

salut,
est ce que Date c'est de type date?
si oui je crois qu'il faut faire entre # plutôt que ' .
:D
07/08/2006, 11h39
Pitou5464

Le date de ma requête SQL c'est un champ
07/08/2006, 11h41
issam16

Citation:

Envoyé par Pitou5464

Le date de ma requête SQL c'est un champ

je crois qu'on s'est mal compris je te parle de DATE le champ de ta table ou tu veux inserer?
07/08/2006, 11h42
zesamoth
Bonjour,

Pour ma part, mais je ne veux pas t'induire en erreur, il me semble que les cotes dont tu entoures tes valeurs a et b s'utilisent pour des valeurs de type string. Donc dans ton cas tu devras faire :
Code:

1 2 str = "INSERT INTO T_Historique2 (TYPE, DATE) VALUES ('a', b);"
Et ne pas oublier le point virgule (mais je crois que ça fonctionne que tu le mettes ou pas). ;) Voila j'éspère que ça va marcher

Bon courage
07/08/2006, 11h45
Pitou5464

ça ne marche pas, il me met toujours qu'il y a une erreur de syntaxe.
07/08/2006, 11h47
zesamoth

essayez voir de faire

Code:

str = "INSERT INTO T_Historique2 (TYPE, DATE) VALUES ('a', #b#);"

Comme te le dis Issam

@+
07/08/2006, 11h48
issam16

Citation:

Envoyé par Pitou5464

ça ne marche pas, il me met toujours qu'il y a une erreur de syntaxe.

t'as essayé le code de sezamoth?
07/08/2006, 11h51
Pitou5464
c'est bon, j'ai corriger le tir lol, en fait il voulai juste des crochets autour des champs. Des fois ça tiens a rien sans rire
Merci pour votre aide.
Code:

1 2 3 4 5 Dim str As String Dim a As String a = Me.TYPE.Value str = "INSERT INTO T_Historique2 ([TYPE], [DATE]) VALUES ('" & a & "', date())" DoCmd.RunSQL str

bonjour.

Je pense que tu veux mettre à jour certains champs de la table concernant un article existant.

Dans ce cas, un Edit serait plus approprié:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim view_matable as DAO.RecordSet
 
cde_SQL = "SELECT [matable].* " & _
            "FROM [matable] " & _
            "WHERE (([matable].[date] = #" & date & "#) " & _
            "AND ([matable].[type] = '" & type & "'))"
 
Set view_matable = CurrentDb.OpenRecordset(cde_SQL)
 
'on modifie les valeurs
If view_matable.RecordCount > 0 Then
    view_matable.MoveFirst
    view_matable.Edit
        view_matable.Fields("type") = type
        view_matable.Fields("date") = date
      view_matable_membre.Update
End If

Dis m'en des nouvelles!!

07/08/2006, 12h01
Pitou5464

ouais, en effet c'est une autre façon d'aborder les choses. mais bon moi je suis partisan du code en moins de ligne possible. meme si le tien est plus propre c sur. Merci pour ton aide