Pb de MAJ ACCESS a cause des formats de date ... Aidez moi PLEASE! :PRésolu

Question

Salut all !

Voila g un souci, je planche dessus depuis kelkes jours et ca commence a me soualer la ... lol
En fait, g 2 soucis :

J'ai une BDD ACCESS, mes connexions, MAJ et tout fonctionnent sans pb avec ADO. Sauf sur une de mes pages sur la kelle je mets a jour une table dans la kelle il y a une colonne de dates ...

Je suppose ke c a cause du format ... une histoire de # autours de la date non? enfin kelke soit la maniere dont je l'ecrit, il menvoie bouler ...

Voici mon code :
===========================================================


Dim NewLigne 
As DataRow



'remplissage de la liste avec le dataset



Dim Matable 
As DataTable


Matable = DtSet.Tables("Document")





With DtSet



' Cr&#233;ation de la nouvelle ligne 


NewLigne = DtSet.Tables("Document").NewRow



'affectation des valeurs


NewLigne(0) = Matable.Rows.Count + 1


NewLigne(1) = ttitre.Text   


NewLigne(2) = tdate.Text 'ICI, la date est entr&#233; ds un textbox  (28/02/1983 par ex) ms la MAJ marche pa ....


NewLigne(3) = tpublic.Text


NewLigne(4) = tsupport.Text


NewLigne(5) = ttheme.Text


NewLigne(6) = tservice.Text


NewLigne(7) = tauteur.Text


NewLigne(8) = tmaisondedition.Text


NewLigne(9) = tnumrevue.Text


NewLigne(10) =tdatedepublication.Text


NewLigne(11) = tnomrevue.Text


NewLigne(12) = rtbresume.Text


NewLigne(13) = templacement.Text


NewLigne(14) = tnbrdexemplaires.Text


 



' Ajout de la ligne &#224; la table


.Tables("Document").Rows.Add(NewLigne)



' Mise a jour de la base


Connection.Open()



' Cr&#233;ation CommandBuilder 



'(genere automatiquement l'update entre le dataSet et la base de donn&#233;e



Dim CmdBuild 
As OleDbCommandBuilder


CmdBuild = 
New OleDb.OleDbCommandBuilder(Adapdocument)


Adapdocument.UpdateCommand = CmdBuild.GetUpdateCommand()


Adapdocument.Update(DtSet, "Document")


Connection.Close()

============================================================

Donc voila, js&#233; pa ce kil y a exactement a faire pr ke la date soit prise au bon format, g essay&#233; CDate(madate), format(madate,"dd,mm,yyyy"), aussi le chr(35) & madate & chr(35) vu ke chr(35) est le # en ASCII .... RIEN A FAIRE, ca ve pa ! 

Si quelqu'un a la solution, aidez moi SVP !! j'en ai vraiment besoin !!!

La deuxieme question est beaucoup plus succeinte : Pourquoi ca, ca marche pas :


'===============Combo Box==============='



Dim dtsetpublic 
As 
New DataSet



Dim adappublic 
As 
New OleDb.OleDbDataAdapter("select public from publicconcerne", Connection)


adappublic.Fill(dtsetpublic, "Publicconcerne")



Dim monpublic 
As DataTable


monpublic = dtsetpublic.Tables("publicconcerne")


cbpublic.DataSource = monpublic           'cbpublic est ComboBox



Le pb &#233;tant ke la combobox propose bien autant de solutions kil y a d'entr&#233;es ds ma table, ms toutes les solutions sont : System.Data.DataRowView

Pareil si kelkin a la soluce, paske meme ma prof ne c pa me r&#233;pondre ( elle conn&#233; pa VB.net) et je me retrouve ds le caca pr finir mon stage ...

MERCI DAVANCE !!!! :P

xtrusion · Accepted Answer

Bon ben voila, vous etes pret a me jeter des cailloux? 

