Discussion :

[hi-wave]

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.

[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.

[hi-wave]

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

[hi-wave]

sinon je peux savoir quels sont les autre solutions que j'ai?

[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 :

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

Public MonObjet as MaClasse

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

Code :

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

MonObjet = New MaClasse

Si ta classes contient une procédure public:

Code :

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

1
2
Public Sub Connection (Mes parametres as String)
EndSub

tu pourras l'appeler comme ceci:

Code :

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

MonObjet.Connection("Ta chaine de connexion")

[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".

[Deepin]

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

Il y a un excellent cours VB.NET pour les débutants ici

[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.

[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.

[hi-wave]

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

[Rhadawhisp]

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

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
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 :

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

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

[hi-wave]

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