Connexion au base sql server 2000

Version imprimable

Bonjour,
j'utilise visual studio 2005 framework 3.0 et je developpe avec visual basic.net
je developpe un application qui fait des accées dans une base sql server 2000
Code:

1 2 3 4 5 6 7 8 'Déclaration de l'objet de connexion Dim oConnection As System.Data.SqlClient.SqlConnection ' Création de l'objet de connexion oConnection = New System.Data.SqlClient.SqlConnection() ' Ecriture de la chaîne de connexion Dim sConnectionString As String sConnectionString = "Data Source=TEST;Initial Catalog=PROD;Integrated Security=True" oConnection.ConnectionString = sConnectionString
en fiat je veux ecrire une seule fois ces lignes de code et que je peut l'utiliser n'importe ou car actuelement a chaque fois que je fais l'accées à la base je reecrit ces lignes de code

merci

18/06/2008, 13h42
callo

Pourquoi ne crées-tu pas une classe avec une methode public renvoyant ta connexion ?
18/06/2008, 14h27
randriamanana

comment ca tu peux me montrer le code

Bon, je ne fais pas du visual basic, donc je te montre quelque chose du genre que j'avais fait en C#. A toi de le convertir en vb.net

Ici c'est ma classe de connexion

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
34
35
36
37
 
public class Connexion 
{
 
        private string Parametres;
        private string DBName = "taim_final" ;
        private string Server="localhost";
        private string Login="root";
        private string Password="";
        private MySqlConnection Connex;
 
       public MySqlConnection OpenBase()
       {
 
           Parametres = "Server=" + Server +
                                       ";Database=" + DBName +
                                       ";User ID=" + Login +
                                       ";Password=" + Password + ";";
      try
        {
               Connex = new MySqlConnection();
               Connex.ConnectionString = Parametres;
               Connex.Open();
 
               MessageBox.Show("Connection OK", "Cool", MessageBoxButtons.OK, MessageBoxIcon.Information);
 
           }
 
           catch (Exception)
           {
 
               MessageBox.Show("Impossible de se connecter à la base de données","Erreur",MessageBoxButtons.OK, MessageBoxIcon.Error);
 
           }
           return Connex;
       } 
    }

Et ensuite pour faire référence à ta classe de connexion sur un formulaire par exemple, tu peux faire

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
public partial class ListeUsers : Form
 
    {
 
        private Connexion AdoCnx;
        private MySqlCommand CmdSelect;
        private MySqlDataAdapter MonDataAdapter;
        private DataSet ds = new DataSet();
        private string AfficheSQL;
        MySqlConnection conn;
 
        public ListeUsers()
        {
            InitializeComponent();
        }
 
        private void ListeUsers_Load(object sender, EventArgs e)
        {
 
            try
            {
 
                AdoCnx = new Connexion();
                conn = AdoCnx.OpenBase();
            }
 
            catch (Exception erreur)
            {
           MessageBox.Show(erreur.Message,"Erreur",MessageBoxButtons.OK,MessageBoxIcon.Error);
            }
 
            try
            {
 
           AfficheSQL = "SELECT id_util,login_util,nom_util,prenom_util FROM utilisateurs";
                CmdSelect = new MySqlCommand(AfficheSQL,conn);
                CmdSelect.CommandType = CommandType.Text;
                MonDataAdapter = new MySqlDataAdapter(CmdSelect);
 
            ds.Clear();
            MonDataAdapter.Fill(ds);
            this.dataGridView1.DataSource = ds.Tables[0];
            }
 
            catch (Exception ex)
 
            { MessageBox.Show(ex.Message,"Erreur",MessageBoxButtons.OK,MessageBoxIcon.Error);
 
            }
 
            conn.Close();
 
        }
 
    }

Voilà, j'espère que ça te sera utile :lol:

comme ca par exemple :

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Imports System.Data.SqlClient
 
Public Class ClassConnectSQL
    'fonctionne
 
    Public Function OpenSql() As SqlConnection
        Try
            Dim scConnect As SqlConnection = New SqlConnection()
            Dim server As String
            Dim database As String
            Dim auth As String
            Dim userID As String
            Dim password As String
            Dim connectionString As String
 
 
            server = My.Settings.serveur.ToString
            database = My.Settings.database.ToString
            auth = My.Settings.authentification.ToString
            userID = My.Settings.userID.ToString
            password = My.Settings.password.ToString
 
 
            'ouverture connection sql
            'SqlConnect.ConnectionString = "Integrated Security=SSPI; User ID=cgiup; Server=SRV-OSIRIS;Database=Profil_etude"
 
            connectionString = "Data Source=" & server & ";initial catalog=" & database & _
                               ";Integrated Security=" & auth & ";user id=" & userID & ": pwd = " & password & ";"
 
            scConnect.ConnectionString = connectionString
 
            scConnect.Open()
            If scConnect.State = ConnectionState.Open Then
                Return scConnect
            Else
                Return Nothing
            End If
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
 
    Public Sub SqlClose(ByRef scConnect As SqlConnection) 'PAssage par adresse préférable à passage par valeur ici
        'fermeture connection sql
        If scConnect.State.Equals(ConnectionState.Open) Then
            scConnect.Close()
        End If
        scConnect.Dispose()
    End Sub
 
end class

ensuite tu instancies un objet classConnectSQL quand tu as besoin , et tu appelle les fonctions OpenSQl et CloseSQL

ici les variables de la chaine de connection sont des paramètres de l'application (settings)

bon developpement

18/06/2008, 16h02
randriamanana

ok merci je vais le tester
18/06/2008, 16h18
Lefaucheux

Attention au type d'identification que tu utilises pour ta base SQL , ca modifie ta chaine de connection (mode authentification windows ou SQL)
19/06/2008, 11h02
randriamanana

ok c bon mais sur le visual studio 2005 et framework 3.0 ou est que je met le code pour les variable d'application c'est a dire
je veux mettre le code dans Application_Start
19/06/2008, 14h20
Lefaucheux

tu double clic sur ton client dans ton projet et tu vas sur paramètres......
N'oublies pas de passer ton post en résolu
19/06/2008, 15h38
randriamanana

kel client tu dis
19/06/2008, 15h47
Lefaucheux

http://plasserre.developpez.com/v4-18.htm

tout est la.