From eaf75955e86a32869027872dbad43d83e5900ecd Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Tue, 23 Aug 2005 15:31:59 +0000
Subject: [PATCH]  * SchemaInfoSQL-Statements are always read-only

git-svn-id: trunk@931 -
---
 fcl/db/sqldb/sqldb.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fcl/db/sqldb/sqldb.pp b/fcl/db/sqldb/sqldb.pp
index 875da77cf4..ca8acd7f7e 100644
--- a/fcl/db/sqldb/sqldb.pp
+++ b/fcl/db/sqldb/sqldb.pp
@@ -1032,6 +1032,7 @@ end;
 procedure TSQLQuery.SetSchemaInfo( SchemaType : TSchemaType; SchemaObjectName, SchemaPattern : string);
 
 begin
+  ReadOnly := True;
   SQL.Clear;
   SQL.Add((DataBase as tsqlconnection).GetSchemaInfoSQL(SchemaType, SchemaObjectName, SchemaPattern));
 end;