aaaahhh, le coup du champ Date, j'avais oublié :-)
Si je rappelle bien, tu peux mettre Date comme champ mais quand tu
dans une requête, il faut l'entourer avec [] style :
DBInsert.CommandText = "Insert Into Visites ([Date], Heure, page) values
('toto', 'titi', 'tutu')"
Par contre pour la résolution actuelle de ton écran, t'as un bon exemple à
cette adresse là :
http://dotnet.developpez.com/sources/vbnet/?page=Sys#ScreenSize
A+
--
fmillox
"JCM" a écrit :
> Rebonjour
>
> J'ai trouvé le problème, en fait j'ai renommer les champs de la table
> en ladate et heure en lheure et cela fonctionne.
>
> Merci pour ton aide
> j'ai posé une autre question pour savoir comment trouver la taille de
> l'écran
> peux-tu y répondre ?
>
> JCM
> "Millox Frédéric" a écrit dans
> message de news:
> > Bonjour,
> >
> > as tu essayé le Try...Catch sans le mode debug ( en release ) ???
> >
> > avec quelle version de Visual Studio tu travailles ??? une version
> gratuite
> > ???
> >
> > A+
> >
> > --
> > fmillox
> >
> >
> > "JCM" a écrit :
> >
> > > RE bonjour
> > > la procédure se bloque quand je lance le debug et cela affiche :
> > > This service is currently unavailable. Our team is working to
> > > service as quickly as possible. Please try your request again later
> > >
> > > JCM
> > >
> > > "Millox Frédéric" a écrit
> le
> > > message de
> > > > Bonjour,
> > > >
> > > > as tu essayé de de mettre un Try...Catch pour voir d'où vient
> l'erreur???
> > > >
> > > > style :
> > > >
> > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> > > >
> > > > Try
> > > > 'objet connection
> > > >
> > > > Dim DBConn As OleDbConnection
> > > >
> > > > 'objet commande
> > > >
> > > > Dim DBInsert As New OleDbCommand
> > > >
> > > > 'connection a la base de données
> > > >
> > > > DBConn = New
> > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
> > > > Infoúlse")
> > > >
> > > > 'recherche de la fiche
> > > >
> > > > DBInsert.CommandText = "Insert Into Visites" _
> > > >
> > > > & "(Date, Heure, page) values (" _
> > > >
> > > > & "'" & Session("DatePage") & "', " _
> > > >
> > > > & "'" & Session("HourPage") & "', " _
> > > >
> > > > & "'" & Session("NomPage") & "')"
> > > >
> > > > DBInsert.Connection = DBConn
> > > >
> > > > DBInsert.Connection.Open()
> > > >
> > > > DBInsert.ExecuteNonQuery()
> > > >
> > > > Catch ex As Exception
> > > > MsgBox(ex.ToString)
> > > > End Try
> > > >
> > > > End Sub
> > > >
> > > >
> > > > --
> > > > fmillox
> > > >
> > > >
> > > > "JCM" a écrit :
> > > >
> > > > > Bonjour
> > > > >
> > > > > J'ai mis des ToString comme tu me le conseille et cela ne marche
> > > > >
> > > > > Comment fait-on pour récupérer le contenu
> > > > > DBInsert.CommandText ?
> > > > >
> > > > > Merci pour ton aide
> > > > > JCM
> > > > > "Millox Frédéric" a
> dans
> > > le
> > > > > message de
> news:
> > > > > > Bonjour,
> > > > > >
> > > > > > as tu essayé de mettre des .ToString un peu partout, style :
> > > > > >
> > > > > > Session("DatePage") = DateTime.Now.Date.ToString
> > > > > >
> > > > > > Session("HourPage") = DateTime.Now.Hour.ToString & ":" &
> > > > > > DateTime.Now.Minute.ToString
> > > > > >
> > > > > > Si ça ne marche pas, en mode debug, essaye de récupérer le
> > > > > > DBInsert.CommandText après initialisation pour vérifier si ta
> requête
> > > est
> > > > > > juste.
> > > > > >
> > > > > > A+
> > > > > >
> > > > > > --
> > > > > > fmillox
> > > > > >
> > > > > >
> > > > > > "JCM" a écrit :
> > > > > >
> > > > > > > Bonjour
> > > > > > >
> > > > > > > J'ai un problème sur le code suivant, le
> > > DBInsert.ExecuteNonQuery()BEUG
> > > > > > > les champs de ma table sont en texte, pouvez-vous me dire ou
> le
> > > > > problème
> > > > > > >
> > > > > > > Session("DatePage") = DateTime.Now.Date
> > > > > > >
> > > > > > > Session("HourPage") = DateTime.Now.Hour & ":" &
> > > > > DateTime.Now.Minute
> > > > > > >
> > > > > > > Session("NomPage") = "Accueil"
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> EventArgs)
> > > > > > >
> > > > > > > 'objet connection
> > > > > > >
> > > > > > > Dim DBConn As OleDbConnection
> > > > > > >
> > > > > > > 'objet commande
> > > > > > >
> > > > > > > Dim DBInsert As New OleDbCommand
> > > > > > >
> > > > > > > 'connection a la base de données
> > > > > > >
> > > > > > > DBConn = New
> > > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > > >
> > > Security
> > > > > > > Infoúlse")
> > > > > > >
> > > > > > > 'recherche de la fiche
> > > > > > >
> > > > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > > > >
> > > > > > > & "(Date, Heure, page) values (" _
> > > > > > >
> > > > > > > & "'" & Session("DatePage") & "', " _
> > > > > > >
> > > > > > > & "'" & Session("HourPage") & "', " _
> > > > > > >
> > > > > > > & "'" & Session("NomPage") & "')"
> > > > > > >
> > > > > > > DBInsert.Connection = DBConn
> > > > > > >
> > > > > > > DBInsert.Connection.Open()
> > > > > > >
> > > > > > > DBInsert.ExecuteNonQuery()
> > > > > > >
> > > > > > > End Sub
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Merci pour vos reponses
> > > > > > >
> > > > > > > Cordialement
> > > > > > >
> > > > > > > JCM
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> > >
>
>
>
aaaahhh, le coup du champ Date, j'avais oublié :-)
Si je rappelle bien, tu peux mettre Date comme champ mais quand tu
dans une requête, il faut l'entourer avec [] style :
DBInsert.CommandText = "Insert Into Visites ([Date], Heure, page) values
('toto', 'titi', 'tutu')"
Par contre pour la résolution actuelle de ton écran, t'as un bon exemple à
cette adresse là :
http://dotnet.developpez.com/sources/vbnet/?page=Sys#ScreenSize
A+
--
fmillox
"JCM" a écrit :
> Rebonjour
>
> J'ai trouvé le problème, en fait j'ai renommer les champs de la table
> en ladate et heure en lheure et cela fonctionne.
>
> Merci pour ton aide
> j'ai posé une autre question pour savoir comment trouver la taille de
> l'écran
> peux-tu y répondre ?
>
> JCM
> "Millox Frédéric" <MilloxFrdric@discussions.microsoft.com> a écrit dans
> message de news:D6AF2DD4-EE45-4074-B16D-0E4FCAC217ED@microsoft.com...
> > Bonjour,
> >
> > as tu essayé le Try...Catch sans le mode debug ( en release ) ???
> >
> > avec quelle version de Visual Studio tu travailles ??? une version
> gratuite
> > ???
> >
> > A+
> >
> > --
> > fmillox
> >
> >
> > "JCM" a écrit :
> >
> > > RE bonjour
> > > la procédure se bloque quand je lance le debug et cela affiche :
> > > This service is currently unavailable. Our team is working to
> > > service as quickly as possible. Please try your request again later
> > >
> > > JCM
> > >
> > > "Millox Frédéric" <MilloxFrdric@discussions.microsoft.com> a écrit
> le
> > > message de
> > > > Bonjour,
> > > >
> > > > as tu essayé de de mettre un Try...Catch pour voir d'où vient
> l'erreur???
> > > >
> > > > style :
> > > >
> > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> > > >
> > > > Try
> > > > 'objet connection
> > > >
> > > > Dim DBConn As OleDbConnection
> > > >
> > > > 'objet commande
> > > >
> > > > Dim DBInsert As New OleDbCommand
> > > >
> > > > 'connection a la base de données
> > > >
> > > > DBConn = New
> > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
> > > > Infoúlse")
> > > >
> > > > 'recherche de la fiche
> > > >
> > > > DBInsert.CommandText = "Insert Into Visites" _
> > > >
> > > > & "(Date, Heure, page) values (" _
> > > >
> > > > & "'" & Session("DatePage") & "', " _
> > > >
> > > > & "'" & Session("HourPage") & "', " _
> > > >
> > > > & "'" & Session("NomPage") & "')"
> > > >
> > > > DBInsert.Connection = DBConn
> > > >
> > > > DBInsert.Connection.Open()
> > > >
> > > > DBInsert.ExecuteNonQuery()
> > > >
> > > > Catch ex As Exception
> > > > MsgBox(ex.ToString)
> > > > End Try
> > > >
> > > > End Sub
> > > >
> > > >
> > > > --
> > > > fmillox
> > > >
> > > >
> > > > "JCM" a écrit :
> > > >
> > > > > Bonjour
> > > > >
> > > > > J'ai mis des ToString comme tu me le conseille et cela ne marche
> > > > >
> > > > > Comment fait-on pour récupérer le contenu
> > > > > DBInsert.CommandText ?
> > > > >
> > > > > Merci pour ton aide
> > > > > JCM
> > > > > "Millox Frédéric" <MilloxFrdric@discussions.microsoft.com> a
> dans
> > > le
> > > > > message de
> news:18560F37-55F3-493C-B9E6-69E516CE3553@microsoft.com...
> > > > > > Bonjour,
> > > > > >
> > > > > > as tu essayé de mettre des .ToString un peu partout, style :
> > > > > >
> > > > > > Session("DatePage") = DateTime.Now.Date.ToString
> > > > > >
> > > > > > Session("HourPage") = DateTime.Now.Hour.ToString & ":" &
> > > > > > DateTime.Now.Minute.ToString
> > > > > >
> > > > > > Si ça ne marche pas, en mode debug, essaye de récupérer le
> > > > > > DBInsert.CommandText après initialisation pour vérifier si ta
> requête
> > > est
> > > > > > juste.
> > > > > >
> > > > > > A+
> > > > > >
> > > > > > --
> > > > > > fmillox
> > > > > >
> > > > > >
> > > > > > "JCM" a écrit :
> > > > > >
> > > > > > > Bonjour
> > > > > > >
> > > > > > > J'ai un problème sur le code suivant, le
> > > DBInsert.ExecuteNonQuery()BEUG
> > > > > > > les champs de ma table sont en texte, pouvez-vous me dire ou
> le
> > > > > problème
> > > > > > >
> > > > > > > Session("DatePage") = DateTime.Now.Date
> > > > > > >
> > > > > > > Session("HourPage") = DateTime.Now.Hour & ":" &
> > > > > DateTime.Now.Minute
> > > > > > >
> > > > > > > Session("NomPage") = "Accueil"
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> EventArgs)
> > > > > > >
> > > > > > > 'objet connection
> > > > > > >
> > > > > > > Dim DBConn As OleDbConnection
> > > > > > >
> > > > > > > 'objet commande
> > > > > > >
> > > > > > > Dim DBInsert As New OleDbCommand
> > > > > > >
> > > > > > > 'connection a la base de données
> > > > > > >
> > > > > > > DBConn = New
> > > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > > >
> > > Security
> > > > > > > Infoúlse")
> > > > > > >
> > > > > > > 'recherche de la fiche
> > > > > > >
> > > > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > > > >
> > > > > > > & "(Date, Heure, page) values (" _
> > > > > > >
> > > > > > > & "'" & Session("DatePage") & "', " _
> > > > > > >
> > > > > > > & "'" & Session("HourPage") & "', " _
> > > > > > >
> > > > > > > & "'" & Session("NomPage") & "')"
> > > > > > >
> > > > > > > DBInsert.Connection = DBConn
> > > > > > >
> > > > > > > DBInsert.Connection.Open()
> > > > > > >
> > > > > > > DBInsert.ExecuteNonQuery()
> > > > > > >
> > > > > > > End Sub
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Merci pour vos reponses
> > > > > > >
> > > > > > > Cordialement
> > > > > > >
> > > > > > > JCM
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> > >
>
>
>
aaaahhh, le coup du champ Date, j'avais oublié :-)
Si je rappelle bien, tu peux mettre Date comme champ mais quand tu
dans une requête, il faut l'entourer avec [] style :
DBInsert.CommandText = "Insert Into Visites ([Date], Heure, page) values
('toto', 'titi', 'tutu')"
Par contre pour la résolution actuelle de ton écran, t'as un bon exemple à
cette adresse là :
http://dotnet.developpez.com/sources/vbnet/?page=Sys#ScreenSize
A+
--
fmillox
"JCM" a écrit :
> Rebonjour
>
> J'ai trouvé le problème, en fait j'ai renommer les champs de la table
> en ladate et heure en lheure et cela fonctionne.
>
> Merci pour ton aide
> j'ai posé une autre question pour savoir comment trouver la taille de
> l'écran
> peux-tu y répondre ?
>
> JCM
> "Millox Frédéric" a écrit dans
> message de news:
> > Bonjour,
> >
> > as tu essayé le Try...Catch sans le mode debug ( en release ) ???
> >
> > avec quelle version de Visual Studio tu travailles ??? une version
> gratuite
> > ???
> >
> > A+
> >
> > --
> > fmillox
> >
> >
> > "JCM" a écrit :
> >
> > > RE bonjour
> > > la procédure se bloque quand je lance le debug et cela affiche :
> > > This service is currently unavailable. Our team is working to
> > > service as quickly as possible. Please try your request again later
> > >
> > > JCM
> > >
> > > "Millox Frédéric" a écrit
> le
> > > message de
> > > > Bonjour,
> > > >
> > > > as tu essayé de de mettre un Try...Catch pour voir d'où vient
> l'erreur???
> > > >
> > > > style :
> > > >
> > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> > > >
> > > > Try
> > > > 'objet connection
> > > >
> > > > Dim DBConn As OleDbConnection
> > > >
> > > > 'objet commande
> > > >
> > > > Dim DBInsert As New OleDbCommand
> > > >
> > > > 'connection a la base de données
> > > >
> > > > DBConn = New
> > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
> > > > Infoúlse")
> > > >
> > > > 'recherche de la fiche
> > > >
> > > > DBInsert.CommandText = "Insert Into Visites" _
> > > >
> > > > & "(Date, Heure, page) values (" _
> > > >
> > > > & "'" & Session("DatePage") & "', " _
> > > >
> > > > & "'" & Session("HourPage") & "', " _
> > > >
> > > > & "'" & Session("NomPage") & "')"
> > > >
> > > > DBInsert.Connection = DBConn
> > > >
> > > > DBInsert.Connection.Open()
> > > >
> > > > DBInsert.ExecuteNonQuery()
> > > >
> > > > Catch ex As Exception
> > > > MsgBox(ex.ToString)
> > > > End Try
> > > >
> > > > End Sub
> > > >
> > > >
> > > > --
> > > > fmillox
> > > >
> > > >
> > > > "JCM" a écrit :
> > > >
> > > > > Bonjour
> > > > >
> > > > > J'ai mis des ToString comme tu me le conseille et cela ne marche
> > > > >
> > > > > Comment fait-on pour récupérer le contenu
> > > > > DBInsert.CommandText ?
> > > > >
> > > > > Merci pour ton aide
> > > > > JCM
> > > > > "Millox Frédéric" a
> dans
> > > le
> > > > > message de
> news:
> > > > > > Bonjour,
> > > > > >
> > > > > > as tu essayé de mettre des .ToString un peu partout, style :
> > > > > >
> > > > > > Session("DatePage") = DateTime.Now.Date.ToString
> > > > > >
> > > > > > Session("HourPage") = DateTime.Now.Hour.ToString & ":" &
> > > > > > DateTime.Now.Minute.ToString
> > > > > >
> > > > > > Si ça ne marche pas, en mode debug, essaye de récupérer le
> > > > > > DBInsert.CommandText après initialisation pour vérifier si ta
> requête
> > > est
> > > > > > juste.
> > > > > >
> > > > > > A+
> > > > > >
> > > > > > --
> > > > > > fmillox
> > > > > >
> > > > > >
> > > > > > "JCM" a écrit :
> > > > > >
> > > > > > > Bonjour
> > > > > > >
> > > > > > > J'ai un problème sur le code suivant, le
> > > DBInsert.ExecuteNonQuery()BEUG
> > > > > > > les champs de ma table sont en texte, pouvez-vous me dire ou
> le
> > > > > problème
> > > > > > >
> > > > > > > Session("DatePage") = DateTime.Now.Date
> > > > > > >
> > > > > > > Session("HourPage") = DateTime.Now.Hour & ":" &
> > > > > DateTime.Now.Minute
> > > > > > >
> > > > > > > Session("NomPage") = "Accueil"
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> EventArgs)
> > > > > > >
> > > > > > > 'objet connection
> > > > > > >
> > > > > > > Dim DBConn As OleDbConnection
> > > > > > >
> > > > > > > 'objet commande
> > > > > > >
> > > > > > > Dim DBInsert As New OleDbCommand
> > > > > > >
> > > > > > > 'connection a la base de données
> > > > > > >
> > > > > > > DBConn = New
> > > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > > >
> > > Security
> > > > > > > Infoúlse")
> > > > > > >
> > > > > > > 'recherche de la fiche
> > > > > > >
> > > > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > > > >
> > > > > > > & "(Date, Heure, page) values (" _
> > > > > > >
> > > > > > > & "'" & Session("DatePage") & "', " _
> > > > > > >
> > > > > > > & "'" & Session("HourPage") & "', " _
> > > > > > >
> > > > > > > & "'" & Session("NomPage") & "')"
> > > > > > >
> > > > > > > DBInsert.Connection = DBConn
> > > > > > >
> > > > > > > DBInsert.Connection.Open()
> > > > > > >
> > > > > > > DBInsert.ExecuteNonQuery()
> > > > > > >
> > > > > > > End Sub
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Merci pour vos reponses
> > > > > > >
> > > > > > > Cordialement
> > > > > > >
> > > > > > > JCM
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> > >
>
>
>
Merci pour l'info
J'ai téléchargé le code, mais je ne peux pas l'ouvrir avec VS 2005
JCM
"Millox Frédéric" a écrit dans le
message de news:
> aaaahhh, le coup du champ Date, j'avais oublié :-)
>
> Si je rappelle bien, tu peux mettre Date comme champ mais quand tu
l'utilise
> dans une requête, il faut l'entourer avec [] style :
>
> DBInsert.CommandText = "Insert Into Visites ([Date], Heure, page) values
> ('toto', 'titi', 'tutu')"
>
> Par contre pour la résolution actuelle de ton écran, t'as un bon exemple à
> cette adresse là :
>
> http://dotnet.developpez.com/sources/vbnet/?page=Sys#ScreenSize
>
> A+
>
> --
> fmillox
>
>
> "JCM" a écrit :
>
> > Rebonjour
> >
> > J'ai trouvé le problème, en fait j'ai renommer les champs de la table
date
> > en ladate et heure en lheure et cela fonctionne.
> >
> > Merci pour ton aide
> > j'ai posé une autre question pour savoir comment trouver la taille de
> > l'écran
> > peux-tu y répondre ?
> >
> > JCM
> > "Millox Frédéric" a écrit dans
le
> > message de news:
> > > Bonjour,
> > >
> > > as tu essayé le Try...Catch sans le mode debug ( en release ) ???
> > >
> > > avec quelle version de Visual Studio tu travailles ??? une version
> > gratuite
> > > ???
> > >
> > > A+
> > >
> > > --
> > > fmillox
> > >
> > >
> > > "JCM" a écrit :
> > >
> > > > RE bonjour
> > > > la procédure se bloque quand je lance le debug et cela affiche :
> > > > This service is currently unavailable. Our team is working to
restore
> > > > service as quickly as possible. Please try your request again later
> > > >
> > > > JCM
> > > >
> > > > "Millox Frédéric" a écrit
dans
> > le
> > > > message de
news:
> > > > > Bonjour,
> > > > >
> > > > > as tu essayé de de mettre un Try...Catch pour voir d'où vient
> > l'erreur???
> > > > >
> > > > > style :
> > > > >
> > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
EventArgs)
> > > > >
> > > > > Try
> > > > > 'objet connection
> > > > >
> > > > > Dim DBConn As OleDbConnection
> > > > >
> > > > > 'objet commande
> > > > >
> > > > > Dim DBInsert As New OleDbCommand
> > > > >
> > > > > 'connection a la base de données
> > > > >
> > > > > DBConn = New
> > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
Security
> > > > > Infoúlse")
> > > > >
> > > > > 'recherche de la fiche
> > > > >
> > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > >
> > > > > & "(Date, Heure, page) values (" _
> > > > >
> > > > > & "'" & Session("DatePage") & "', " _
> > > > >
> > > > > & "'" & Session("HourPage") & "', " _
> > > > >
> > > > > & "'" & Session("NomPage") & "')"
> > > > >
> > > > > DBInsert.Connection = DBConn
> > > > >
> > > > > DBInsert.Connection.Open()
> > > > >
> > > > > DBInsert.ExecuteNonQuery()
> > > > >
> > > > > Catch ex As Exception
> > > > > MsgBox(ex.ToString)
> > > > > End Try
> > > > >
> > > > > End Sub
> > > > >
> > > > >
> > > > > --
> > > > > fmillox
> > > > >
> > > > >
> > > > > "JCM" a écrit :
> > > > >
> > > > > > Bonjour
> > > > > >
> > > > > > J'ai mis des ToString comme tu me le conseille et cela ne marche
pas
> > > > > >
> > > > > > Comment fait-on pour récupérer le contenu
> > > > > > DBInsert.CommandText ?
> > > > > >
> > > > > > Merci pour ton aide
> > > > > > JCM
> > > > > > "Millox Frédéric" a
écrit
> > dans
> > > > le
> > > > > > message de
> > news:
> > > > > > > Bonjour,
> > > > > > >
> > > > > > > as tu essayé de mettre des .ToString un peu partout, style :
> > > > > > >
> > > > > > > Session("DatePage") = DateTime.Now.Date.ToString
> > > > > > >
> > > > > > > Session("HourPage") = DateTime.Now.Hour.ToString & ":" &
> > > > > > > DateTime.Now.Minute.ToString
> > > > > > >
> > > > > > > Si ça ne marche pas, en mode debug, essaye de récupérer le
contenu
> > > > > > > DBInsert.CommandText après initialisation pour vérifier si ta
> > requête
> > > > est
> > > > > > > juste.
> > > > > > >
> > > > > > > A+
> > > > > > >
> > > > > > > --
> > > > > > > fmillox
> > > > > > >
> > > > > > >
> > > > > > > "JCM" a écrit :
> > > > > > >
> > > > > > > > Bonjour
> > > > > > > >
> > > > > > > > J'ai un problème sur le code suivant, le
> > > > DBInsert.ExecuteNonQuery()BEUG
> > > > > > > > les champs de ma table sont en texte, pouvez-vous me dire ou
est
> > le
> > > > > > problème
> > > > > > > >
> > > > > > > > Session("DatePage") = DateTime.Now.Date
> > > > > > > >
> > > > > > > > Session("HourPage") = DateTime.Now.Hour & ":" &
> > > > > > DateTime.Now.Minute
> > > > > > > >
> > > > > > > > Session("NomPage") = "Accueil"
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> > EventArgs)
> > > > > > > >
> > > > > > > > 'objet connection
> > > > > > > >
> > > > > > > > Dim DBConn As OleDbConnection
> > > > > > > >
> > > > > > > > 'objet commande
> > > > > > > >
> > > > > > > > Dim DBInsert As New OleDbCommand
> > > > > > > >
> > > > > > > > 'connection a la base de données
> > > > > > > >
> > > > > > > > DBConn = New
> > > > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > > > >
Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
> > > > Security
> > > > > > > > Infoúlse")
> > > > > > > >
> > > > > > > > 'recherche de la fiche
> > > > > > > >
> > > > > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > > > > >
> > > > > > > > & "(Date, Heure, page) values (" _
> > > > > > > >
> > > > > > > > & "'" & Session("DatePage") & "', " _
> > > > > > > >
> > > > > > > > & "'" & Session("HourPage") & "', " _
> > > > > > > >
> > > > > > > > & "'" & Session("NomPage") & "')"
> > > > > > > >
> > > > > > > > DBInsert.Connection = DBConn
> > > > > > > >
> > > > > > > > DBInsert.Connection.Open()
> > > > > > > >
> > > > > > > > DBInsert.ExecuteNonQuery()
> > > > > > > >
> > > > > > > > End Sub
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Merci pour vos reponses
> > > > > > > >
> > > > > > > > Cordialement
> > > > > > > >
> > > > > > > > JCM
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > >
> > > >
> > > >
> >
> >
> >
Merci pour l'info
J'ai téléchargé le code, mais je ne peux pas l'ouvrir avec VS 2005
JCM
"Millox Frédéric" <MilloxFrdric@discussions.microsoft.com> a écrit dans le
message de news:39B0D285-2FAF-4863-998B-D3C58D45EB78@microsoft.com...
> aaaahhh, le coup du champ Date, j'avais oublié :-)
>
> Si je rappelle bien, tu peux mettre Date comme champ mais quand tu
l'utilise
> dans une requête, il faut l'entourer avec [] style :
>
> DBInsert.CommandText = "Insert Into Visites ([Date], Heure, page) values
> ('toto', 'titi', 'tutu')"
>
> Par contre pour la résolution actuelle de ton écran, t'as un bon exemple à
> cette adresse là :
>
> http://dotnet.developpez.com/sources/vbnet/?page=Sys#ScreenSize
>
> A+
>
> --
> fmillox
>
>
> "JCM" a écrit :
>
> > Rebonjour
> >
> > J'ai trouvé le problème, en fait j'ai renommer les champs de la table
date
> > en ladate et heure en lheure et cela fonctionne.
> >
> > Merci pour ton aide
> > j'ai posé une autre question pour savoir comment trouver la taille de
> > l'écran
> > peux-tu y répondre ?
> >
> > JCM
> > "Millox Frédéric" <MilloxFrdric@discussions.microsoft.com> a écrit dans
le
> > message de news:D6AF2DD4-EE45-4074-B16D-0E4FCAC217ED@microsoft.com...
> > > Bonjour,
> > >
> > > as tu essayé le Try...Catch sans le mode debug ( en release ) ???
> > >
> > > avec quelle version de Visual Studio tu travailles ??? une version
> > gratuite
> > > ???
> > >
> > > A+
> > >
> > > --
> > > fmillox
> > >
> > >
> > > "JCM" a écrit :
> > >
> > > > RE bonjour
> > > > la procédure se bloque quand je lance le debug et cela affiche :
> > > > This service is currently unavailable. Our team is working to
restore
> > > > service as quickly as possible. Please try your request again later
> > > >
> > > > JCM
> > > >
> > > > "Millox Frédéric" <MilloxFrdric@discussions.microsoft.com> a écrit
dans
> > le
> > > > message de
news:B41AB8F0-FA7D-4B49-8922-883052C84839@microsoft.com...
> > > > > Bonjour,
> > > > >
> > > > > as tu essayé de de mettre un Try...Catch pour voir d'où vient
> > l'erreur???
> > > > >
> > > > > style :
> > > > >
> > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
EventArgs)
> > > > >
> > > > > Try
> > > > > 'objet connection
> > > > >
> > > > > Dim DBConn As OleDbConnection
> > > > >
> > > > > 'objet commande
> > > > >
> > > > > Dim DBInsert As New OleDbCommand
> > > > >
> > > > > 'connection a la base de données
> > > > >
> > > > > DBConn = New
> > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
Security
> > > > > Infoúlse")
> > > > >
> > > > > 'recherche de la fiche
> > > > >
> > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > >
> > > > > & "(Date, Heure, page) values (" _
> > > > >
> > > > > & "'" & Session("DatePage") & "', " _
> > > > >
> > > > > & "'" & Session("HourPage") & "', " _
> > > > >
> > > > > & "'" & Session("NomPage") & "')"
> > > > >
> > > > > DBInsert.Connection = DBConn
> > > > >
> > > > > DBInsert.Connection.Open()
> > > > >
> > > > > DBInsert.ExecuteNonQuery()
> > > > >
> > > > > Catch ex As Exception
> > > > > MsgBox(ex.ToString)
> > > > > End Try
> > > > >
> > > > > End Sub
> > > > >
> > > > >
> > > > > --
> > > > > fmillox
> > > > >
> > > > >
> > > > > "JCM" a écrit :
> > > > >
> > > > > > Bonjour
> > > > > >
> > > > > > J'ai mis des ToString comme tu me le conseille et cela ne marche
pas
> > > > > >
> > > > > > Comment fait-on pour récupérer le contenu
> > > > > > DBInsert.CommandText ?
> > > > > >
> > > > > > Merci pour ton aide
> > > > > > JCM
> > > > > > "Millox Frédéric" <MilloxFrdric@discussions.microsoft.com> a
écrit
> > dans
> > > > le
> > > > > > message de
> > news:18560F37-55F3-493C-B9E6-69E516CE3553@microsoft.com...
> > > > > > > Bonjour,
> > > > > > >
> > > > > > > as tu essayé de mettre des .ToString un peu partout, style :
> > > > > > >
> > > > > > > Session("DatePage") = DateTime.Now.Date.ToString
> > > > > > >
> > > > > > > Session("HourPage") = DateTime.Now.Hour.ToString & ":" &
> > > > > > > DateTime.Now.Minute.ToString
> > > > > > >
> > > > > > > Si ça ne marche pas, en mode debug, essaye de récupérer le
contenu
> > > > > > > DBInsert.CommandText après initialisation pour vérifier si ta
> > requête
> > > > est
> > > > > > > juste.
> > > > > > >
> > > > > > > A+
> > > > > > >
> > > > > > > --
> > > > > > > fmillox
> > > > > > >
> > > > > > >
> > > > > > > "JCM" a écrit :
> > > > > > >
> > > > > > > > Bonjour
> > > > > > > >
> > > > > > > > J'ai un problème sur le code suivant, le
> > > > DBInsert.ExecuteNonQuery()BEUG
> > > > > > > > les champs de ma table sont en texte, pouvez-vous me dire ou
est
> > le
> > > > > > problème
> > > > > > > >
> > > > > > > > Session("DatePage") = DateTime.Now.Date
> > > > > > > >
> > > > > > > > Session("HourPage") = DateTime.Now.Hour & ":" &
> > > > > > DateTime.Now.Minute
> > > > > > > >
> > > > > > > > Session("NomPage") = "Accueil"
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> > EventArgs)
> > > > > > > >
> > > > > > > > 'objet connection
> > > > > > > >
> > > > > > > > Dim DBConn As OleDbConnection
> > > > > > > >
> > > > > > > > 'objet commande
> > > > > > > >
> > > > > > > > Dim DBInsert As New OleDbCommand
> > > > > > > >
> > > > > > > > 'connection a la base de données
> > > > > > > >
> > > > > > > > DBConn = New
> > > > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > > > >
Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
> > > > Security
> > > > > > > > Infoúlse")
> > > > > > > >
> > > > > > > > 'recherche de la fiche
> > > > > > > >
> > > > > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > > > > >
> > > > > > > > & "(Date, Heure, page) values (" _
> > > > > > > >
> > > > > > > > & "'" & Session("DatePage") & "', " _
> > > > > > > >
> > > > > > > > & "'" & Session("HourPage") & "', " _
> > > > > > > >
> > > > > > > > & "'" & Session("NomPage") & "')"
> > > > > > > >
> > > > > > > > DBInsert.Connection = DBConn
> > > > > > > >
> > > > > > > > DBInsert.Connection.Open()
> > > > > > > >
> > > > > > > > DBInsert.ExecuteNonQuery()
> > > > > > > >
> > > > > > > > End Sub
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Merci pour vos reponses
> > > > > > > >
> > > > > > > > Cordialement
> > > > > > > >
> > > > > > > > JCM
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > >
> > > >
> > > >
> >
> >
> >
Merci pour l'info
J'ai téléchargé le code, mais je ne peux pas l'ouvrir avec VS 2005
JCM
"Millox Frédéric" a écrit dans le
message de news:
> aaaahhh, le coup du champ Date, j'avais oublié :-)
>
> Si je rappelle bien, tu peux mettre Date comme champ mais quand tu
l'utilise
> dans une requête, il faut l'entourer avec [] style :
>
> DBInsert.CommandText = "Insert Into Visites ([Date], Heure, page) values
> ('toto', 'titi', 'tutu')"
>
> Par contre pour la résolution actuelle de ton écran, t'as un bon exemple à
> cette adresse là :
>
> http://dotnet.developpez.com/sources/vbnet/?page=Sys#ScreenSize
>
> A+
>
> --
> fmillox
>
>
> "JCM" a écrit :
>
> > Rebonjour
> >
> > J'ai trouvé le problème, en fait j'ai renommer les champs de la table
date
> > en ladate et heure en lheure et cela fonctionne.
> >
> > Merci pour ton aide
> > j'ai posé une autre question pour savoir comment trouver la taille de
> > l'écran
> > peux-tu y répondre ?
> >
> > JCM
> > "Millox Frédéric" a écrit dans
le
> > message de news:
> > > Bonjour,
> > >
> > > as tu essayé le Try...Catch sans le mode debug ( en release ) ???
> > >
> > > avec quelle version de Visual Studio tu travailles ??? une version
> > gratuite
> > > ???
> > >
> > > A+
> > >
> > > --
> > > fmillox
> > >
> > >
> > > "JCM" a écrit :
> > >
> > > > RE bonjour
> > > > la procédure se bloque quand je lance le debug et cela affiche :
> > > > This service is currently unavailable. Our team is working to
restore
> > > > service as quickly as possible. Please try your request again later
> > > >
> > > > JCM
> > > >
> > > > "Millox Frédéric" a écrit
dans
> > le
> > > > message de
news:
> > > > > Bonjour,
> > > > >
> > > > > as tu essayé de de mettre un Try...Catch pour voir d'où vient
> > l'erreur???
> > > > >
> > > > > style :
> > > > >
> > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
EventArgs)
> > > > >
> > > > > Try
> > > > > 'objet connection
> > > > >
> > > > > Dim DBConn As OleDbConnection
> > > > >
> > > > > 'objet commande
> > > > >
> > > > > Dim DBInsert As New OleDbCommand
> > > > >
> > > > > 'connection a la base de données
> > > > >
> > > > > DBConn = New
> > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
Security
> > > > > Infoúlse")
> > > > >
> > > > > 'recherche de la fiche
> > > > >
> > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > >
> > > > > & "(Date, Heure, page) values (" _
> > > > >
> > > > > & "'" & Session("DatePage") & "', " _
> > > > >
> > > > > & "'" & Session("HourPage") & "', " _
> > > > >
> > > > > & "'" & Session("NomPage") & "')"
> > > > >
> > > > > DBInsert.Connection = DBConn
> > > > >
> > > > > DBInsert.Connection.Open()
> > > > >
> > > > > DBInsert.ExecuteNonQuery()
> > > > >
> > > > > Catch ex As Exception
> > > > > MsgBox(ex.ToString)
> > > > > End Try
> > > > >
> > > > > End Sub
> > > > >
> > > > >
> > > > > --
> > > > > fmillox
> > > > >
> > > > >
> > > > > "JCM" a écrit :
> > > > >
> > > > > > Bonjour
> > > > > >
> > > > > > J'ai mis des ToString comme tu me le conseille et cela ne marche
pas
> > > > > >
> > > > > > Comment fait-on pour récupérer le contenu
> > > > > > DBInsert.CommandText ?
> > > > > >
> > > > > > Merci pour ton aide
> > > > > > JCM
> > > > > > "Millox Frédéric" a
écrit
> > dans
> > > > le
> > > > > > message de
> > news:
> > > > > > > Bonjour,
> > > > > > >
> > > > > > > as tu essayé de mettre des .ToString un peu partout, style :
> > > > > > >
> > > > > > > Session("DatePage") = DateTime.Now.Date.ToString
> > > > > > >
> > > > > > > Session("HourPage") = DateTime.Now.Hour.ToString & ":" &
> > > > > > > DateTime.Now.Minute.ToString
> > > > > > >
> > > > > > > Si ça ne marche pas, en mode debug, essaye de récupérer le
contenu
> > > > > > > DBInsert.CommandText après initialisation pour vérifier si ta
> > requête
> > > > est
> > > > > > > juste.
> > > > > > >
> > > > > > > A+
> > > > > > >
> > > > > > > --
> > > > > > > fmillox
> > > > > > >
> > > > > > >
> > > > > > > "JCM" a écrit :
> > > > > > >
> > > > > > > > Bonjour
> > > > > > > >
> > > > > > > > J'ai un problème sur le code suivant, le
> > > > DBInsert.ExecuteNonQuery()BEUG
> > > > > > > > les champs de ma table sont en texte, pouvez-vous me dire ou
est
> > le
> > > > > > problème
> > > > > > > >
> > > > > > > > Session("DatePage") = DateTime.Now.Date
> > > > > > > >
> > > > > > > > Session("HourPage") = DateTime.Now.Hour & ":" &
> > > > > > DateTime.Now.Minute
> > > > > > > >
> > > > > > > > Session("NomPage") = "Accueil"
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Sub cmdValide_OnClick(ByVal Sender As Object, ByVal E As
> > EventArgs)
> > > > > > > >
> > > > > > > > 'objet connection
> > > > > > > >
> > > > > > > > Dim DBConn As OleDbConnection
> > > > > > > >
> > > > > > > > 'objet commande
> > > > > > > >
> > > > > > > > Dim DBInsert As New OleDbCommand
> > > > > > > >
> > > > > > > > 'connection a la base de données
> > > > > > > >
> > > > > > > > DBConn = New
> > > > > > OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
> > > > > > > >
Source=C:InetpubwwwrootHomeWappingHomeWapping.mdb;Persist
> > > > Security
> > > > > > > > Infoúlse")
> > > > > > > >
> > > > > > > > 'recherche de la fiche
> > > > > > > >
> > > > > > > > DBInsert.CommandText = "Insert Into Visites" _
> > > > > > > >
> > > > > > > > & "(Date, Heure, page) values (" _
> > > > > > > >
> > > > > > > > & "'" & Session("DatePage") & "', " _
> > > > > > > >
> > > > > > > > & "'" & Session("HourPage") & "', " _
> > > > > > > >
> > > > > > > > & "'" & Session("NomPage") & "')"
> > > > > > > >
> > > > > > > > DBInsert.Connection = DBConn
> > > > > > > >
> > > > > > > > DBInsert.Connection.Open()
> > > > > > > >
> > > > > > > > DBInsert.ExecuteNonQuery()
> > > > > > > >
> > > > > > > > End Sub
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Merci pour vos reponses
> > > > > > > >
> > > > > > > > Cordialement
> > > > > > > >
> > > > > > > > JCM
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > >
> > > >
> > > >
> >
> >
> >
