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 |
Partager