Bonjour,
Je n'ai jamais traité de SQL en VB, et je me pose quelques questions de structure.
Pouvez vous me dire quelle structure ci dessous est la plus "propre"?
ou
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 Public Class Form 1 Public DBConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Settings.sourcebdd & ";Jet OLEDB:Database Password=" & My.Settings.mdpbase & ";") Public Command As OleDbCommand = DBConnection.CreateCommand() Private Sub sub1() DBConnection.Open() Command.CommandText = "..." ... DBConnection.Close() Private Sub sub2() DBConnection.Open() Command.CommandText = "..." ... DBConnection.Close() End Sub Sub End Class
Ou y a-t-il mieux? Dans la déclaration DIm / Public / Pivate ?
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 Public Class Form 1 Private Sub sub1() Dim DBConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Settings.sourcebdd & ";Jet OLEDB:Database Password=" & My.Settings.mdpbase & ";") Dim Command As OleDbCommand = DBConnection.CreateCommand() DBConnection.Open() Command.CommandText = "..." ... DBConnection.Close() Private Sub sub2() Dim DBConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Settings.sourcebdd & ";Jet OLEDB:Database Password=" & My.Settings.mdpbase & ";") Dim Command As OleDbCommand = DBConnection.CreateCommand() DBConnection.Open() Command.CommandText = "..." ... DBConnection.Close() End Sub Sub End Class
Mon but étant de ne pas ouvrir trop de connections quand ça pourrait être inutile; alléger le code. Qu'à l'execution il ne se perde pas... enfin ce genre de trucs
Merci
Partager