En f&#233;t, si ca march&#233; pa, depuis le d&#233;but, c paske dans la table ke je m&#233;ttais a jour, il y av&#233; un champ nomm&#233; DATE, ki est interpret&#233; komme un type par VB...

Encore une fois d&#233;sol&#233; du d&#233;rengement ms jpouv&#233; pa le sucer de mon pouce moi kon av&#233; pa le droit davoir un champ nomm&#233; DATE ! :P

En tout cas, merci a tous !!!  ET VIVE VBFRANCE  ! 
++

cs_ITALIA · Answer

Quel est le Message d'erreur ??
Ton Champs est bien de type date dans ta Table ??

Donnes un Exemple de Valeur de tdate.Text que tu met

It@li@

xtrusion · Answer

Salu !

L'erreur, c une erreur bidon :

Une exception non g&#233;r&#233;e du type 'System.Data.OleDb.OleDbException' s'est produite dans system.data.dll
Et si je mets un 'Try', 'catch...', 'End Try', il me di kil ya une erreur de syntaxe ds l'instruction INSERT INTO ...

Sinon, oui ds access le champ est bien de type date ....

Et pour mon pb de combos, personne na d'id&#233;e?

mythic_kruger · Answer

A l'instar d'ITALIA, je pense que le message d'erreur ne serait pas du luxe :D

Peut-&#234;tre qu' Access stocke ce champ date au format am&#233;ricain, en intervertissant mois et jours: pour lui,  28/02/1983 serait donc le 2e jour du 28e mois...D'ou erreur.

V&#233;rifies certaines propri&#233;t&#233;s de ce champ date
et Testes les valeurs des variables pendant l' ex&#233;cution

cs_ITALIA · Answer

Pourquoi tu utilisesun Composant TextBox pour saisir un champ Date et pas un DTPicker (Projet...Composants..Microsoft Windows Common Controls 2-6-0)

[mailto:It@li It@li]@

xtrusion · Answer

ben jme demande .... lol ptetre paske je connaissais pas .... ;o) lol

jviens de mettre des DTPickers ms ca change rien, ca marche pa kd meme .... je desespere la ! lol

Est-ce kil ya un truc a faire kd on met a jour une table ki est li&#233;e a une autre ???

Imaginons une table "Document" avec un champ "PublicConcerne".
Imaginons une table "PublicDoc" avec le meme champ "PublicConcerne".
Les  deux tables "Documents" et "PublicDoc" sont donc li&#233;es dans ACCESS par le champ "PublicConcerne" ( Avec mise a jour en cascade ).

Pour mettre a jour l'une ou l'autre des deux tables, je pe pa mettre par exemple :
"INSERT INTO documents (champs) values (valeurs)"

Paske la ma requete SQL est gener&#233;e automatikement par un commandbuilder:

 CommandText "INSERT INTO Document( Titre , Date , Public , Support , Th&#232;me , Service , Auteur , MaisondEdition , NumRevue , DatedePublication , RevuecontenantlArticle , R&#233;sum&#233; , Emplacement , NombredExemplaires ) VALUES ( ? , ? , ? , ? , ? , ? , ? , ? , ? , ? , ? , ? , ? , ? )" String

Par exemple, cette table Document est li&#233;e a la table PublicConcerne par le Champs 'Public'.
Kd j'essaye de mettre a jour l'une ou l'autre des 2 tables, il menvoie boulet en me disant kil y a une erreur ds la syntaxe du 'INSERT INTO'.

En tout cas, merci pour le DTPicker, ca plait &#224; mon tuteur ce nouveau syst&#232;me !

cs_ITALIA · Answer

Pour ecrire en Rose t'es une fille ?? non?

Test :

TaDate = DateValue(Format(DTPicker1, "dd/mm/yyyy"))
NewLigne(2) =TaDate

It@li@

xtrusion · Answer

