Probleme d'insertion dans une base de donnée
Bonjour à tous,
Je developpe un programme de gestion de cave, je souhaiterais pouvoir inserer des enregistrement dans une table SQL depuis mon programme.
j'ai cherché sur le net et j'ai trouvé quelques outils, mais cela ne marche pas, je n'ai meme pas d'erreur qui remontent.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Dim DataSetInfo As DataSet
Dim Adapter As SqlClient.SqlDataAdapter
Dim queryString As String
DataSetInfo = New DataSet
Adapter = New SqlClient.SqlDataAdapter
Using Connection As New SqlClient.SqlConnection(m_ConnectionString)
queryString = "INSERT INTO [VinoCave].[dbo].[Vin] VALUES('" & sNom & "'," & siDegres & "," & iMillesime & ",'" & sPrix & "'," & iQuantite & ",'" & sDescription & "','" & sAlliance & "'," & iProducteur & "," & iAppelation & "," & iCouleur & ")"
Adapter.InsertCommand = New SqlClient.SqlCommand(queryString, Connection)
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try |
Les parametres sont tous renseignés avant.
Si qq un peut m'eclairer.
Merci d'avance.
