A voir également:
- Format date access sql
- Format date sql access - Meilleures réponses
- Date access sql - Meilleures réponses
- Requete sql access pour les dates ✓ - Forum - SQL
- Format de date - BETWEEN ✓ - Forum - SQL
- Group By Format([DATE]) VBA - SQL ✓ - Forum - Visual Basic 6
- Format Date et SQL ✓ - Forum - Delphi / Pascal
- Format Date Access Vb.net ✓ - Forum - VB.NET
9 réponses
Salut
Quel type de base de données (Access, SQL Server ...) ?
Que donne ta chaine RequeteSQL après préparation ?
Tes champs textes comportent-ils des ' ?
Ton champ numérique possède t-il une virgule ou un point en guise de séparateur décimal ?
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Quel type de base de données (Access, SQL Server ...) ?
Que donne ta chaine RequeteSQL après préparation ?
Tes champs textes comportent-ils des ' ?
Ton champ numérique possède t-il une virgule ou un point en guise de séparateur décimal ?
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Bonjour alors voici les réponses:
Quel type de base de données (Access, SQL Server ...) ?
Que donne ta chaine RequeteSQL après préparation ? Ici je ne suis pas certain de ta question...
INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES (#2009-11-17#,100.00,'American Express','test')
Tes champs textes comportent-ils des ' ? Oui
Ton champ numérique possède t-il une virgule ou un point en guise de séparateur décimal ? C'est le point qui est utilisé mais mon Windows gère les virgules. Le bug peut-il venir de là ?
Quel type de base de données (Access, SQL Server ...) ?
Dans ma BD Acces ma colonne date est en format date Date/Heure avec un format Date, abrégé (2007-06-19 exemple d'Access).
Que donne ta chaine RequeteSQL après préparation ? Ici je ne suis pas certain de ta question...
INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES (#2009-11-17#,100.00,'American Express','test')
Tes champs textes comportent-ils des ' ? Oui
Ton champ numérique possède t-il une virgule ou un point en guise de séparateur décimal ? C'est le point qui est utilisé mais mon Windows gère les virgules. Le bug peut-il venir de là ?
Rebonjour
J'avais un erreur dans la liste de mes colonnes
"INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES ...
merci
J'avais un erreur dans la liste de mes colonnes
"INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES ...
merci
probablement, ton probleme reside dans la date. en effet Sql ne considere que les dates au format americain c'est a dire mois-jours-annee. bien sur il faut adjoindre les dieses.
vblover
vblover
Re
Access : ce n'était pas évident à découvrir.
Ok pour la chaine résultat avant soumission.
A part le format date qui n'est surement pas reconnu par Access, je ne vois pas d'ambigüité.
Champs texte avec ' : Je voulais dire que, si à l'intérieur de ton texte tu as des ', cela posera problème, exemple avec ce texte "rue d'
Iena".
Avec ce dernier exemple, la chaine de la requète deviendrait :
Il faut doubler les ' à l'intérieur de la chaine, si c'est le cas.
Point/Virgule : Oui, ça arrive. Faut tester.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Access : ce n'était pas évident à découvrir.
Ok pour la chaine résultat avant soumission.
A part le format date qui n'est surement pas reconnu par Access, je ne vois pas d'ambigüité.
Champs texte avec ' : Je voulais dire que, si à l'intérieur de ton texte tu as des ', cela posera problème, exemple avec ce texte "rue d'
Iena".
Avec ce dernier exemple, la chaine de la requète deviendrait :
INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES (#2009-11-17#,100.00,'American Express','rue d'Iena')Ici, bug garanti puisqu'il y a un nombre impair de '.
Il faut doubler les ' à l'intérieur de la chaine, si c'est le cas.
Point/Virgule : Oui, ça arrive. Faut tester.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
gillestang
- Messages postés
- 58
- Date d'inscription
- lundi 22 juin 2009
- Statut
- Membre
- Dernière intervention
- 10 juin 2011
c'est ce que tu fait :
RequeteSQL = "INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES (#" & _
txtDateAchat.Text & "#," & Me.txtPrixAchat.Text & ",'" & _
Me.cbxCarteAchat.Text & "','" & Me.txtDescriptionAchat.Text & "')"
essaie plutot ainsi : requetesql = "INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES (#" & _
"" & txtDateAchat.Text & "#," & Me.txtPrixAchat.Text & ",'" & _
"" & Me.cbxCarteAchat.Text & "','" & Me.txtDescriptionAchat.Text & "')"
beaucoup de courage
RequeteSQL = "INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES (#" & _
txtDateAchat.Text & "#," & Me.txtPrixAchat.Text & ",'" & _
Me.cbxCarteAchat.Text & "','" & Me.txtDescriptionAchat.Text & "')"
essaie plutot ainsi : requetesql = "INSERT INTO Paiements (Date,Prix,Carte,Description) VALUES (#" & _
"" & txtDateAchat.Text & "#," & Me.txtPrixAchat.Text & ",'" & _
"" & Me.cbxCarteAchat.Text & "','" & Me.txtDescriptionAchat.Text & "')"
beaucoup de courage
A moins que l'utilisateur saisisse la date au format americain dans txtdateachat, ce qui serait bizare, il faudrait passer par une conversion.
voici une fonction qui fait la conversion:
+++++++++++++++++++++++++++++++++++++++++++
Public Function dateformatamericain(ByVal str_Date As String) As String
Dim str_mois As String, str_jour As String, str_an As String
str_jour = Left(str_Date, 2)
str_mois = Mid(str_Date, 4, 2)
str_an = Right(str_Date, 2)
dateformatamericain = (str_mois + "-" + str_jour + "-" + str_an)
End Function
++++++++++++++++++++++++++++++++++++++++++++++
Dans ta requete sql remplace txtdateachat.text par dateformatamericain(txtdateachat.text).
ca devrait marcher a merveuille.
vblover
voici une fonction qui fait la conversion:
+++++++++++++++++++++++++++++++++++++++++++
Public Function dateformatamericain(ByVal str_Date As String) As String
Dim str_mois As String, str_jour As String, str_an As String
str_jour = Left(str_Date, 2)
str_mois = Mid(str_Date, 4, 2)
str_an = Right(str_Date, 2)
dateformatamericain = (str_mois + "-" + str_jour + "-" + str_an)
End Function
++++++++++++++++++++++++++++++++++++++++++++++
Dans ta requete sql remplace txtdateachat.text par dateformatamericain(txtdateachat.text).
ca devrait marcher a merveuille.
vblover
gillestang
- Messages postés
- 58
- Date d'inscription
- lundi 22 juin 2009
- Statut
- Membre
- Dernière intervention
- 10 juin 2011
Voici la fonction que moi j'ai trouvé sur le net et qui marché bien
Function ConvertDateFormat(ByVal DateAConvertir As String) As String
Dim str() As String = Split(DateAConvertir, "/")
ConvertDateFormat = str(0) + "/" + str(1) + "/" + str(2)
End Function
et dans ton code tu fais
txtdateachat.text = ConvertDateFormat(txtdateachat.text.ToString)
Function ConvertDateFormat(ByVal DateAConvertir As String) As String
Dim str() As String = Split(DateAConvertir, "/")
ConvertDateFormat = str(0) + "/" + str(1) + "/" + str(2)
End Function
et dans ton code tu fais
txtdateachat.text = ConvertDateFormat(txtdateachat.text.ToString)