Quand je mets :
dim tadate as ??? (je mets koi komme type? j'ai essay&#233; string, date, et meme object ms ca marche pa ds tous les cas )
TaDate = DateValue(Format(DTPicker1, "dd/mm/yyyy"))
NewLigne(2) =TaDate
 Il me repond :
Une exception non g&#233;r&#233;e du type 'System.InvalidCastException' s'est produite dans microsoft.visualbasic.dll


Informations suppl&#233;mentaires : Le cast sp&#233;cifi&#233; n'est pas valide.

Et quand je mets :
dim tadate as ??? (je mets koi komme type? j'ai essay&#233; string, date, et meme object ms ca marche pa ds tous les cas )
TaDate = DateValue(Format(DTPicker1.value
, "dd/mm/yyyy"))
NewLigne(2) =TaDate
Il me repond :
Une exception non g&#233;r&#233;e du type 'System.InvalidCastException' s'est produite dans microsoft.visualbasic.dll


Informations suppl&#233;mentaires : Cast de la cha&#238;ne "07/00/1986" en type 'Date' non valide.

Ce qui est bizarre c kil met 07/00/1986, on dir&#233; kil prend pa le mois en compte.

Ms jme demande si ca vient pas du f&#233; ke mes tables soient li&#233;es car kd j'essaye de faire une page pr modifier la table "PublicConcerne" ,qui est li&#233;e a "Document" par le champ 'Public', il m'envoie bouler aussi ...

Ca me rend dingue a force ! lol

Sinon pr simplifier, jpe ptetre envoyer ma source a kelkin ki a un peu de temps pour la regarder ....
Ce sera surement plu simple pr savoir d'ou vient le pb .... Paske kd j'or&#233; resolu cette enigme, jpourr&#233; kasiment finir mon projet ... Il me reste ke ca a gerer en gros, le reste ca devr&#233; aller apr&#233; ... En temps normal jor&#233; plu pri de temps pr chercher une soluce ms mon stage se termine bientot et je n'ai pa le temps de chercher du coup ... Mon programme doit etre termin&#233; en milieu de semaine prochaine et c pa encore gagn&#233; ! 

Merci davance !!! :P
et VIVE VBFRANCE ! (PS jsuis pa une fille d&#233;sol&#233; de te decevoir, ms c bo le rose non? MDR ! :P )

cs_ITALIA · Answer

BOF BOF pour le Rose ....

dim Tadate as Date

It@li@

xtrusion · Answer

Plus j'avance et plus je pense ke le pb provient du f&#233; ke mes tables sont li&#233;es ...

kruger, je f&#233; commen pour connaitre le message d'erreur exact stepl&#233;? paske le mieu ke jarrive a avoir comme message d'erreur, c un message ki me di : erreur ds la syntaxe du INSERT INTO. Alor ke le INSERT INTO est gener&#233; automatikement par un commandbuilder.

je f&#233; exactement le meme code pr modifier une autre table qui elle n'est li&#233;e ke par sa clef primaire et cela fonctionne.... alor c vr&#233; kil n'ya pa de date .... Ms kd j'essaye de modifier la table "publicconcerne", ca marche pa non plus, et elle est li&#233;e a "document", ke je ne pe pa modifier non plus ...

Enfin, pr vous, sans voire la source ni les tables ca doit pa etre evident ... Ms encore une fois, si kelkin est chaud pr ke je lui envoie ma source, ya pa de pb ...

je craque la ... lol

xtrusion · Answer

meme avec tadate en type date ca fonctionne pa ...

Ms keske c kce bins ??

xtrusion · Answer

Bon a force de chercher, de tester .... j'ai resolu la plu part de mes pb.

Cependant il me reste le pb des formats de date ... 

Donc si kelkin a une id&#233;e ou a deja u le pb .... jsuis preneur ! 

Merci pour tout !

cs_ITALIA · Answer

Effectivement Date est un Mot Reserv&#233; de VB comme VAL....CHR...

It@li@

Pb de MAJ ACCESS a cause des formats de date ... Aidez moi PLEASE! :P

13 réponses

Discussions similaires