Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.15 » View Incident Report |
Serious |
Reported By: Wolfgang Klein [AESA GmbH] Reported On: 11/13/2013 For: Version 2.14 Build 2 |
var Database :TEDBDatabase; Table :TEDBTable; i :Integer; Field :TField; begin Engine.ConfigPath:='C:\Test'; Session.SessionType:=stLocal; Session.LoginUser:='Administrator'; Session.LoginPassword:='EDBDefault'; Session.SessionName:='SessionTest1'; Session.Open; Session.Execute('CREATE DATABASE "DatabaseTest" PATH '''''); Database:=TEDBDatabase.Create(nil); Database.SessionName:=Session.SessionName; Database.DatabaseName:='DatabaseTest'; Database.Database:='DatabaseTest'; Database.Open; Database.Execute('CREATE TABLE "TestNULL" ("a" BLOB)'); Database.Execute('CREATE TABLE "Test0" ("a" BLOB)'); Table:=TEDBTable.Create(nil); Table.SessionName:=Session.SessionName; Table.DatabaseName:=Database.DatabaseName; Table.Exclusive:=True; Table.TableName:='TestNULL'; Table.Open; Field:=Table.Fields [0]; for i:=1 to 1000 do begin Table.Append; Field.Clear; Table.Post; end; Table.Close; Table.TableName:='Test0'; Table.Open; Field:=Table.Fields [0]; for i:=1 to 1000 do begin Table.Append; Field.AsBytes:=nil; Table.Post; end; Table.Close; Table.Free; Database.Free;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |