Code: Select all
VARIABLE v1 VARCHAR2(30);
VARIABLE v11 VARCHAR2(30);
DECLARE
l_cnt NUMBER;
BEGIN
SELECT COUNT(*)
INTO l_cnt
FROM dual
WHERE 'DUMMY' = :v11;
END;
/
Code: Select all
VARIABLE v1 VARCHAR2(30);
VARIABLE v11 VARCHAR2(30);
DECLARE
l_cnt NUMBER;
BEGIN
SELECT COUNT(*)
INTO l_cnt
FROM dual
WHERE 'DUMMY' = :v11;
END;
/
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
Param: TOraParam;
OraSession1: TOraSession;
Qry: TOraSQL;
begin
OraSession1 := TOraSession.Create(nil);
try
OraSession1.ThreadSafety := True;
OraSession1.Options.CharLength := 0;
OraSession1.ConnectDialog := ConnectDialog;
OraSession1.AutoCommit := True;
OraSession1.Options.EnableNumbers := True;
OraSession1.LoginPrompt := True;
OraSession1.Options.UseUnicode := True;
OraSession1.Connect;
Qry := OraSession1.OraSQL;
if OraSession1.Connected then
begin
Qry.SQL.Clear;
qry.sql.Text := memo1.Lines.Text;
qry.params.clear;
Param := TOraParam.Create(Qry.Params, ptInputOutput);
Param.Name := edtParam1.text;
Param.DataType := ftWideString;
Param.Size := 30;
Param.Value := '';
Param := TOraParam.Create(Qry.Params, ptInputOutput);
Param.Name := edtParam2.text;
Param.DataType := ftWideString;
Param.Size := 30;
Param.Value := '';
qry.prepare;
qry.execute;
end;
finally
OraSession1.Disconnect;
OraSession1.Free;
end;
end;