[VB 6] Te lange regel code ( SQL instructie ) ?

[fluppie007]

Ik heb een vrij lange SQL instructie, deze is nu zo lang dat ik ze van VB niet meer op 1 lijn code mag zetten. Dit is de gewenste lijn code:

[CODE=vb]
adoPrimaryRS.Open "SHAPE { SELECT Orders.OrderID, FactuurNummer.FactuurNummer, Orders.OrderDate, Customers.CustomerID, Customers.CompanyName, Customers.CompanyBTW, Customers.ContactFirstName, Customers.ContactLastName, Customers.Address, Customers.City, Customers.PostalCode, Customers.Country FROM Customers INNER JOIN (Orders INNER JOIN FactuurNummer ON Orders.OrderID = FactuurNummer.OrderID) ON Customers.CustomerID = Orders.CustomerID ORDER BY Orders.OrderID;} AS ParentCMD APPEND ({ SELECT Orders.OrderID, Products.ProductName AS Productnaam, Products.UnitPriceSell AS Stukprijs, [Order Details].Quantity AS Aantal, [Totaal Incl]-[Totaal Excl] AS BTW, Products!UnitPriceSell*[Order Details]!Quantity AS [Totaal Excl], [Totaal Excl]*1.21 AS [Totaal Incl], Brands!BrandName & Chr(32) & Products!ProductName AS Omschrijving FROM Brands INNER JOIN (Products INNER JOIN (Orders INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID) ON Brands.BrandID = Products.BrandID; } AS ChildCMD RELATE OrderID TO OrderID) AS ChildCMD", db, adOpenStatic, adLockOptimistic
[/CODE=vb]

Dan dacht ik er dit van te maken:

[CODE=vb]

Dim SQLString As String
Dim SQLString1 As String
Dim SQLString2 As String
SQLString1 = "SHAPE { SELECT Orders.OrderID, FactuurNummer.FactuurNummer, Orders.OrderDate, Customers.CustomerID, Customers.CompanyName, Customers.CompanyBTW, Customers.ContactFirstName, Customers.ContactLastName, Customers.Address, Customers.City, Customers.PostalCode, Customers.Country FROM Customers INNER JOIN (Orders INNER JOIN FactuurNummer ON Orders.OrderID = FactuurNummer.OrderID) ON Customers.CustomerID = Orders.CustomerID ORDER BY Orders.OrderID;}"
SQLString2 = " AS ParentCMD APPEND ({ SELECT Orders.OrderID, Products.ProductName AS Productnaam, Products.UnitPriceSell AS Stukprijs, [Order Details].Quantity AS Aantal, [Totaal Incl]-[Totaal Excl] AS BTW, Products!UnitPriceSell*[Order Details]!Quantity AS [Totaal Excl], [Totaal Excl]*1.21 AS [Totaal Incl], Brands!BrandName & Chr(32) & Products!ProductName AS Omschrijving FROM Brands INNER JOIN (Products INNER JOIN (Orders INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID) ON Brands.BrandID = Products.BrandID;} AS ChildCMD RELATE OrderID TO OrderID) AS ChildCMD, db, adOpenStatic, adLockOptimistic"
SQLString = SQLString1 + SQLString2
adoPrimaryRS.Open SQLString
[/CODE=vb]

Maar om de 1 of andere reden werkt dit niet.
Ik krijg van VB een runtime error ( 3709 ):
"De verbinding is ongeldig of gesloten."

[Varienaja]

Ik kan het me haast niet voorstellen dat dit nu nog in VB zo is, maar uit mijn QBasic periode herinner ik me nog dat strings maximaal 255 karakters lang konden zijn. En inderdaad: op een gegeven moment is je sql-string dan te lang. Het over twee regels uitsmeren en dan aan elkaar plakken helpt natuurlijk niet, want de uiteindelijke string wordt nog steeds afgekapt.

Uit mijn Delphi-periode herinner ik me dan weer het TQuery-component, waarbij je een heleboel regels kon zetten:

code:

var Q:TQuery;
Q:=TQuery.create;
Q.Lines.Add("select * from tabel");
Q.Lines.Add("where dit=dat");

Wellicht heeft VB ook een dergelijke constructie om lange stukken SQL op te geven?

_{Maar even serieus: het wil er bij mij toch eigenlijk niet in dat er nog programmeertalen bestaat die geen lange strings toestaan?? Ik hoop echt dat het probleem iets anders is ;-)}

[PolarBear]

fluppie007 schreef op woensdag 27 december 2006 @ 04:44:
Ik heb een vrij lange SQL instructie, deze is nu zo lang dat ik ze van VB niet meer op 1 lijn code mag zetten.

