3

これが私の手順です

ALTER PROCEDURE sp_addUser
     @UserName nvarchar(50),    
     @Prenom nvarchar(50),  
     @Nom nvarchar(50), 
     @Mail nvarchar(50),    
     @Password char(8), 
     @Addresse nvarchar(100),   
     @Ville nvarchar(50),   
     @Province nvarchar(50),    
     @PostalCode char(6),
     @Pays nvarchar(50),    
     @AnimalGenre nvarchar(50), 
     @NomAnimal nvarchar(50),   
     @Race nvarchar(50) 
AS
BEGIN
   INSERT INTO Client
   VALUES (@UserName,@Prenom,@Nom,@Mail,@Password,@Addresse,@Ville,@Province,@PostalCode,@Pays,@AnimalGenre,@NomAnimal,@Race);
END

ストアドプロシージャについてはこれで問題ないと思います

データベースに値を追加するコード

Sub sp_addUser()

    Dim intRowsAff As Integer

    lblErrMsg.Text = ""
    lblRecsAff.Text = ""

    Dim connectionString As String = WebConfigurationManager.ConnectionStrings("BecsEtMuseauxSQL").ConnectionString
    Dim con As SqlConnection = New SqlConnection(connectionString)

    Dim cmd As New SqlCommand("sp_addUser", con)

    cmd.CommandType = CommandType.StoredProcedure
    cmd.Parameters.Add("@UserName", SqlDbType.VarChar, 50).Value = txtUserName.Text
    cmd.Parameters.Add("@Prenom", SqlDbType.VarChar, 50).Value = txtPrenom.Text
    cmd.Parameters.Add("@Nom", SqlDbType.NVarChar, 50).Value = txtNom.Text
    cmd.Parameters.Add("@Mail", SqlDbType.NVarChar, 50).Value = txtMail.Text
    cmd.Parameters.Add("@Password", SqlDbType.Char, 8).Value = txtPass.Text
    cmd.Parameters.Add("@Addresse", SqlDbType.NVarChar, 100).Value = txtAdresse.Text
    cmd.Parameters.Add("@Ville", SqlDbType.NVarChar, 50).Value = txtVille.Text
    cmd.Parameters.Add("@Province", SqlDbType.NVarChar, 50).Value = txtProvince.Text
    cmd.Parameters.Add("@PostalCode", SqlDbType.Char, 6).Value = txtPostal.Text
    cmd.Parameters.Add("@Pays", SqlDbType.NVarChar, 50).Value = txtPays.Text
    cmd.Parameters.Add("@AnimalGenre", SqlDbType.NVarChar, 50).Value = rblAnimal.Text
    cmd.Parameters.Add("@NomAnimal", SqlDbType.NVarChar, 50).Value = txtAnimal.Text
    cmd.Parameters.Add("@Race", SqlDbType.NVarChar, 50).Value = txtRace.Text

    Try
        cmd.Connection.Open()
        intRowsAff = cmd.ExecuteNonQuery()
    Catch ex As Exception
        lblErrMsg.Text = ex.Message & ex.Source
    End Try
    lblRecsAff.Text = intRowsAff & " record(s) inserted"
    cmd.Connection.Close()
End Sub

メソッドを実行した後、VS は、プロシージャ sp_addUser に対して多くの引数を指定する必要があると言いました

これがエラーを生成する理由がわかりません!

4

3 に答える 3

2

投稿したコードとストアド プロシージャは同期しているようです。

これは、データベース内のストアド プロシージャが、コードで期待するものと同期していないことを強く示唆しています。投稿したものが実際にDBのストアドプロシージャであることを確認することをお勧めします。

また、注意: proc が実際に master に存在する場合を除き、proc の前に「sp_」を付けないでください。

于 2011-12-29T04:34:17.223 に答える
1 
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Try
   With con
       .ConnectionString = sqlConnectionString
       .Open()
   End With
   With cmd
       .CommandText = "UpdateProcedure"
       .CommandType = CommandType.StoredProcedure
       .Parameters.AddWithValue("CName", txtCName.Text)
       .Parameters(0).SqlDbType = SqlDbType.NVarChar
      .Parameters.AddWithValue("CAddress",txtCAddress1.Text)
       .Parameters(1).SqlDbType = SqlDbType.NVarChar
       .Parameters.AddWithValue("CCity", txtCCity)
       .Parameters(2).SqlDbType = SqlDbType.NVarChar
       .ExecuteNonSqlQuery()
    End With
Catch ex As Exception

Finally
  cmd.Dispose()
  con.Close()
End Try
于 2013-03-22T05:40:06.890 に答える