VB.Net Requete SQL et date ??? [Résolu]
cs_MagDix
- Messages postés
- 532
- Date d'inscription
- lundi 5 juin 2006
- Dernière intervention
- 6 octobre 2012
- Messages postés
- 58
- Date d'inscription
- lundi 22 juin 2009
- Dernière intervention
- 10 juin 2011
A voir également:
- Vb.net requete sql et date ???
- Vb.net + requete SQL sur un champs "date" ✓ - Forum - VB.NET
- [Renommé] ✓ - Forum - VB.NET
- VB.Net requête SQL qui ne fonctionne pas ✓ - Forum - SQL
- VB.Net Requete SQL Concatener 4 cellule en 1 ✓ - Forum - VB.NET
- VB.Net Requête SQL avec Underscore ("_") ✓ - Forum - VB.NET
9 réponses
Meilleure réponse
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Dernière intervention
- 28 août 2015
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)
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 92 internautes ce mois-ci
- Messages postés
- 532
- Date d'inscription
- lundi 5 juin 2006
- Dernière intervention
- 6 octobre 2012
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à ?
- Messages postés
- 532
- Date d'inscription
- lundi 5 juin 2006
- Dernière intervention
- 6 octobre 2012
- Messages postés
- 57
- Date d'inscription
- mardi 25 février 2003
- Dernière intervention
- 27 janvier 2011
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Dernière intervention
- 28 août 2015
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)
- Messages postés
- 57
- Date d'inscription
- mardi 25 février 2003
- Dernière intervention
- 27 janvier 2011
- Messages postés
- 58
- Date d'inscription
- lundi 22 juin 2009
- 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
- Messages postés
- 57
- Date d'inscription
- mardi 25 février 2003
- Dernière intervention
- 27 janvier 2011
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
- Messages postés
- 58
- Date d'inscription
- lundi 22 juin 2009
- 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)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.