Jeder kennt das Problem... Man hat einen formatierten String und möchte diesen im Code verwenden.
zwei Möglichkeiten.... entweder man stückelt Ihn über mehrere Zeilen zusammen oder man macht eine gaaaaanz lange Zeile daraus.
Beides ist unbefriedigend und mühsam.
Gestern habe ich nun das XElement dafür entdeckt :
1 Dim SQL As New XElement(<root>
2
3 SELECT CMS_Artikel.Dachzeile,
4 CMS_Artikel.DateFrom,
5 CMS_Artikel.CreateDate,
6 User_User.RealName,
7 CMS_Artikel.ArtikelID
8 FROM CMS_Artikel INNER JOIN
9 CMS_ArtikelEntry ON CMS_Artikel.ArtikelID =
10 CMS_ArtikelEntry.ArtikelID
11 INNER JOIN User_User ON CMS_Artikel.UserID =
12 User_User.UserID
13 WHERE (CMS_Artikel.ArtikelID = <%= CInt(ArtikelID) %>)
14 ORDER BY CMS_Artikel.DateFrom
15
16 </root>)
17
18
19 Dim myText As String = SQL.Value.ToString