Suite à le création d' une requête INSERT INTO et lors de son exécution, une erreur et relevé.
Auriez-vous,dans un premier, l' amabilité de vérifier le code ci dessous afin de relever d' éventuelles erreurs de code.
Code : Tout sélectionner
Sub SvgDnXf()
Dim DBContext as object, DB as object,DBase as Object, Statement as object, Rqt As Object
Dim RqtSql as string, Fch as string
Fch = ConvertToURL("file:///media/elfouste/El_Casot/Yvon/Phototeque/Phototeque_HSQL.odb")
DBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB = DBContext.getbyName(Fch)
DBase = DB.getConnection("","")
Statement = DBase.createStatement()
RqtSql = "INSERT INTO ""T_Pht_01""(""ChmPht"",""NmPht"",""XtnPht"",""Fbc""," &_
"""Mdl"",""TpBjc"",""DtPht"",""HrPht"",""DmsPht"",""TmpXps""," &_
"""Fcl"",""LngFcl"",""Iso"",""Lmn"",""PstFls"",""ChmCmpPht"")" &_
" Values(""ChmPht"",""NmPht"",""XtnPht"",""Fbc"",""MdlApp"",""Bjc""," &_
"""DtPht"",""HrPht"",""DmsPht"",""TmpXps"",""Fcl"",""LngFcl"",""Snc""," &_
"""Lmn"",""PstFls"",""ChmCmpPht"" FROM ""Tp_Pht"")"
Rqt = Statement.executeQuery(RqtSqL)
End sub
Type: cum.sun.star.Sdbc.SQL Exception
Message: Unexpected token : From in statement [INSERT INTO ""T_Pht_01""(""ChmPht"",""NmPht"",""XtnPht"",""Fbc""," &_
"""Mdl"",""TpBjc"",""DtPht"",""HrPht"",""DmsPht"",""TmpXps""," &_
"""Fcl"",""LngFcl"",""Iso"",""Lmn"",""PstFls"",""ChmCmpPht"")" &_
" Values(""ChmPht"",""NmPht"",""XtnPht"",""Fbc"",""MdlApp"",""Bjc""," &_
"""DtPht"",""HrPht"",""DmsPht"",""TmpXps"",""Fcl"",""LngFcl"",""Snc""," &_
"""Lmn"",""PstFls"",""ChmCmpPht"" FROM]
Cordialement