SQL + VB script

[Michieas]

Ik heb een werkende SQL query die gekoppeld is aan VB script.
Er worden verschillende waarden opgevraagd waaronder een waarde uit de kolom JobDepId. In die kolom staan verschillende afdelingen vermeld. In de oude situatie was dit alleen van toepassing op 1 afdeling, in de nieuwe situatie moeten de gegevens van verschillende afdelingen gehaald word.
Wanneer ik de query als volgt aanpast .... AND (JobDepId = 'Afdeling1' OR JobDepId = 'Afdeling2') krijg ik een goede uitkomst uit de database.
In het VB script worden de gegevens volgens mij uit de uitkomst van de query gehaald met:
Dim strJobDepId
strJobDepId = GetValueFromNode(Record, "JobDepId")
strTable = strTable & " <td>" & strJobDepId & " </td>" &VbCrLf

Daarna komt er een stuk waarin de tabel (rapport wat automatisch gemaild word) opgebouwd word.

Het probleem is dat wanneer ik gegevens in query tussen aanhalingstekens zet het VB script niet meer werkt. Doordat er iets niet klopt word er ook geen automatisch mail gestuurd.

Ik hoop dat bovenstaand een beetje duidelijk is aangezien mijn kennis over SQL en VB scripting minimaal is. Door af te kijken in bestaande zaken kom ik een heel eind maar hier kom ik nu niet meer uit.

[ValHallen]

Gooi er een escape in \', op deze manier:

code:

AND (JobDepId = \'Afdeling1\' OR JobDepId = \'Afdeling2\')

Volgens mij zou het dan je probleem op moeten lossen.

[Michieas]

ValHallen schreef op donderdag 08 mei 2014 @ 13:21:
Gooi er een escape in \', op deze manier:

code:

AND (JobDepId = \'Afdeling1\' OR JobDepId = \'Afdeling2\')

Volgens mij zou het dan je probleem op moeten lossen.

Helaas... Wanneer jouw voorgestelde escape doe geeft de query een incorrect syntax. Ik heb ook alle andere mogelijkheden geprobeerd maar blijf een foutmelding krijgen.

code:

AND (JobDepId = \'Afdeling1'\ OR JobDepId = \'Afdeling2'\)

code:

AND (JobDepId = '\Afdeling1\' OR JobDepId = '\Afdeling2\')

code:

AND (JobDepId = '\Afdeling1'\ OR JobDepId = '\Afdeling2'\)

[ValHallen]

Heb je dan eventueel het deel van het script waar het om gaat?

[Big Womly]

Het zou handig zijn dat je die foutmelding hier eens neerpoot, dan kunnen we toch al gerichter gaan zoeken.

Sowieso, als je bezig bent met variabele input in een query die komt van een user, kan je best prepared statements gebruiken.

Wat je ook kan proberen, in plaats van escapen, is concateneren

code:

"And (JobDepId = " & chr(39) & "Afdeling1" & chr(39) & " OR JobDepId = " & chr(39) & "Afdeling2" & chr(39) & ")"

39 = '
34 = "

[ Voor 19% gewijzigd door Big Womly op 08-05-2014 13:58 ]

[Michieas]

code:

SELECT JobDescr, JobRecStatus, JobReportDate, JobEqmId, JobSkcId, JobDepId, JobFeedbackText
 FROM   dba.Job 
 WHERE  JobSkcId ='INSTR' AND JobDescr LIKE '%SOORT%' AND JobReportDate> = {ts '2013-08-01 00:00:01'} 
        AND JobRecStatus = 4 AND JobDepId = 'AFDELING'

Bovenstaand de query zoals die nu werkt.
Dat zit weer gelinkt aan het VB script:

code:

Dim strJobDescr, strJobRecStatus, strJobReportDate, strJobEqmId, strJobSkcId, strJobDepId, strJobFeedbackText
        Dim strEmpEmailAddress
        Dim strSql

        strJobDescr         = GetValueFromNode(Record, "JobDescr")
        strJobRecStatus     = GetValueFromNode(Record, "JobRecStatus")
        strJobReportDate    = GetValueFromNode(Record, "JobReportDate")
        strJobEqmId         = GetValueFromNode(Record, "JobEqmId")
        strJobSkcId     = GetValueFromNode(Record, "JobSkcId")
        strJobDepId         = GetValueFromNode(Record, "JobDepId")
        strJobFeedbackText  = GetValueFromNode(Record, "JobFeedbackText")

        strTable = strTable & "     <tr>"                                   &VbCrLf
        strTable = strTable & "         <td>" & strJobDescr & "&nbsp;</td>"             &VbCrLf
        strTable = strTable & "         <td>" & strJobRecStatus & "&nbsp;</td>"             &VbCrLf         
        strTable = strTable & "         <td>" & strJobReportDate & "&nbsp;</td>"                &VbCrLf         
        strTable = strTable & "         <td>" & strJobEqmId & "&nbsp;</td>"             &VbCrLf         
        strTable = strTable & "         <td>" & strJobSkcId & "&nbsp;</td>"             &VbCrLf 
        strTable = strTable & "         <td>" & strJobDepId & "&nbsp;</td>"             &VbCrLf         
        strTable = strTable & "         <td>" & strJobFeedbackText & "&nbsp;</td>"              &VbCrLf         
        strTable = strTable & "     </tr>"                                  &VbCrLf

In het VB script zit nog een stuk voor automatisch mailen en opbouw van een rapport.

Wanneer ik dus meerdere afdelingen toe wilt voegen (JobDepId = 'Afdeling1' OR JobDepId = 'Afdeling2') vermoed ik dat er iets fout gaat in het VB script waardoor deze niet afgemaakt kan worden. Hierdoor word er geen automatisch mail gestuurd welke aan het eind van het VB script zit.

Zoals vermeld is mijn kennis minimaal en probeer door te doen er wat van te leren.