Bonjour,

Voilà j'ai réussi ma connexion à ma base de données avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    Public Sub connection()
        connexion.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=true"
        connexion.Open()
        If connexion.State = ConnectionState.Open Then
            MsgBox("Connexion réussite", MsgBoxStyle.Exclamation, "Status")
        Else
            MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
        End If
        connexion.Close()
maintenant j'essaie d'ajouter des données dans ma base, des données prises depuis des TextBox, mais il me marque cet avertissement lorsque je clique sur "enregistrer"
Une exception de première chance de type 'System.Data.SqlClient.SqlException' s'est produite dans System.Data.dll
voici mon code
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
Try
            connection()
            Dim strRequete As String = "SELECT * FROM Entraineurs"
            Dim dtt As DataTable
            Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, connexion)
            Dim oDataSet As New DataSet("Entraineurs")
            oSqlDataAdapter.Fill(oDataSet, "Entraineurs")
            dtt = oDataSet.Tables("Entraineurs")
 
            oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO Entraineurs(Nom,Prénom,Adresse,Téléphone) Values(@TextBoxNom_E,@TextBoxPrenom_E,@TextBoxAd_E,@TextBoxTel_E)", connexion)
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxNom_E", SqlDbType.Int, 30, "TextBoxNom_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxPrenom_E", SqlDbType.NChar, 15, "TextBoxPrenom_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxAd_E", SqlDbType.Int, 100, "TextBoxAd_E")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@TextBoxTel_E", SqlDbType.Int, 100, "TextBoxTel_E")
 
            Dim oDataRow As DataRow
            Dim byteArray As Byte() = {}
 
            oDataRow = oDataSet.Tables("Entraineurs").NewRow
            oDataRow("TextBoxNom_E") = TextBoxNom_E.Text
            oDataRow("TextBoxPrenom_E") = TextBoxPrenom_E.Text
            oDataRow("TextBoxAd_E") = TextBoxAd_E.Text
            oDataRow("TextBoxTel_E") = TextBoxTel_E.Text
 
            oDataSet.Tables("Entraineurs").Rows.Add(oDataRow)
            oSqlDataAdapter.Update(oDataSet, "Entraineurs")
 
            oDataSet.Clear()
            oSqlDataAdapter.Fill(oDataSet, "Entraineurs")
            dtt = oDataSet.Tables("Entraineurs")
            MsgBox("Article enregistré avec succés", MsgBoxStyle.Information, "Status")
            connexion.Close()
 
 
        Catch
            MsgBox("Echec d'enregistrement")
        End Try
merci ..