[...]

Ik krijg van VB een runtime error ( 3709 ):
"De verbinding is ongeldig of gesloten."

Waar staat in de foutmelding dat het te maken heeft met een lange SQL instructie? Het lijkt er eerder op dat je geeneens een verbinding hebt met je SQL server: "De verbinding is ongeldig of gesloten."

[Megamind]

Ik weet bij delphi dat dit wel zo is, maar dan krijg je bij het compilen al een halt dat er teveel tekens in een string staan.

[kenneth]

Drie variabelen is trouwens nergens voor nodig:

Visual Basic:

mijnString = "lorem ipsum " & _
    "sit amet," & _
    "consectetuer adipiscing elit."

[martennis]

wat is je connection string?
is die wel goed?

[fluppie007]

Deze code doet het, maar hier ontbreken nog enkele gegevens die ik nog nodig heb:

[CODE=vb]adoPrimaryRS.Open "SHAPE { SELECT Orders.OrderID, FactuurNummer.FactuurNummer, Orders.OrderDate, Customers.CustomerID, Customers.CompanyName, Customers.CompanyBTW, Customers.ContactFirstName, Customers.ContactLastName, Customers.Address, Customers.City, Customers.PostalCode, Customers.Country FROM Customers INNER JOIN (Orders INNER JOIN FactuurNummer ON Orders.OrderID = FactuurNummer.OrderID) ON Customers.CustomerID = Orders.CustomerID ORDER BY Orders.OrderID;} AS ParentCMD APPEND ({ SELECT Orders.OrderID, Products.ProductName AS Productnaam, Products.UnitPriceSell AS Stukprijs, [Order Details].Quantity AS Aantal, [Totaal Incl]-[Totaal Excl] AS BTW, Products!UnitPriceSell*[Order Details]!Quantity AS [Totaal Excl], [Totaal Excl]*1.21 AS [Totaal Incl] FROM Products INNER JOIN (Orders INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID; } AS ChildCMD RELATE OrderID TO OrderID) AS ChildCMD", db, adOpenStatic, adLockOptimistic[/CODE=vb]

Deze code doet het niet, al is de SQL string wel ok, want ik maak in access een selectiequery, neem SQL weergave en plak die string in men VB code, werkte tot voorheen perfect, nu is deze string zo lang geworden dat ik ze niet meer op 1 lijn kan plakken

de runtime error maakt deze lijn code geel: [CODE=vb]adoPrimaryRS.Open SQLString[/CODE=vb]

[CODE=vb]Dim SQLString As String

SQLString = "SHAPE { SELECT Orders.OrderID, FactuurNummer.FactuurNummer, Orders.OrderDate, Customers.CustomerID, Customers.CompanyName, Customers.CompanyBTW, Customers.ContactFirstName, Customers.ContactLastName, Customers.Address, Customers.City, Customers.PostalCode, Customers.Country FROM Customers INNER JOIN (Orders INNER JOIN FactuurNummer ON Orders.OrderID = FactuurNummer.OrderID) ON Customers.CustomerID = Orders.CustomerID ORDER BY Orders.OrderID;}" & _
" AS ParentCMD APPEND ({ SELECT Orders.OrderID, Products.ProductName AS Productnaam, Products.UnitPriceSell AS Stukprijs, [Order Details].Quantity AS Aantal, [Totaal Incl]-[Totaal Excl] AS BTW, Products!UnitPriceSell*[Order Details]!Quantity AS [Totaal Excl], [Totaal Excl]*1.21 AS [Totaal Incl], Brands!BrandName & Chr(32) & Products!ProductName AS Omschrijving FROM Brands INNER JOIN (Products INNER JOIN (Orders INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID) ON Brands.BrandID = Products.BrandID;} AS ChildCMD RELATE OrderID TO OrderID) AS ChildCMD, db, adOpenStatic, adLockOptimistic"

adoPrimaryRS.Open SQLString[/CODE=vb]


Dit is de onbewerkte string als ik hem van access kopieër :
Ik zet juist in notepas even alles op 1 regel, deze string is voor mijn ChildCMD, ParentCMD mag behouden worden zoals in vorige code snippet.

[CODE=vb]SELECT Orders.OrderID, Products.ProductName AS Productnaam, Products.UnitPriceSell AS Stukprijs, [Order Details].Quantity AS Aantal, [Totaal Incl]-[Totaal Excl] AS BTW, Products!UnitPriceSell*[Order Details]!Quantity AS [Totaal Excl], [Totaal Excl]*1.21 AS [Totaal Incl], Brands!BrandName & " " & Products!ProductName AS Expr1
FROM Brands INNER JOIN (Products INNER JOIN (Orders INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID) ON Brands.BrandID = Products.BrandID;[/CODE=vb]]

