Discussion :

[r83]

Bonjour,

environnement C# vs2012/ Oracle 11G.
Je stocke des chaines dans une collection C# (collection<string>), et je dois passer cette collection en paramètre à une procédure stockée Oracle qui adment en paramètre un tableau (type tstrings IS TABLE OF varchar(50) INDEX BY pls_integer range 0..9

Je n'y arrive pas ....

ça marche quand j'envoie depuis C# un tableau de strings (String[]), mais cette solution ne me convient pas car je ne conanis pas à priori la taille de mon tableau.
Si quelqu'un a une solution ....
Merci

[youtpout978]

Bonsoir,
tu as la méthode ToArray() sur les listes qui te permet de retourner ta liste sous la forme d'un tableau.

[loustalet]

Essaye avec ce bout de code qui marche :

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
25
26
27
28
29
 
        public void TestCollection()
        {            
            try
            {
                Collection<String> chaine = new Collection<string>();
                chaine.Add("Chaine1");
                chaine.Add("Chaine2");
                UneOracleCommand = new OracleCommand("pckparticipant.test", CnOracle);
                UneOracleCommand.CommandType = CommandType.StoredProcedure;
                OracleParameter pcollection = new OracleParameter();
                pcollection.ParameterName = "unecollection";
                pcollection.Direction = ParameterDirection.Input;
                pcollection.OracleDbType = OracleDbType.Varchar2;
                pcollection.CollectionType = OracleCollectionType.PLSQLAssociativeArray;
                pcollection.Value = chaine.ToArray();
                pcollection.Size = chaine.Count;
                UneOracleCommand.Parameters.Add(pcollection);
                UneOracleCommand.ExecuteNonQuery();
            }
            catch (OracleException Oex)
            {
                MessageBox.Show("Erreur Oracle \n" + Oex.Message);
            }
            catch (Exception ex)
            {
                MessageBox.Show("Autre Erreur  \n" + ex.Message);
            }
        }

Et côté PLSQL :

Code SQL :

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
 
create or replace
package body pckparticipant
is
erreur exception;
 procedure  Test(unecollection in tdates)
is
erreur exception;
begin
  FOR i IN unecollection.FIRST .. unecollection.LAST 
  LOOP
      insert into test values (unecollection(i));
  END LOOP;
exception
    when erreur then
      raise_application_error(-20099, 'test erreur');
end;
end pckparticipant;

ça devrait marcher !

[r83]

Merci beaucoup loustalet, le code marche impéccable.
Bon we