Discussion :

[mehat]

Salut pour tout,
Âpres une recherche sur internet j'ai peut dire que le OR 01000 est due ou insuffisance de open_cursor, une fois on augmente manuellement le open_cursors cette erreur est disparu,
est ce que vous pouvais m'aider a résoudre ce problème en utilisant le code ?
merci d'avance>

[mehat]

Bonjour,

Est ce que quelqu'un peut m'aider a resoudre ce problème :

Error message:
ORA-00604: error occurred at recursive SQL 1
ORA-01000: maximum open cursors exceeded
ORA-01000: maximum open cursors exceeded

ce message apparu après le débogage a la ligne de code suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sql.Add('alter session set current_schema = ' + schName);

Merci d'avance

[ShaiLeTroll]

C'est surement sur le Execute ou ExecSQL que tu as l'erreur plutôt que sur le SQL.Add
Tu as fait un SQL.Clear avant ?

As-tu les droits pour changer de Schema ?
As-tu les droits sur le schema vers lequel tu veux te connecter ?

tu utilises BDE, ADO, DOA, DBExpress ?

[mehat]

Bonjour,
voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure SwitchSchema(aSession: TGisConnection; schName: string);
var
  qry: TGisOraQuery;
begin
  qry := TGisOraQuery.Create(nil);
  with Qry do
  try try
    Close;
    Session := aSession;
    Sql.Clear;
    Sql.Add('alter session set current_schema = ' + schName);
    Qry.ExecSql;
  except on e: exception do
  begin  //odstr('Failed to switch schema to ' + schName + #13 + e.Message);
    MessageDlg('Failed to switch schema to ' + schName + #13 + e.Message, mtError, [mbOK], 0);
   // Application.Terminate;
  end;
  end;
  finally
    qry.Close;
    qry.Free;
  end;
end;

j'utilise Oracle

[ShaiLeTroll]

Mehat, a ma question "tu utilises BDE, ADO, DOA, DBExpress ?",
tu me réponds "j'utilise Oracle",
c'est comme si j'avais dit "tu utilises des Michelin, Brigestone ou Hankook"
et que tu m'avais répond "j'utilise une renault"

la bonne réponse était "j'utilise un truc méconnu le TGisOraQuery"
Je pense que tu devrais consulter la doc et le forum du fournisseur de ce composant !