Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [SQL] Retour à la ligne refusés ?

[SQL] Retour à la ligne refusés ?

1 réponse
Avatar
Stéphane Santon
Bonjour,

Dans une requête Access du type suivant, si j'insère des vbCrLf ou
autres sauts de ligne dans la requête, elle est refusée (erreur SQL).
Comment y placer des Sauts de ligne pour l'afficher par ailleurs ?

lsSQL = " SELECT " & _
" Pst.IdPoste, " & _
" Enr.IdEvent, " & _
" Evt.NoComportement, " & _

'NE MARCHE PAS :
'lsSQL = " SELECT " & vbCrLf & _
" Pst.IdPoste, " & & vbCrLf & _
" Enr.IdEvent, " & & vbCrLf & _

[couic...]

With aoSheet.QueryTables.Add( _
Connection:=Array( _
"ODBC;DSN=MS Access Database;DBQ=" & lsFile & ";", _
"DriverId=25;", _
"FIL=MS Access;", _
"MaxBufferSize=2048;", _
"PageTimeout=5;"), _
Destination:=aoSheet.Range("A1"))

.CommandText = lsSQL
.Name = csDataQuery
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With


--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.

Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime
Signaler un problème avec ce contenu

1 réponse

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
Avatar
Shnoulle
Bonjour Stéphane,

Heu, à ma connaissance SQL n'accepte pas de saut de ligne ?


A+
Shnoulle





De : Stéphane Santon
Société : cdie
Groupes : microsoft.public.fr.excel
Date : Tue, 20 Jul 2004 20:36:43 +0200
Objet : [SQL] Retour à la ligne refusés ?

Bonjour,

Dans une requête Access du type suivant, si j'insère des vbCrLf ou
autres sauts de ligne dans la requête, elle est refusée (erreur SQL).
Comment y placer des Sauts de ligne pour l'afficher par ailleurs ?

lsSQL = " SELECT " & _
" Pst.IdPoste, " & _
" Enr.IdEvent, " & _
" Evt.NoComportement, " & _

'NE MARCHE PAS :
'lsSQL = " SELECT " & vbCrLf & _
" Pst.IdPoste, " & & vbCrLf & _
" Enr.IdEvent, " & & vbCrLf & _

[couic...]

With aoSheet.QueryTables.Add( _
Connection:=Array( _
"ODBC;DSN=MS Access Database;DBQ=" & lsFile & ";", _
"DriverId%;", _
"FIL=MS Access;", _
"MaxBufferSize 48;", _
"PageTimeout=5;"), _
Destination:=aoSheet.Range("A1"))

.CommandText = lsSQL
.Name = csDataQuery
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:úlse
End With


--
** Anti-Spam : ajouter [usenet] dans l'objet pour ne pas être rejeté.

Cordialement, Stéphane *** http://www.team-santonum.com
Loisirs, nature, arts, technologie : accueil en Charente-Maritime