Hi, I'm migrating a Delphi 2007 app from BDE to Firebird using IBO.

This piece of code (below) works fine with BDE, but with FB I get the error

Invalid INSERT statement: no columns

I can get the error to go away if I add a dummy value to one of the fields. But is that really necessary, or am I missing something here?

THANKS/JACOB


function CreateLokale: Integer;
begin
with LokaleCreateTable do begin
Append;
Post;
Result := FieldByName('LokaleNo').AsInteger
end
end;

LokaleCreateTable is a TwwIBOTable, here is the dfm part:


object LokaleCreateTable: TwwIBOTable
DatabaseName = 'Skdata'
IB_Connection = DsaElevLogin.Database
RecordCountAccurate = True
TableName = 'LOKALE'
FieldOptions = []
ValidateWithMask = True
Left = 34
Top = 214
object LokaleCreateTableLokaleNo: TIntegerField
FieldName = 'LokaleNo'
end
object LokaleCreateTableDato1: TDateField
FieldName = 'Dato1'
end
object LokaleCreateTabledato2: TDateField
FieldName = 'dato2'
end
object LokaleCreateTableStartTime: TTimeField
FieldName = 'StartTime'
OnSetText = TimeFieldSetText
end
object LokaleCreateTableEndTime: TTimeField
FieldName = 'EndTime'
OnSetText = TimeFieldSetText
end
object LokaleCreateTablelokale: TStringField
FieldName = 'lokale'
Size = 7
end
object LokaleCreateTableforb: TStringField
FieldName = 'forb'
Size = 7
end
end