Expand|Select|Wrap|Line Numbers
- CREATE PROCEDURE dbo.InsertNew
- (
- @A nchar(10),
- @B nvarchar(50),
- @C nvarchar(50),
- @D nvarchar(50),
- @E nvarchar(50),
- @F nvarchar(50),
- @G nvarchar(50),
- @H nvarchar(50)
- )
- AS
- INSERT INTO Users
- (
- A,
- B,
- C,
- D,
- E,
- F,
- G,
- H
- )
- VALUES
- (
- @A,
- @B,
- @C,
- @D,
- @E,
- @F,
- @G,
- @H
- )
- RETURN
- Dim connection As SqlConnection
- connection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True;User Instance=True")
- connection.Open()
- Dim command As SqlCommand = New SqlCommand("InsertNew", connection)
- command.CommandType = CommandType.StoredProcedure
- command.Parameters.AddWithValue("@A", "99")
- command.Parameters.AddWithValue("@B", "test")
- command.Parameters.AddWithValue("@C", "test")
- command.Parameters.AddWithValue("@D", "test")
- command.Parameters.AddWithValue("@E", "test")
- command.Parameters.AddWithValue("@F", "test")
- command.Parameters.AddWithValue("@G", "test")
- command.Parameters.AddWithValue("@H", "test")
- Dim rows
- rows = command.ExecuteNonQuery
- connection.Close()
- If (rows = 1) Then
- MessageBox.Show("Create new user SUCCESS!")
- Else
- MessageBox.Show("Create new user FAILED!")
- End If