Discussion :

[hquentin]

Bonjour,

J'ai réussi à me dépatouiller grâce au forum pendant un moment mais à partir de maintenant mon problème est trop spécifique.
Bien le voici. Je travaille sur un projet de production assistée par ordinateur, autrement dit je récupère des infos et je stock tout
dans une base de donné pour en faire une belle interface par la suite.

J'utilise actuellement 2 fonctions enfin une procédure et une fonction qui me sert à envoyer des donnés et l'autre a les récupérer.

C'est dans cette dernière que mon problème arrive la fonction arrive à s'exécuter car est appelé lors du load de la forme mais pas les fois précédentes

voici le 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
 
Function RequeteSQLGet(requete As String, BDD As String)
 
        Dim Cnx, Rst, resultat As Object
 
        Cnx = CreateObject("ADODB.Connection")
        Rst = CreateObject("ADODB.Recordset")
        Cnx.Open("DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD)
        resultat = Rst.Open(requete, Cnx, 3)
 
        If Not Rst.RecordCount = 0 Then
 
            ReDim resultat(Rst.Fields.Count - 1, Rst.RecordCount - 1)
            Rst.MoveFirst
            resultat = Rst.GetRows
 
        End If
 
        Rst.close()
        Cnx.close()
 
        Return resultat
 
    End Function

je suis sous framework 4.7.2 et avec ACCESS 2007 64 bit

j'ai déjà tenté de filouter en débloquant les 2*Ko de mémoire RAM via les properties du projet mais rien n'y fait

de plus l'erreur intervient ici:

Code :

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

1
2
 
Cnx.Open("DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & BDD)

et m'indique :

System.OutOfMemoryException*: 'Une exception de type 'System.OutOfMemoryException' a été levée.'

merci de votre réponse et du temps que vous m'accorderez

[Invité]

Bonjour,

Je t'invite a faire un tour ici : https://docs.microsoft.com/fr-fr/dot...examples#oledb

Face au fil d'ariane tu as un commutateur C# et VB

[hquentin]

merci de ton aide je testerais demain à la première heure néanmoins je croyais que les variables déclarées dans
une fonction étaient forcément "détruites" à la fin de l’exécution.
ici utiliser "using" ne fait-il pas redondance ?

ou alors je n'ai pas compris ton message.

[Phil Rob]

Bonsoir
Le problème vient du ReDim. Je ne sais si son calcul représente une valeur fondée mais sûr que ReDim sans Dim préalable pour cette variable est source de soucis.
Par ailleurs, pourquoi faire un ReDim ou même un Dim pour une structure qui est remplie " automatiquement " par la lecture de la DB.
L'usage des RecordSet est obsolète, je ne les utilise plus depuis plus de 16 ans, c'est pourquoi je ne peux en dire plus sur ton accès à la DB, mais Dim et ReDim ...., ça ne va pas.
...

[hquentin]

L'usage des RecordSet est obsolète

Merci beaucoup pour l'analyse
il est vrai que je j'ai surtout repris des exemples de tuto qui date un peu ... beaucoup
Peux-tu m'aider à me documenter ou me donner des exemples d'exécution de requête car dans toutes les sources que j'ai consultées
il y avait toujours l'usage d'un RecordSet

Quant à la boucle elle me servait surtout pour les erreurs de requête ou des champs inaccessibles/vides

[Invité]

Merci beaucoup pour l'analyse
il est vrai que je j'ai surtout repris des exemples de tuto qui date un peu ... beaucoup
Peux-tu m'aider à me documenter ou me donner des exemples d'exécution de requête car dans toutes les sources que j'ai consultées
il y avait toujours l'usage d'un RecordSet

Quant à la boucle elle me servait surtout pour les erreurs de requête ou des champs inaccessibles/vides

Encore et toujours et désolé mais encore une fois un autre lien avec la section OleDb : https://docs.microsoft.com/fr-fr/dot...g-a-datareader

Entre les deux liens que je te propose tu as largement de quoi faire (connexion et exécution).

merci de ton aide je testerais demain à la première heure néanmoins je croyais que les variables déclarées dans
une fonction étaient forcément "détruites" à la fin de l’exécution.
ici utiliser "using" ne fait-il pas redondance ?

Pour ton apprentissage je pense qu'il faudrais que tu applique la base :
je crée ma connexion, j'ouvre ma connexion, j'effectue mon opération (lecture, insertion,...), je libère mon opération (attention en mode lecture si tu libère trop vite tu perds la lecture), je ferme ma connexion.

Bon code.

[Phil Rob]

Re,

... Peux-tu m'aider à me documenter ou me donner des exemples d'exécution de requête ...

Voici un exemple ..., un peu simple ..., ce n'est qu'une manière de faire et il en existe bien d'autres ..., dont notamment le "tout avec assistant" (que je ne conseille évidemment pas ... )

Vois d'abord cette petite vidéo : https://www.dropbox.com/s/1fjchqpykw...strar.mp4?dl=0

Et puis vois le code du projet : TestAccesDBSimpleConMostrar_.zip.

Pour l'exécuter, tu dois modifier la chaine de connexion car ce sera forcement différent sur ton PC.

Excuse les commentaires et "mots du programmeur" en espagnol, ils ne sont pas très difficiles à comprendre. Et puis, tu peux demander ...

theWebBeginner t'as envoyé des liens vers de la doc Microsoft : n'oublie pas d'en prendre connaissance !

Bonne soirée

[MABROUKI]

Bonjour
Je ne comprends pas pourquoi tu n'utilise pas ADO.NET pour acceder à la meme BD.
C'est plus performant et plus facile à programmer.
A moins que tu doives transposer un vieux code VB6 hérité.

[hquentin]

Bien voici le résultat de votre aide j'ai pu le remettre d'équerre et en tout cas sans l'utilisation d'un RecordSet

pour répondre à MABROUKI

non je pars d'un projet de zéro, étant encore étudiant je prends surtout mes sources sur internet et
par conséquent je ne connais pas les "bonnes méthodes" comme l'utilisation d'un DataReader ou encore le bon provider.

je pose quand même les deux procédures pour savoir s'il reste 2-3 choses mal optimisées
mais surtout pour les prochains qui tomberont dessus

également une autre source sous vb.net car j'ai eu du mal à transposer du C# au Vb ne connaissant même pas les base du premier

https://dotnet.developpez.com/articles/ado1/vbnet/#LV

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
30
31
32
    Function RequeteSQLGet(requete As String, InfoDemande As String)
 
        Try
 
            Dim oConnection As New OleDbConnection(Cnx.ConnectionString)
            Dim oCommand As New OleDbCommand(requete, oConnection)
            Dim reader As OleDbDataReader
            Dim resultat As Object = Nothing
 
            oConnection.Open()
            reader = oCommand.ExecuteReader()
 
            While reader.Read()
 
                resultat = reader(InfoDemande)
 
            End While
 
            reader.Close()
            oConnection.Close()
 
            Return resultat
 
        Catch ex As Exception
 
            Console.WriteLine(("L'erreur suivante a été rencontrée :" + ex.Message))
 
        End Try
 
        Return "error"
 
    End Function

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
    Sub RequeteSQLPull(requete As String)
 
        Try
 
            Dim oConnection As New OleDbConnection(Cnx.ConnectionString)
            Dim oCommand As New OleDbCommand(requete, oConnection)
            Dim resultat As Object = Nothing
 
            oConnection.Open()
            oCommand.ExecuteNonQuery()
            oConnection.Close()
 
        Catch ex As Exception
 
            Console.WriteLine(("L'erreur suivante a été rencontrée :" + ex.Message))
 
        End Try
 
    End Sub

avec évidement la déclaration de chemin et de provider au load qui sont propres à chacun

Code :

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

1
2
3
4
5
6
    Private Sub FormSupervision_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim cheminBDD As String = "C:\Users\quentin\Desktop\BDD-Access\BDD-PAO.accdb"
        Cnx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cheminBDD & ";"
 
    End Sub

et voici comment je l'appelle

Code :

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

1
2
3
4
...
        requete = "SELECT TOP 1 etat_machine FROM [COMMANDES] WHERE machine_requis = 'gallus5' ORDER BY id_commande DESC"
        ATMEtatGallus5 = RequeteSQLGet(requete, "etat_machine")
...

merci encore de votre aide