Avoid an access violation within a for loop which got run once even when there were 0 columns in a result.

This commit is contained in:
rosenfield
2007-10-05 18:03:11 +00:00
parent ee353d15cc
commit ea89447fa6

View File

@@ -1428,7 +1428,7 @@ begin
with ResultSet.GetMetadata do
begin
for I := 1 to GetColumnCount do
if GetColumnCount > 0 then for I := 1 to GetColumnCount do
begin
FieldType := ConvertDbcToDatasetType(GetColumnType(I));