bonjour à tous,
je suis débutant en vb.net 2005 et sql server 2005 j'essaie de creer un module ou une classe afin de gérer la connexion à ma base de donnée.pour insérer un enregistrement dans la base j'écris le code de connexion (ConnectionString etc..)dans chaque formulaire Windows alors ce que je veux avoir c'est faire appel à la connexion dans tout mes formulaires chaque foie où j'ai besoin à se connecter à la base sql server. un exemple ou une illustration peut m'aider énormément et merci pour votre coopération.
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
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Imports System.Data.SqlClient
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connString As String = _
        "data source = DELL;" _
      & "integrated security = true;" _
      & "database = northwind"
 
 
        Dim conn As SqlConnection = New SqlConnection(connString)
 
        ' INSERT statement
        Dim sqlins As String = _
                "insert into customers " _
              & "( " _
              & "   customerid, " _
              & "   companyname " _
              & ") " _
              & "values(@newcustid, @newconame) "
 
 
 
        ' Open connection
        conn.Open()
 
        ' Begin transaction
        Dim sqltrans As SqlTransaction = conn.BeginTransaction()
 
        Try
            ' Create insert command
            Dim cmdins As SqlCommand = conn.CreateCommand()
            cmdins.CommandText = sqlins
            cmdins.Transaction = sqltrans
            cmdins.Parameters.Add("@newcustid", SqlDbType.NVarChar, 5)
            cmdins.Parameters.Add("@newconame", SqlDbType.NVarChar, 30)
 
 
            ' Add customer
            cmdins.Parameters("@newcustid").Value = TextBox1.Text
            cmdins.Parameters("@newconame").Value = TextBox2.Text
            cmdins.ExecuteNonQuery()
 
 
            ' Commit transaction
            sqltrans.Commit()
 
            ' No exception, transaction committed, give message
            MessageBox.Show("Transaction committed")
        Catch ex As System.Data.SqlClient.SqlException
            ' Roll back transaction
            sqltrans.Rollback()
 
            MessageBox.Show( _
               "Transaction rolled back: " + ex.Message, _
               "Rollback Transaction" _
            )
        Catch ex As System.Exception
            MessageBox.Show("System Error: " + ex.Message, "Error")
        Finally
            ' Close connection
            conn.Close()
        End Try
    End Sub
 
 
End Class