From 00271ee13c47cfb53b3904fc959ef29e366ec8f4 Mon Sep 17 00:00:00 2001
From: michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 28 Mar 2011 09:00:31 +0000
Subject: * Fixed bug 19008

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17199 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/fcl-db/src/base/fields.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'packages/fcl-db')

diff --git a/packages/fcl-db/src/base/fields.inc b/packages/fcl-db/src/base/fields.inc
index ccdda197b7..6aea141531 100644
--- a/packages/fcl-db/src/base/fields.inc
+++ b/packages/fcl-db/src/base/fields.inc
@@ -819,7 +819,7 @@ procedure TField.SetData(Buffer: Pointer; NativeFormat : Boolean);
 
 begin
   If Not Assigned(FDataset) then
-    EDatabaseError.CreateFmt(SNoDataset,[FieldName]);
+    DatabaseErrorFmt(SNoDataset,[FieldName]);
   FDataSet.SetFieldData(Self,Buffer, NativeFormat);
 end;
 
-- 
cgit v1.2.1