J'ai une page web qui à quelques champs textebox que
l'utilisateur doit remplir. Une fois cela fait je prend chaque champs et je
les insère dans une base access.. Classique jusque là. Il y a un seul
problème, un seul et unique champs refuse toujours de s'insérer dans la
base. J'ai essayé l'insertion SANS ce champ et cela fonctionne à merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement ainsi que TOUT les
champs ensembles. Je ne crois pas avoir fait aucune erreur. Ce champ est en
fait associée à la description d'un article ( du texte tout simple comme les
autres)
###############
Dim Fichier As String = "allo toi" 'Me.AjoutImage() 'Va retourner le
Path/nom de fichier pour la nouvelle
Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''")
Dim Email As String = Replace(Me.txtemail.Text, "'", "''")
Dim Titre As String = Replace(Me.TxtTitre.Text, "'", "''")
Dim Description As String = Replace(Me.TxtDesc.Text, "'", "''") '<===
ICI LE CHAMP DEFECTUEUX
Dim Cn As OleDb.OleDbConnection = New
OleDb.OleDbConnection(Constante.ConnString)
Dim Cm As New OleDb.OleDbCommand(StrSql, Cn)
Cn.Open()
Cm.ExecuteNonQuery()
Cn.Close()
Me.BindData() ' Remapper les Combo et DtGrid à la db
#######################
Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Constante.ConnString) Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) Cn.Open() Cm.ExecuteNonQuery() Cn.Close() Me.BindData() ' Remapper les Combo et DtGrid à la db #######################
Francois
.
as tu testé les retours à la ligne?
-----Original Message-----
Bonjour à tous,
J'ai une page web qui à quelques
champs textebox que
l'utilisateur doit remplir. Une fois cela fait je prend
chaque champs et je
les insère dans une base access.. Classique jusque là.
Il y a un seul
problème, un seul et unique champs refuse toujours de
s'insérer dans la
base. J'ai essayé l'insertion SANS ce champ et cela
fonctionne à merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement
ainsi que TOUT les
champs ensembles. Je ne crois pas avoir fait aucune
erreur. Ce champ est en
fait associée à la description d'un article ( du texte
tout simple comme les
autres)
###############
Dim Fichier As String = "allo toi" 'Me.AjoutImage
() 'Va retourner le
Path/nom de fichier pour la nouvelle
Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''")
Dim Email As String = Replace
Dim Cn As OleDb.OleDbConnection = New
OleDb.OleDbConnection(Constante.ConnString)
Dim Cm As New OleDb.OleDbCommand(StrSql, Cn)
Cn.Open()
Cm.ExecuteNonQuery()
Cn.Close()
Me.BindData() ' Remapper les Combo et DtGrid à la db
#######################
Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Constante.ConnString) Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) Cn.Open() Cm.ExecuteNonQuery() Cn.Close() Me.BindData() ' Remapper les Combo et DtGrid à la db #######################
Francois
.
Francois Soucy
Il n'y pas de retour de ligne puisque le textbox est un textbox simple (pas de multiline sur cette page). Si tu parle des retours de ligne sur la sentence SQL alors non plus il y a en pas puisque j'ai testé cette sentence pour qu'elle s'affiche sur un textbox de déboguage....
"fred" wrote in message news:79da01c476eb$bb3a2a80$ as tu testé les retours à la ligne?
-----Original Message----- Bonjour à tous,
J'ai une page web qui à quelques
champs textebox que
l'utilisateur doit remplir. Une fois cela fait je prend
chaque champs et je
les insère dans une base access.. Classique jusque là.
Il y a un seul
problème, un seul et unique champs refuse toujours de
s'insérer dans la
base. J'ai essayé l'insertion SANS ce champ et cela
fonctionne à merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement
ainsi que TOUT les
champs ensembles. Je ne crois pas avoir fait aucune
erreur. Ce champ est en
fait associée à la description d'un article ( du texte
tout simple comme les
autres)
############### Dim Fichier As String = "allo toi" 'Me.AjoutImage
() 'Va retourner le
Path/nom de fichier pour la nouvelle Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''") Dim Email As String = Replace
(Me.txtemail.Text, "'", "''")
Dim Titre As String = Replace
(Me.TxtTitre.Text, "'", "''")
Dim Description As String = Replace
(Me.TxtDesc.Text, "'", "''") '<== >ICI LE CHAMP DEFECTUEUX
Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Constante.ConnString) Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) Cn.Open() Cm.ExecuteNonQuery() Cn.Close() Me.BindData() ' Remapper les Combo et DtGrid à la db #######################
Francois
.
Il n'y pas de retour de ligne puisque le textbox est un textbox simple (pas
de multiline sur cette page). Si tu parle des retours de ligne sur la
sentence SQL alors non plus il y a en pas puisque j'ai testé cette sentence
pour qu'elle s'affiche sur un textbox de déboguage....
"fred" <anonymous@discussions.microsoft.com> wrote in message
news:79da01c476eb$bb3a2a80$a601280a@phx.gbl...
as tu testé les retours à la ligne?
-----Original Message-----
Bonjour à tous,
J'ai une page web qui à quelques
champs textebox que
l'utilisateur doit remplir. Une fois cela fait je prend
chaque champs et je
les insère dans une base access.. Classique jusque là.
Il y a un seul
problème, un seul et unique champs refuse toujours de
s'insérer dans la
base. J'ai essayé l'insertion SANS ce champ et cela
fonctionne à merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement
ainsi que TOUT les
champs ensembles. Je ne crois pas avoir fait aucune
erreur. Ce champ est en
fait associée à la description d'un article ( du texte
tout simple comme les
autres)
###############
Dim Fichier As String = "allo toi" 'Me.AjoutImage
() 'Va retourner le
Path/nom de fichier pour la nouvelle
Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''")
Dim Email As String = Replace
(Me.txtemail.Text, "'", "''")
Dim Titre As String = Replace
(Me.TxtTitre.Text, "'", "''")
Dim Description As String = Replace
(Me.TxtDesc.Text, "'", "''") '<== >ICI LE CHAMP DEFECTUEUX
Dim Cn As OleDb.OleDbConnection = New
OleDb.OleDbConnection(Constante.ConnString)
Dim Cm As New OleDb.OleDbCommand(StrSql, Cn)
Cn.Open()
Cm.ExecuteNonQuery()
Cn.Close()
Me.BindData() ' Remapper les Combo et DtGrid à la db
#######################
Il n'y pas de retour de ligne puisque le textbox est un textbox simple (pas de multiline sur cette page). Si tu parle des retours de ligne sur la sentence SQL alors non plus il y a en pas puisque j'ai testé cette sentence pour qu'elle s'affiche sur un textbox de déboguage....
"fred" wrote in message news:79da01c476eb$bb3a2a80$ as tu testé les retours à la ligne?
-----Original Message----- Bonjour à tous,
J'ai une page web qui à quelques
champs textebox que
l'utilisateur doit remplir. Une fois cela fait je prend
chaque champs et je
les insère dans une base access.. Classique jusque là.
Il y a un seul
problème, un seul et unique champs refuse toujours de
s'insérer dans la
base. J'ai essayé l'insertion SANS ce champ et cela
fonctionne à merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement
ainsi que TOUT les
champs ensembles. Je ne crois pas avoir fait aucune
erreur. Ce champ est en
fait associée à la description d'un article ( du texte
tout simple comme les
autres)
############### Dim Fichier As String = "allo toi" 'Me.AjoutImage
() 'Va retourner le
Path/nom de fichier pour la nouvelle Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''") Dim Email As String = Replace
(Me.txtemail.Text, "'", "''")
Dim Titre As String = Replace
(Me.TxtTitre.Text, "'", "''")
Dim Description As String = Replace
(Me.TxtDesc.Text, "'", "''") '<== >ICI LE CHAMP DEFECTUEUX
Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Constante.ConnString) Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) Cn.Open() Cm.ExecuteNonQuery() Cn.Close() Me.BindData() ' Remapper les Combo et DtGrid à la db #######################
Francois
.
Frederic Melantois
Bonjour François,
Tu as fait une erreur d'inattention...
... Desc (le nom de ton champ) est un mot SQL réservé d'où l'erreur.
Frédéric Mélantois
"Francois Soucy" a écrit dans le message de news:%23%
Bonjour à tous,
J'ai une page web qui à quelques champs textebox
que
l'utilisateur doit remplir. Une fois cela fait je prend chaque champs et
je
les insère dans une base access.. Classique jusque là. Il y a un seul problème, un seul et unique champs refuse toujours de s'insérer dans la base. J'ai essayé l'insertion SANS ce champ et cela fonctionne à
merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement ainsi que TOUT
les
champs ensembles. Je ne crois pas avoir fait aucune erreur. Ce champ est
en
fait associée à la description d'un article ( du texte tout simple comme
les
autres)
############### Dim Fichier As String = "allo toi" 'Me.AjoutImage() 'Va retourner le Path/nom de fichier pour la nouvelle Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''") Dim Email As String = Replace(Me.txtemail.Text, "'", "''") Dim Titre As String = Replace(Me.TxtTitre.Text, "'", "''") Dim Description As String = Replace(Me.TxtDesc.Text, "'", "''") '<== > ICI LE CHAMP DEFECTUEUX
Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Constante.ConnString) Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) Cn.Open() Cm.ExecuteNonQuery() Cn.Close() Me.BindData() ' Remapper les Combo et DtGrid à la db #######################
Francois
Bonjour François,
Tu as fait une erreur d'inattention...
... Desc (le nom de ton champ) est un mot SQL réservé d'où l'erreur.
Frédéric Mélantois
"Francois Soucy" <Root@127.0.0.1> a écrit dans le message de
news:%23%23T0EYndEHA.2520@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
J'ai une page web qui à quelques champs textebox
que
l'utilisateur doit remplir. Une fois cela fait je prend chaque champs et
je
les insère dans une base access.. Classique jusque là. Il y a un seul
problème, un seul et unique champs refuse toujours de s'insérer dans la
base. J'ai essayé l'insertion SANS ce champ et cela fonctionne à
merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement ainsi que TOUT
les
champs ensembles. Je ne crois pas avoir fait aucune erreur. Ce champ est
en
fait associée à la description d'un article ( du texte tout simple comme
les
autres)
###############
Dim Fichier As String = "allo toi" 'Me.AjoutImage() 'Va retourner le
Path/nom de fichier pour la nouvelle
Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''")
Dim Email As String = Replace(Me.txtemail.Text, "'", "''")
Dim Titre As String = Replace(Me.TxtTitre.Text, "'", "''")
Dim Description As String = Replace(Me.TxtDesc.Text, "'", "''") '<== > ICI LE CHAMP DEFECTUEUX
Dim Cn As OleDb.OleDbConnection = New
OleDb.OleDbConnection(Constante.ConnString)
Dim Cm As New OleDb.OleDbCommand(StrSql, Cn)
Cn.Open()
Cm.ExecuteNonQuery()
Cn.Close()
Me.BindData() ' Remapper les Combo et DtGrid à la db
#######################
... Desc (le nom de ton champ) est un mot SQL réservé d'où l'erreur.
Frédéric Mélantois
"Francois Soucy" a écrit dans le message de news:%23%
Bonjour à tous,
J'ai une page web qui à quelques champs textebox
que
l'utilisateur doit remplir. Une fois cela fait je prend chaque champs et
je
les insère dans une base access.. Classique jusque là. Il y a un seul problème, un seul et unique champs refuse toujours de s'insérer dans la base. J'ai essayé l'insertion SANS ce champ et cela fonctionne à
merveille.
J'ai essayer UNIQUEMENT ce champ et ca plante royalement ainsi que TOUT
les
champs ensembles. Je ne crois pas avoir fait aucune erreur. Ce champ est
en
fait associée à la description d'un article ( du texte tout simple comme
les
autres)
############### Dim Fichier As String = "allo toi" 'Me.AjoutImage() 'Va retourner le Path/nom de fichier pour la nouvelle Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''") Dim Email As String = Replace(Me.txtemail.Text, "'", "''") Dim Titre As String = Replace(Me.TxtTitre.Text, "'", "''") Dim Description As String = Replace(Me.TxtDesc.Text, "'", "''") '<== > ICI LE CHAMP DEFECTUEUX
Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(Constante.ConnString) Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) Cn.Open() Cm.ExecuteNonQuery() Cn.Close() Me.BindData() ' Remapper les Combo et DtGrid à la db #######################
Francois
Francois Soucy
Hey bien calinne! Merci bien Frederic! J'aurais pourtant cherché longement qu'est-ce qui pouvait bien causer cette erreur! Car le debug ne me parlait pas de ce mot clé!
Bonne journée Francois
"Frederic Melantois" wrote in message news:cekp12$6o1$
Bonjour François,
Tu as fait une erreur d'inattention...
... Desc (le nom de ton champ) est un mot SQL réservé d'où l'erreur.
Frédéric Mélantois
"Francois Soucy" a écrit dans le message de news:%23% > Bonjour à tous, > > J'ai une page web qui à quelques champs textebox que > l'utilisateur doit remplir. Une fois cela fait je prend chaque champs et je > les insère dans une base access.. Classique jusque là. Il y a un seul > problème, un seul et unique champs refuse toujours de s'insérer dans la > base. J'ai essayé l'insertion SANS ce champ et cela fonctionne à merveille. > J'ai essayer UNIQUEMENT ce champ et ca plante royalement ainsi que TOUT les > champs ensembles. Je ne crois pas avoir fait aucune erreur. Ce champ est en > fait associée à la description d'un article ( du texte tout simple comme les > autres) > > ############### > Dim Fichier As String = "allo toi" 'Me.AjoutImage() 'Va retourner le > Path/nom de fichier pour la nouvelle > Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''") > Dim Email As String = Replace(Me.txtemail.Text, "'", "''") > Dim Titre As String = Replace(Me.TxtTitre.Text, "'", "''") > Dim Description As String = Replace(Me.TxtDesc.Text, "'", "''")
'<== > > ICI LE CHAMP DEFECTUEUX
> > Dim Categorie As Integer = CInt(Me.CboCategorie.SelectedItem.Value()) > Dim StrSql As String = "INSERT INTO Photos (Categorieid, Titre, Path, > TnPath, EnvoyerPar, Email, Desc) VALUES " > StrSql = StrSql & "( " & Categorie & " , '" > StrSql = StrSql & Titre & "' , '" > StrSql = StrSql & Fichier & "' , '" > StrSql = StrSql & Fichier & "' , '" > StrSql = StrSql & Nom & "' , '" > StrSql = StrSql & Email & "' , '" > StrSql = StrSql & Description & "')" '<=== ICI L'INSERTION DU CHAMP > DEFECTUEUX > > Dim Cn As OleDb.OleDbConnection = New > OleDb.OleDbConnection(Constante.ConnString) > Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) > Cn.Open() > Cm.ExecuteNonQuery() > Cn.Close() > Me.BindData() ' Remapper les Combo et DtGrid à la db > ####################### > > Francois > >
Hey bien calinne! Merci bien Frederic!
J'aurais pourtant cherché longement qu'est-ce qui pouvait bien causer cette
erreur! Car le debug ne me parlait pas de ce mot clé!
Bonne journée
Francois
"Frederic Melantois" <fmelantois@nospam.nospam> wrote in message
news:cekp12$6o1$1@s1.read.news.oleane.net...
Bonjour François,
Tu as fait une erreur d'inattention...
... Desc (le nom de ton champ) est un mot SQL réservé d'où l'erreur.
Frédéric Mélantois
"Francois Soucy" <Root@127.0.0.1> a écrit dans le message de
news:%23%23T0EYndEHA.2520@TK2MSFTNGP12.phx.gbl...
> Bonjour à tous,
>
> J'ai une page web qui à quelques champs textebox
que
> l'utilisateur doit remplir. Une fois cela fait je prend chaque champs et
je
> les insère dans une base access.. Classique jusque là. Il y a un seul
> problème, un seul et unique champs refuse toujours de s'insérer dans la
> base. J'ai essayé l'insertion SANS ce champ et cela fonctionne à
merveille.
> J'ai essayer UNIQUEMENT ce champ et ca plante royalement ainsi que TOUT
les
> champs ensembles. Je ne crois pas avoir fait aucune erreur. Ce champ est
en
> fait associée à la description d'un article ( du texte tout simple comme
les
> autres)
>
> ###############
> Dim Fichier As String = "allo toi" 'Me.AjoutImage() 'Va retourner le
> Path/nom de fichier pour la nouvelle
> Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''")
> Dim Email As String = Replace(Me.txtemail.Text, "'", "''")
> Dim Titre As String = Replace(Me.TxtTitre.Text, "'", "''")
> Dim Description As String = Replace(Me.TxtDesc.Text, "'", "''")
'<== > > ICI LE CHAMP DEFECTUEUX
>
> Dim Categorie As Integer = CInt(Me.CboCategorie.SelectedItem.Value())
> Dim StrSql As String = "INSERT INTO Photos (Categorieid, Titre, Path,
> TnPath, EnvoyerPar, Email, Desc) VALUES "
> StrSql = StrSql & "( " & Categorie & " , '"
> StrSql = StrSql & Titre & "' , '"
> StrSql = StrSql & Fichier & "' , '"
> StrSql = StrSql & Fichier & "' , '"
> StrSql = StrSql & Nom & "' , '"
> StrSql = StrSql & Email & "' , '"
> StrSql = StrSql & Description & "')" '<=== ICI L'INSERTION DU CHAMP
> DEFECTUEUX
>
> Dim Cn As OleDb.OleDbConnection = New
> OleDb.OleDbConnection(Constante.ConnString)
> Dim Cm As New OleDb.OleDbCommand(StrSql, Cn)
> Cn.Open()
> Cm.ExecuteNonQuery()
> Cn.Close()
> Me.BindData() ' Remapper les Combo et DtGrid à la db
> #######################
>
> Francois
>
>
Hey bien calinne! Merci bien Frederic! J'aurais pourtant cherché longement qu'est-ce qui pouvait bien causer cette erreur! Car le debug ne me parlait pas de ce mot clé!
Bonne journée Francois
"Frederic Melantois" wrote in message news:cekp12$6o1$
Bonjour François,
Tu as fait une erreur d'inattention...
... Desc (le nom de ton champ) est un mot SQL réservé d'où l'erreur.
Frédéric Mélantois
"Francois Soucy" a écrit dans le message de news:%23% > Bonjour à tous, > > J'ai une page web qui à quelques champs textebox que > l'utilisateur doit remplir. Une fois cela fait je prend chaque champs et je > les insère dans une base access.. Classique jusque là. Il y a un seul > problème, un seul et unique champs refuse toujours de s'insérer dans la > base. J'ai essayé l'insertion SANS ce champ et cela fonctionne à merveille. > J'ai essayer UNIQUEMENT ce champ et ca plante royalement ainsi que TOUT les > champs ensembles. Je ne crois pas avoir fait aucune erreur. Ce champ est en > fait associée à la description d'un article ( du texte tout simple comme les > autres) > > ############### > Dim Fichier As String = "allo toi" 'Me.AjoutImage() 'Va retourner le > Path/nom de fichier pour la nouvelle > Dim Nom As String = Replace(Me.TxtNom.Text, "'", "''") > Dim Email As String = Replace(Me.txtemail.Text, "'", "''") > Dim Titre As String = Replace(Me.TxtTitre.Text, "'", "''") > Dim Description As String = Replace(Me.TxtDesc.Text, "'", "''")
'<== > > ICI LE CHAMP DEFECTUEUX
> > Dim Categorie As Integer = CInt(Me.CboCategorie.SelectedItem.Value()) > Dim StrSql As String = "INSERT INTO Photos (Categorieid, Titre, Path, > TnPath, EnvoyerPar, Email, Desc) VALUES " > StrSql = StrSql & "( " & Categorie & " , '" > StrSql = StrSql & Titre & "' , '" > StrSql = StrSql & Fichier & "' , '" > StrSql = StrSql & Fichier & "' , '" > StrSql = StrSql & Nom & "' , '" > StrSql = StrSql & Email & "' , '" > StrSql = StrSql & Description & "')" '<=== ICI L'INSERTION DU CHAMP > DEFECTUEUX > > Dim Cn As OleDb.OleDbConnection = New > OleDb.OleDbConnection(Constante.ConnString) > Dim Cm As New OleDb.OleDbCommand(StrSql, Cn) > Cn.Open() > Cm.ExecuteNonQuery() > Cn.Close() > Me.BindData() ' Remapper les Combo et DtGrid à la db > ####################### > > Francois > >
