probleme de connexion :vb.net 2005 et sql server 2005

Version imprimable

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:

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

salut
essaye ça

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
 
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;););););)

03/05/2008, 14h37
jokke

merci bcp fontome_ 123

je vais essayer le code :yaisse2::yaisse2::yaisse2:
03/05/2008, 14h58
jokke

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

c'est facile
juste declare un object
Code:

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