[Débutant] Aide objet en VB .NET

Version imprimable

Bonjour,
Je développe actuellement un site en ASPX / VB .NET à titre didactif et je souhaiterais avoir quelques infos concernant la notion d'objet en VB .NET
Voici mon code qui me servirai à faire des requêtes :

J'ai un fichier ou je veut définir une classe: SQLOBJ.vb

Code:

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
33
 
Public Class SQLOBJ
    Shared dr As System.Data.SqlClient.SqlDataReader
    Shared dbConnection As New System.Data.SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("BaseSQL").ConnectionString)
    Shared Function Requete(ByVal Sql As String) As Boolean
        dbConnection.Open()
        Dim cmd As New System.Data.SqlClient.SqlCommand(Sql, dbConnection)
        'If Not dr.IsClosed Then
        'dr.Close()
        'End If
        If Sql.Contains("SELECT") Then
            dr = cmd.ExecuteReader()
        ElseIf Sql.Contains("INSERT") Or Sql.Contains("DELETE") Or Sql.Contains("UPDATE") Then
            cmd.ExecuteScalar()
            dbConnection.Close()
        End If
    End Function
    Shared Function Pickup(ByVal Index As String) As String
        If dr(Index).ToString <> "" Then
            Return dr(Index).ToString
        Else
            Return ""
        End If
    End Function
    Shared Function Read() As Boolean
        If Not dr.IsClosed And dr.Read() Then
            Return True
        Else
            dbConnection.Close()
            Return False
        End If
    End Function
End Class

Dans mon code, je souhaite maintenant créé un objet de se type, donc je le déclare comme suite:

Code:

1
2
3
4
5
6
7
8
 
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim test As New SQLOBJ
        test.Requete("SELECT [Nom] FROM [Clients]")
        While test.Read()
            Label1.Text &= test.Pickup("Nom") & "<br/>"
        End While
    End Sub

Cela fonctionne mais je suis pas sur que si 2 personnes utilise en même temps mon SQLOBJ.vb il n'y est pas de conflit (dans le sens ou le datareader serait le même ?), vu que c'est une appli web.

J'aimerais avoir des critiques pour m'expliquer se qui ne va pas pourquoi et comment je pourrais faire cela.

J'espère que quelqu'un comprendra ou je veut en venir parce que je galère un peu à m'exprimer sur le sujet.

Merci ;)

14/12/2010, 19h44
tomlev

Citation:

Envoyé par samzorINCA

Cela fonctionne mais je suis pas sur que si 2 personnes utilise en même temps mon SQLOBJ.vb il n'y est pas de conflit (dans le sens ou le datareader serait le même ?), vu que c'est une appli web.

Tu fais bien de te poser la question, car il y aura effectivement un problème...

Tous les membres de ta classe sont déclarés en statique (Shared), ce qui signifie qu'ils sont partagés entre toutes les instances de la classe (d'ailleurs vu que tout est statique tu n'as pas besoin de déclarer une instance de SQLOBJ, tu pourrais appeler directement SQLOBJ.Requete... mais ce n'est pas la bonne façon de faire)

Enlève simplement les modifieurs Shared, et tout devrait bien se passer.
14/12/2010, 20h02
Pol63

ce n'est pas la seule chose que j'aurais souligné

un label qui appelle une fonction qui lit un reader ca me semble étrange comme fonctionnement, en général on fait une classe qui s'occupe de lire dans la base de données et qui charge des objets, puis on lit les objets ...
14/12/2010, 20h36
tomlev

Citation:

Envoyé par Pol63

ce n'est pas la seule chose que j'aurais souligné

Certes... mais si j'avais indiqué tout ce qui n'allait pas, ça m'aurait pris une plombe, et j'ai eu la flemme :aie:

En fait, c'est rarement utile de faire une classe dans ce style. L'API ADO.NET est très pratique telle qu'elle est, et en général toutes les tentatives de "wrapper" son utilisation se soldent pas des échecs, parce qu'il y a toujours des cas d'utilisation qu'on avait pas prévus...
14/12/2010, 21h00
Pol63

oui c'est vrai, on aurait même pu dire qu'il n'y a pas de try/catch ...
15/12/2010, 09h35
samzorINCA

Nan mais j'ai un minimum de base je vous ai mis une version hyper simplifié sans les try/catch les filtre ect. Ma question concernent surtout les déclarations.

Comment je doit déclarer mes fonction / variable ect, pour pouvoir creer un Objet spécifique à chaque déclaration de type:

Dim variable AS SQLOBJ

J'ai essayer d'enlever les shared mais ca ne fonctionne pas. :P

(Comment créé un nouveau type comme en c/cpp :calim2:)
15/12/2010, 09h51
Pol63
pas sur d'avoir compris la question, mais par rapport à ce que je disais, si dans la base on a des personnes, et qu'on veut les afficher, normalement on fait
Code:

1 2 3 4 5 6 7 8 public class personne public property Nom as string (...) public property Prenom as string (...) (...) end class
puis avec le reader on fait
Code:

1 2 3 4 5 6 7 while reader.Read dim p as new personne p.nom = cstr(reader.item("nom")) p.prenom = (...) macollectiondepersonnes.add(p) end while
(code simplifié là aussi, il faut gérer les null par exemple)
puis on travaille sur la collection
on peut éventuellement multithreader ca et aussi ajouter les personnes par bloc de 10 pendant l'exécution du thread

autre chose qui ne va pas dans ton code, pour ta classe d'accès aux données tu fais if contains("select") then ... if contains("insert")
et sur la requete suivante ca ne peut pas fonctionner :

Code:

insert into table2 (a,b) select a,b from table

tu vas le détecter comme un select alors que cette requete ne retourne pas de données ...
et puis le commandtext n'est pas limité à une requete, en peut en mettre plusieurs à la suite

si microsoft a fait executenonquery et executereader c'est pour qu'on choisisse nous même si on veut rapatrier des données ou non, donc un wrapper se doit garder se comportement
15/12/2010, 10h26
tomlev

Citation:

Envoyé par samzorINCA

J'ai essayer d'enlever les shared mais ca ne fonctionne pas. :P

C'est à dire ? Il te fait quoi comme erreur ?