From 79ca2e4a4659559a8dd9bbd16f9379388d80d9df Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 21 Jan 2019 16:29:09 +0100 Subject: [PATCH] jj: strings need to be escaped by double-doublequotes --- EDMI_FILE_OPs/FileOp.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/EDMI_FILE_OPs/FileOp.vb b/EDMI_FILE_OPs/FileOp.vb index 669e2acd..aec0d871 100644 --- a/EDMI_FILE_OPs/FileOp.vb +++ b/EDMI_FILE_OPs/FileOp.vb @@ -53,7 +53,7 @@ Public Class FileOp Dim oFileGUID = Await New_EDMIFile_CreateContainer(oFILENAME) Dim oFileRecordID = Nothing 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) End If Return oFileRecordID