Hi,
I have the following code:
ds := TOracleDataset.Create(nil);
ds.Session := TOracleSession.Create(ds);
try
ds.ReadOnly := false;
ds.Session.LogonUsername := xxx
ds.Session.LogonPassword := xxx
ds.Session.LogonDatabase := xxx
ds.Session.LogOn;
ds.Active := false;
ds.SQL.Clear;
ds.SQL.Add('SELECT a.seksjon, a.parameter, a.verdi, a.sistendra, a.id, a.sletta, a.rowid FROM webuser.ewuelsoweinit a');
ds.SQL.Add('Where seksjon = '+QuotedStr(el.Seksjon)+' and parameter = '+QuotedStr(el.Parameter));
ds.SQL.Add('and id ='+QuotedStr(el.ID));
ds.Active := true;
if (ds.RecordCount = 1) then
ds.Edit;
....
I get Access violation at address 0040195D in module 'ElWSClient2.exe'. Read of address 0000ED2C
When the line "ds.Edit" is executed. Any idea why?
I have the following code:
ds := TOracleDataset.Create(nil);
ds.Session := TOracleSession.Create(ds);
try
ds.ReadOnly := false;
ds.Session.LogonUsername := xxx
ds.Session.LogonPassword := xxx
ds.Session.LogonDatabase := xxx
ds.Session.LogOn;
ds.Active := false;
ds.SQL.Clear;
ds.SQL.Add('SELECT a.seksjon, a.parameter, a.verdi, a.sistendra, a.id, a.sletta, a.rowid FROM webuser.ewuelsoweinit a');
ds.SQL.Add('Where seksjon = '+QuotedStr(el.Seksjon)+' and parameter = '+QuotedStr(el.Parameter));
ds.SQL.Add('and id ='+QuotedStr(el.ID));
ds.Active := true;
if (ds.RecordCount = 1) then
ds.Edit;
....
I get Access violation at address 0040195D in module 'ElWSClient2.exe'. Read of address 0000ED2C
When the line "ds.Edit" is executed. Any idea why?