Discussion :

[jokke]

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

[fontome_ 123]

salut
essaye ça

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
 
Public Class connexion 
    private connection As sqlConnection
    private command As sqlCommand
    private Adapter As sqlDataAdapter
    Dim sqltrans As SqlTransaction
 
 Sub New()
        connection = New sqlConnection()
        connection.ConnectionString = "data source = DELL;integrated security = true;database = northwind"
end sub
 
   private Sub ouverture()
        connection.Open()
  End Sub
 
  private Function getConnection()
        Return (connection)
  End Function
 
  private Sub fermeture()
        connection.Close()
  End Sub
 
  private Sub ini_command(ByVal requette As String)
        command = New OracleCommand(requette, connection)
  End Sub
 
  private Function getcommand()
        Return command
  End Function
 
end class

tu rajoute même ta transaction si tu veux de la même façon
apres tu crée un objet et tu le manipule

[jokke]

merci bcp fontome_ 123

je vais essayer le code

[jokke]

slt
mais comment faire appel à cette classe à partir d'un formulaire windows

[fontome_ 123]

c'est facile
juste declare un object

Code :

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

1
2
3
4
5
6
7
 
dim ma_connection as new connexion()
ma_connexion.ouverture()
requette ="select fontome from monde_fontomes":mouarf::mouarf:
ma_connexion.ini_command(requette)
......
ma_connexion.fermeture()

n'oublie pas les try catch
y a un truc qui s'apelle