Dataset en VB.NET

Version imprimable

11/10/2010, 14h32
hi-wave

Dataset en VB.NET

bonjour
voila j'ai une appli qui se connecte a une base de donnée a développer et j'aimerai savoir s'il était possible de déclarer tous les objets pour une connexion dans un module standard, ainsi qu'une procedure public (avec datacommand et dataconnection) pour la connexion, et enfin utiliser les autres objets pour avoir ce qu'il me faut sur chaque formulaire de mon appli.

merci de m'aider.
11/10/2010, 14h36
mactwist69

A partir de ton formulaire principal, tu te créer une classe, qui contiendra tous les éléments dont tu as besoin (connexion, dataset, command etc)

C'est une solution parmi d'autres.
11/10/2010, 14h45
hi-wave

en P.O.O. je suis vraiment nul donc faudra faire tout doux avec moi:oops:
11/10/2010, 14h54
hi-wave

sinon je peux savoir quels sont les autre solutions que j'ai?
11/10/2010, 14h59
mactwist69
Créer une classe c'est la base en POO. Je te conseil de relire quelque cours POO.

Mais bon, pour que tu puisses avancer un peu....

Dans ton menu "explorateur de solutions", tu clique-droit, "Ajouter" -> "Classe".

Tu la nomme par exemple "MaClasse"

Tu as un nouvel élément dans ta solution, c'est une classe. Dedans tu peux mettre les propriétés et les procédures ou fonctions que tu veux.

Ensuite, dans ta Form principal, tu vas créer un objet de cette classe:

Dans les propriétés de ta Form principal tu déclare l'objet:

Code:

Public MonObjet as MaClasse

Dans l'évènement New ton formulaire principal, tu l'instancies:

Code:

MonObjet = New MaClasse

Si ta classes contient une procédure public:
Code:

1 2 Public Sub Connection (Mes parametres as String) EndSub
tu pourras l'appeler comme ceci:

Code:

MonObjet.Connection("Ta chaine de connexion")
11/10/2010, 15h01
mactwist69

Il y en a plein...

Tu peux déclarer tes éléments en public directement dans ta Form principale, tu peux utiliser un module.

Mes ces choses ne sont pas conseiller car pas "propre".
11/10/2010, 16h59
Deepin

Citation:

Envoyé par hi-wave

en P.O.O. je suis vraiment nul donc faudra faire tout doux avec moi:oops:

Il y a un excellent cours VB.NET pour les débutants ici
11/10/2010, 22h00
hi-wave

le cours de Mr LASSERRE je l'ai lu mais je ne sais pas bien comment mieux utiliser les dataset et autres.
s'il faut a chaque fois (quand on a besoin de recupérrer dse infos de la BD ou d'y ajouter des infos) retaper toutes les lignes pour déclarer les differents objets, les instancier, ouvrir la BD, remplir le dataset(lui et tous ses objets relatifs), le manipuler, mettre a jour la BD le vider, le recharger, etfermer la connexion, je pense que c'est du gros boulot.
je veux juste savoir cmt aller vite avec ce nouvel outil.
s'il en déclarer un seul (ou du moins, le moins possible ) et l'utiliser sur chaque formulaire ou une autre méthode.
ou si je me gourre avec un G majuscule dites le moi. s'il vous plaît.
12/10/2010, 10h44
yonpo

Si tu veux une autre méthode, tu déclares tous les objets permettant d'utiliser un DataSet dans un module et ensuite tu fais une procédure qui remplit le DataSet (chaine de connexion, connexion, remplissage du DataSet) que tu appelles par exemple au démarrage du formulaire et enfin une autre pour mettre à jour la BD/DataSet.
12/10/2010, 11h09
hi-wave

ok merci a tous pour toute vos reponse. je vais m'y coller et donner le resultat de mes essais.
merci

Exemple de code pour remplir un dataset et se connecter a une base (SQL server dans ce cas la)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Module Module1
    Dim con_strg As String = "Data Source=nomduserverdistant;Initial catalog=nomdelabase;Integrated Security=SSPI"
 
    Sub ChargeTable(ByVal requeteSQL As String, ByVal TableName As String, ByVal NomDataSet As System.Data.DataSet)
        Dim con As New SqlConnection()
        Dim sqlda As SqlDataAdapter
        con = New SqlConnection(con_strg)
        con.Open()
        sqlda = New SqlDataAdapter(RqtCtc, con)
        Try
            ' Récupération des données dans une table nomtable
            sqlda.Fill(DatasetCtc, TableName)
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            con.Close()
        End Try
    End Sub[
end module

et dans ton form tu peux l'apeller comme ca :

Code:

1
2
3
4
5
6
7
 Dim NomduDataSet As New Data.DataSet()
        Dim requete As String = "marequeteSQL"
        Try
            ChargeTable(requete, "nomdelatable", NomduDataSet)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

c'est un exemple :)

13/10/2010, 18h46
hi-wave

merci beaucoup je comprend mieux le concept en utilisant une procédure avec paramètre.
merci beaucoup