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
| Imports System.Data.SqlClient
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim connexion As New SqlConnection("Data Source=(LocalDB)\MSSQLLocalDB ; AttachDbFilename=C:xxxxx\xxxx.mdf;Integrated Security=True;Connect Timeout=30") 'je pointe ma connexion sur ma BD
Try
' j'ouvre la connexion
connexion.Open()
Catch ex As Exception
MessageBox.Show("Erreur de connexion", "Erreur", MessageBoxButtons.OK)
Me.Close()
End Try
Dim reference, designation, sn, requette As String
Dim datej As Date
reference ="truc 1"
designation = "truc 2"
sn = "truc3"
datej = "12/12/2012"
requette = "insert into matable(date_saisie,réf,designation,SN,stock) values('" & datej & "','" & reference & "','" & designation & "','" & sn & "','un texte')" 'je crée ma requette
Dim command As New SqlCommand(requette, connexion)
Try
command.ExecuteNonQuery() ' je valide ma requette
MsgBox("Fiche enregistrée", vbOKOnly)
Me.TableAdapter.Fill(Me.monDataSet.matable) 'ici j'essaie de mettre à jour ma datagrid mais ça marche pas
'Me.DataGridView.Refresh()
Catch ex As Exception
MessageBox.Show(ex.ToString & "Erreur lors De l'ajout ", "erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub |
Partager