AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

jj: strings need to be escaped by double-doublequotes

Browse Source
This commit is contained in:
Jonathan Jenne 2019-01-21 16:29:09 +01:00
parent 92d1751602
commit 79ca2e4a46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
EDMI_FILE_OPs/FileOp.vb
View File

@ -53,7 +53,7 @@ Public Class FileOp
Dim oFileGUID = Await New_EDMIFile_CreateContainer(oFILENAME) Dim oFileGUID = Await New_EDMIFile_CreateContainer(oFILENAME)
Dim oFileRecordID = Nothing Dim oFileRecordID = Nothing
If Not IsNothing(oFileGUID) Then If Not IsNothing(oFileGUID) Then
Dim oSQL = $"SELECT FNEDMI_SET_RECORD('TBEDMI_ADRESSE','{oUserName}',FALSE,NULL,'','{oFileGUID}') FROM rdb$database;" Dim oSQL = $"SELECT FNEDMI_SET_RECORD(""TBEDMI_ADRESSE"",""{oUserName}"",FALSE,NULL,'','{oFileGUID}') FROM rdb$database;"
oFileRecordID = Await New_EDMIFile_CreateDB_Record(oSQL) oFileRecordID = Await New_EDMIFile_CreateDB_Record(oSQL)
End If End If
Return oFileRecordID Return oFileRecordID