Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Prob avec Insert

Prob avec Insert

12 réponses
Avatar
JCM
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:\Inetpub\wwwroot\HomeWapping\HomeWapping.mdb;Persist Security
Info=False")

'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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Millox Frédéric
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






Avatar
JCM
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
>
>
>
>


Avatar
Millox Frédéric
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
> >
> >
> >
> >





Avatar
JCM
Bonjour

Non mais je vais essayer de suite et je te tiens au courant
encore merci

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
> > >
> > >
> > >
> > >
>
>
>


Avatar
JCM
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
> > >
> > >
> > >
> > >
>
>
>


Avatar
Millox Frédéric
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
> > > >
> > > >
> > > >
> > > >
> >
> >
> >





Avatar
JCM
Bonjour

J'ai la version 2005 team edition (abonnement MSDN)

oui j'ai essayé le Try et cela indique erreur de syntaxe dans l'instruction
INSERT TO
j'ai vérifié le résultat de date et heure c'est bien du string
les champs de la table sont en texte
je ne vois pas d'ou cela vient, d'autant plus si j'enleve date et heure dans
le INSRT TO l'enregistrement de page fonctionne

Merci pour ta réponse
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
> > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> > >
>
>
>


Avatar
JCM
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
> > > > >
> > > > >
> > > > >
> > > > >
> > >
> > >
> > >
>
>
>


Avatar
Millox Frédéric
rebonjour,

on va faire un test simple :

DBInsert.CommandText = "Insert Into Visites (Date, Heure, page) values
('toto', 'titi', 'tutu')"

puis tu essayes d'insérer.

Si il y a une erreur, c'est que le champ Date ou Heure n'est pas au format
texte ( visiblement le champ Page est bien au format d'après ce que tu me dis
)

S'il n'y a pas d'erreur, essaye ça :

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").ToString.Replace("'", "''") & "', " _

& "'" & Session("HourPage").ToString.Replace("'", "''") & "', " _

& "'" & Session("NomPage").ToString.Replace("'", "''") & "')"

DBInsert.Connection = DBConn

DBInsert.Connection.Open()

DBInsert.ExecuteNonQuery()

Catch ex As Exception
MsgBox(ex.ToString)
End Try

End Sub

A+

--
fmillox


"JCM" a écrit :

Bonjour

J'ai la version 2005 team edition (abonnement MSDN)

oui j'ai essayé le Try et cela indique erreur de syntaxe dans l'instruction
INSERT TO
j'ai vérifié le résultat de date et heure c'est bien du string
les champs de la table sont en texte
je ne vois pas d'ou cela vient, d'autant plus si j'enleve date et heure dans
le INSRT TO l'enregistrement de page fonctionne

Merci pour ta réponse
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
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > >
> > > >
> > > >
> >
> >
> >





Avatar
Millox Frédéric
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
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > >
> > > >
> > > >
> >
> >
> >





1 2