Devart Forums

This program doesn't compile at line 46, because I
don't really know the syntax of what I am trying to
do: Is there anyone who can enlighten me on how
to crank this out?
{$APPTYPE CONSOLE}
program p1;
uses
System,OdacVcl,DBAccess, Ora, OraAlerter, Db,
Messages, SysUtils, Classes, Controls, MemDS, OraSmart;


var
flag : boolean;
k : integer;
OraSession1 : TOraSession;
test1 : TMemDataSet;

begin
flag := false;
OraSession1 := TOraSession.Create(nil);
OraSession1.Server := 'dbgojer';
OraSession1.Password := 'shlock';
OraSession1.Username := 'SYSTEM';
OraSession1.Connect;
test1 := TMemDataSet.Create(nil);
while not flag do
begin
writeln;
writeln('Menu');
writeln('1 - insert record');
writeln('2 - delete record');
writeln('3 - search record');
writeln('4 - quit program');
write('> ');
readln(k);
case k of
1 : begin
with test1 do
Insert('key1','data1');
end;
2 : begin
end;
3 : begin
end;
4 : begin
flag := true;
end;
end;
end;
OraSession1.Disconnect;
end.

Please use TSmartQuery. TOraTable, TOraQuery that are based on Borland TDataSet component.
Please see examples on TDataSet.Insert, TDataSet.Edit, TDataSet.Append in
Borland Delphi help.
You can see ODAC help and ODAC demo projects to get know how to use ODAC specific
features.

Please use this forum for questions regarding only to ODAC components, such as
difficulties of using some ODAC specific features, compatibility ODAC with
other products, components, classes. We cannot give you basic information
how to make program with Delphi or VCL or answer specific questions about
third party products.

I was not aware that the syntax of TDataset could be borrowed
for ODAC because I never was properly introduced to the
insides of how ODAC was programmed. The dillemma with not
cheating on the design of the ODAC web page, is that you cannot
buy the information in a retail store, or find it on an independent
web page, and the proprietors of ODAC are not personal friends
of our programming team, (because we are not a programming
business, we are an engineering business.) I will try not to put
stupid things in my forum questions, but please bear with me when
I do.