Discussion :

[Cvbdev]

Bonjour,

Je travaille sur une base Oracle ! Je n'ai pas de problème pour récupèrer les données. En ce qui concerne l'insertion, la mise à jour, j'ai quelques soucis !

Démarche ==> j'arrive à insérer les données. Je supprime les données manuellement et je refais l'action. Quand je veux réinsérer ces mêmes données, ça ne fonctionne pas et j'ai un message d'erreur, au bout de quelques secondes !

Voici mon erreur :

Le CLR n'a pas pu effectuer de transition du contexte COM 0x10df448 au contexte COM 0x10df5b8 pendant 60 secondes. Le thread qui possède le contexte/cloisonnement de destination est probablement en train d'attendre ou de traiter une opération très longue sans pompage des messages Windows. Cette situation a généralement des effets négatifs sur les performances et peut parfois entraîner le blocage de l'application ou une utilisation ininterrompue de la mémoire. Pour éviter ce problème, tous les threads STA (Single Threaded Apartment) doivent utiliser des primitives d'attente de pompage (par exemple CoWaitForMultipleHandles) et pomper de manière régulière les messages lors des opérations qui sont longues à s'exécuter.

et voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
                              + "(ADDRESS=(PROTOCOL=TCP)(HOST=172.30.32.92)(PORT=1521)))" _
                              + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=ORCL)));" _
                              + "User Id=xxxxx;Password=xxxxx;"
   Dim conn As New OracleConnection(Me.oradb)
   Dim myOracleTransaction As OracleTransaction = conn.BeginTransaction()
   Dim myOracleCommand As OracleCommand = conn.CreateCommand()
   myOracleCommand.CommandText = "INSERT INTO CATEGORIES (CODE_CATEGORIE,NOM_CATEGORIE,DESCRIPTION) VALUES(10,'toto','titi')"
   myOracleCommand.ExecuteNonQuery()
   myOracleTransaction.Commit()
   conn.Close()

Avez-vous une idée de l'origine de l'erreur, svp ?

D'avance merci pour les réponses
Cvb

[Skalp]

Pour ma part, en général, j'ai cette erreur quand je suis en mode Debug et que j'ai stoppé l'exécution (sur un point d'arrêt, par exemple) pendant plus d'une minute alors que les variables en cours contiennent des références externes (telles qu'une connexion à une BD) ou sur des threads différents.
C'est peut-être ton cas ?

[B.AF]

Je crois que c'est identique

Rien à voir avec ton code, mais avec le debug et le thread courant.

Essayes le tag [MTAThread] sur ta méthode, et ton pb devrait disparaitre.

Multi thread apartment doc

Ce qui donne au final :

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
 
<MTAThread()>
Public Sub MonInsert()
   Dim oradb As String = "Data Source=(DESCRIPTION=(ADDRESS_LIST=" _
                              + "(ADDRESS=(PROTOCOL=TCP)(HOST=172.30.32.92)(PORT=1521)))" _
                              + "(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=ORCL)));" _
                              + "User Id=xxxxx;Password=xxxxx;"
   Dim conn As New OracleConnection(Me.oradb)
   Dim myOracleTransaction As OracleTransaction = conn.BeginTransaction()
   Dim myOracleCommand As OracleCommand = conn.CreateCommand()
   myOracleCommand.CommandText = "INSERT INTO CATEGORIES (CODE_CATEGORIE,NOM_CATEGORIE,DESCRIPTION) VALUES(10,'toto','titi')"
   myOracleCommand.ExecuteNonQuery()
   myOracleTransaction.Commit()
   conn.Close()
 
End Sub

Bon courage.

[tomlev]

Essayes le tag [MTAThread] sur ta méthode, et ton pb devrait disparaitre.

Non, ça ne changera rien. Cet attribut s'applique sur le point d'entrée du programme (la méthode Main), et n'a aucun effet sur les autres méthodes. (d'après la doc en tous cas...)

[Cvbdev]

Bonjour,

Merci de votre aide J'ai résolu mon soucis, hier soir ! En fait c'était une erreur de Thread (A mon sens), une retour que n'avais pas Visual Studio de la part de la base qui généré le message...

En fait j'avais "Sql Devellopper" d'ouvert en même temps que j'executé mon code ! Il s'avère (pour une raison inconnue) que le logiciel prenait le pas sur mon programme ! Il est vrai que je m'authentifié deux fois sur la base avec des identifiants identiques...

En fermant "Sql Devellopper", tout est rentré dans l'ordre, je peux insérer les données et les défaires sans aucun soucis également !

D'avance merci de vous être penché sur mon soucis

++
++

[WOLO Laurent]

Ne gère pas les transactions depuis le code client de ton appli mais gère le depuis le code PL/SQL.

[Cvbdev]

Bonsoir,

Pourquoi je ne dois pas gérer les transactions depuis le code client ? Quels sont les risques ? Nous devellopons en VB.net comme faire autrement ?

D'avance merci
++

[WOLO Laurent]

Crée une procédure stockée dans laquelle tu vas jouer ton insert dans une transaction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
create or replace procedure add_categorie
(
    code_categorie int,
    nom_categorie varchar2(40),
    description varchar2(200)
)
begin
     begin transaction
            insert into categorie(code_categorie,nom_categorie,description) 
            values(code_categorie,nom_categorie,description)
    commit transaction
end;

Il ne te reste plus qu'à jouer cette requête dans VB.NET sans faire des conneries du genre OracleTransaction !
Pour vous en convaincre, essayer de jouer votre précedent code en utilisant une base access tu vas te rendre compte que la fonctionnalité ne sera pas supportée.

EVITER LES MAPPAGES SI VOUS VOULEZ FAIRE DES PROGRAMMES PROS ET OPTIMISES.

[Cvbdev]

Crée une procédure stockée dans laquelle tu vas jouer ton insert dans une transaction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
create or replace procedure add_categorie
(
    code_categorie int,
    nom_categorie varchar2(40),
    description varchar2(200)
)
begin
     begin transaction
            insert into categorie(code_categorie,nom_categorie,description) 
            values(code_categorie,nom_categorie,description)
    commit transaction
end;

Il ne te reste plus qu'à jouer cette requête dans VB.NET sans faire des conneries du genre OracleTransaction !
Pour vous en convaincre, essayer de jouer votre précedent code en utilisant une base access tu vas te rendre compte que la fonctionnalité ne sera pas supportée.

EVITER LES MAPPAGES SI VOUS VOULEZ FAIRE DES PROGRAMMES PROS ET OPTIMISES.

Merci beaucoup je vais regarder tout cela !