Jullie nog ideeën ? Ik heb kenneth's methode geprobeerd, maar tevergeefs zelfde error.
En ik denk niet dat het miijn connection string is want met die allereerste code doet die het
wel...

[RaZ]

Nu ben ik geen held wat betreft SQL, maar Chr(32) zetten in een var als tekst lijkt me niet echt handig. Dat is gewoon een spatie, en die wordt nu niet omgezet omdat het in een var staat, als tekst dus.

ik zou daar gewoon ' ' van maken, of die chr uit je tekstvariable halen ...." & Chr(32) & "....

[BertS]

Visual Basic:

Dim SQLString As String
  
SQLString = "SHAPE { SELECT Orders.OrderID, FactuurNummer.FactuurNummer, Orders.OrderDate, Customers.CustomerID, Customers.CompanyName, Customers.CompanyBTW, Customers.ContactFirstName, Customers.ContactLastName, Customers.Address, Customers.City, Customers.PostalCode, Customers.Country FROM Customers INNER JOIN (Orders INNER JOIN FactuurNummer ON Orders.OrderID = FactuurNummer.OrderID) ON Customers.CustomerID = Orders.CustomerID ORDER BY Orders.OrderID;}" & _
  " AS ParentCMD APPEND ({ SELECT Orders.OrderID, Products.ProductName AS Productnaam, Products.UnitPriceSell AS Stukprijs, [Order Details].Quantity AS Aantal, [Totaal Incl]-[Totaal Excl] AS BTW, Products!UnitPriceSell*[Order Details]!Quantity AS [Totaal Excl], [Totaal Excl]*1.21 AS [Totaal Incl], Brands!BrandName & Chr(32) & Products!ProductName AS Omschrijving FROM Brands INNER JOIN (Products INNER JOIN (Orders INNER JOIN [Order Details] ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID = [Order Details].ProductID) ON Brands.BrandID = Products.BrandID;} AS ChildCMD RELATE OrderID TO OrderID) AS ChildCMD"
  adoPrimaryRS.Open SQLString, db, adOpenStatic, adLockOptimistic

zal het wel doen. Je hebt de string niet correct afgekapt, maar de extra parameters ook in je string-variabele opgenomen.

[fluppie007]

BertS: Koning !

Jouw code doet het helemaal . Hartelijk dank voor jullie hulp allemaal.

Groetjes en prettige eindejaarsfeesten

[RobIII]

kenneth schreef op woensdag 27 december 2006 @ 08:41:
Drie variabelen is trouwens nergens voor nodig:

Visual Basic:

mijnString = "lorem ipsum " & _
    "sit amet," & _
    "consectetuer adipiscing elit."

Dat mag overigens van VB6 maar maximaal 25 regels Daarna krijg je een "too many line continuations"

[kenneth]

Hahaha Nou, sowieso is het ranzig, ik kan me geen situatie bedenken waarin je dat nodig zou hebben. SQL-concatenation wil je niet, en lange constanten zet je in een file ofzo ...

[farlane]

Probeer de SQL code eens in een stored procedure te zetten, is vaak ook handiger ivm SQL injection etc

[kenneth]

Dat helpt helemaal niets tegen SQL injection, parametrisering helpt daartegen.
Wat een stored procedure verder ("etc") zou toevoegen, vraag ik me ook af.

[ShadowrunR]

Als je je strings concateneert met een '&'-operator ipv een '+', zou het moeten werken. Losstaande van het feit dat 3 variabelen natuurlijk voor niets nodig zijn.

[PiepPiep]

Een string kan heel lang worden in VB, ik heb er een keer een gehad van 60MB ofzo.
Attachment die naar base64 omgezet was.

[RobIII]

PiepPiep schreef op donderdag 28 december 2006 @ 23:54:
Een string kan heel lang worden in VB, ik heb er een keer een gehad van 60MB ofzo.
Attachment die naar base64 omgezet was.

Een string in VB6 mag inpricipe tot 2Gb "groot" zijn (pas wel op met UNICODE strings; dus 2 bytes per char). Een fixed-length string mag max. 64Kb groot zijn bij mijn weten. Bron. "Heel lang" is ook zo...nattevingerwerk

Maar wat heeft dat te maken met dit topic?

[ Voor 18% gewijzigd door RobIII op 29-12-2006 00:04 ]

[farlane]

kenneth schreef op donderdag 28 december 2006 @ 12:49:
Dat helpt helemaal niets tegen SQL injection, parametrisering helpt daartegen.
Wat een stored procedure verder ("etc") zou toevoegen, vraag ik me ook af.

geez, 'geparametriseerde stored procedures' dan voor jou ..

Verdere voordelen van stored procedures: http://blogs.wdevs.com/co...chive/2004/10/01/716.aspx

Of beter:
http://www.google.nl/sear...&btnG=Google+zoeken&meta=

[ Voor 10% gewijzigd door farlane op 29-12-2006 02:38 ]

[kenneth]

farlane schreef op vrijdag 29 december 2006 @ 02:38:

geez, 'geparametriseerde stored procedures' dan voor jou ..

Je hoeft niet zo te reageren
Want het gaat dus om het parametriseren, niet om de stored procedure. Gewone dynamic sql die geparametriseerd is, is dus even veilig. De overhead om ook nog 'ns een stored procedure te maken voegt, in ieder geval wat betreft veiligheid, helemaal niets toe.

Verdere voordelen van stored procedures: http://blogs.wdevs.com/co...chive/2004/10/01/716.aspx

Ik heb er ook nog een paar ...

En dan vooral de eerste link is inmiddels 'n klassieker

Of beter:
http://www.google.nl/sear...&btnG=Google+zoeken&meta=

Ik zie het

[farlane]

kenneth schreef op vrijdag 29 december 2006 @ 09:27:
Je hoeft niet zo te reageren

Dat kwam omdat je opmerking overkwam op mij als 'waar heeft die bal gehakt het nou weer over?'

Want het gaat dus om het parametriseren, niet om de stored procedure. Gewone dynamic sql die geparametriseerd is, is dus even veilig.

Hmmkay, ik heb mijn post verkeerd geformuleerd. De SQL code die ik in het voorbeeld zie is echter verre van geparametriseerd, en lijkt op de code die ikzelf een aantal jaren terug maakte. Dat gaat gewoon niet goed komen. ( Ja ik weet het er zitten geen parameters in deze query, maar als deze zonder parameters er zo uit ziet durf ik te wedden dat die queries die er wel wat hebben er hetzelfde uitzien )

Ik heb er ook nog een paar ...

En dan vooral de eerste link is inmiddels 'n klassieker

..etc...

Denk niet dat het nodig is om die discussie hier te gaan herhalen dan. Er zijn bij zoals zoveel dingen voor en tegenstanders van het gebruik van stored procedures. De uiteindelijke doelstelling is echter bij iedereen hetzelfde : veiligheid, snelheid en eenduidigheid.

[edit]
Btw Frans pleit voor een methode waarbij SQL code 'on the fly' gegenereerd wordt. Is ook niet wat hier gebeurt.

[ Voor 4% gewijzigd door farlane op 30-12-2006 17:23 ]

[Stamgastje]

Wat de TS sowieso kan doen, is tabelnamen vervangen door afkortingen (m.b.h. AS):

SQL:

SHAPE {
    SELECT
        O.OrderID, F.FactuurNummer, O.OrderDate, C.CustomerID, C.CompanyName, C.CompanyBTW, C.ContactFirstName, C.ContactLastName, C.Address, C.City, C.PostalCode, C.Country 
    FROM 
        Customers AS C 
    INNER JOIN 
        (
            Orders AS O INNER JOIN FactuurNummer AS F ON O.OrderID = F.OrderID
        ) ON C.CustomerID = O.CustomerID 
    ORDER BY 
        O.OrderID;
} 
AS ParentCMD 

APPEND 

(
    {
        SELECT 
            O.OrderID, P.ProductName AS Productnaam, P.UnitPriceSell AS Stukprijs, OD.Quantity AS Aantal, [Totaal Incl]-[Totaal Excl] AS BTW, P!UnitPriceSell*OD!Quantity AS [Totaal Excl], [Totaal Excl]*1.21 AS [Totaal Incl], B!BrandName & Chr(32) & P!ProductName AS Omschrijving 
        FROM 
            Brands AS B 
        INNER JOIN (
            Products AS P INNER JOIN (
                Orders AS O INNER JOIN [Order Details] AS OD ON O.OrderID = OD.OrderID
            ) ON P.ProductID = OD.ProductID
        ) ON B.BrandID = P.BrandID; 
    } AS ChildCMD 
    RELATE OrderID TO OrderID
) AS ChildCMD

Dit zorgt ervoor dat de query korter wordt en daardoor ook leesbaarder is (in mijn ogen).