|
dev
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Error adding to the OleDbParameterCollection objectI receive the following error when I run the code snippet below: An OleDbParameter with ParameterName 'CateroryID_New' is not contained by this OleDbParameterCollection. Private Function CreateUpdateCommand() As System.Data.OleDb.OleDbCommand Dim StrSQL As String Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Program File"& _ "s\Microsoft.NET\SDK\v2.0\QuickStart\aspnet\samples\data\App_Data\Northwind.mdb" Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString) strSQL = "UPDATE [Categories] SET CategoryName=?, Description=? WHERE CategoryID=?" Dim cmd As New System.Data.OleDb.OleDbCommand (strSQL, dbConnection) Dim pc As System.Data.OleDb.OleDbParameterCollection = cmd.Parameters pc.Add("CategoryID_New", System.Data.OleDb.OleDbType.Integer) pc.Add("CategoryName_New", System.Data.OleDb.OleDbType.BSTR) pc.Add("Description_New", System.Data.OleDb.OleDbType.BSTR) pc.Add("CategoryID_Orig", System.Data.OleDb.OleDbType.Integer) pc.Add("CategoryName_Orig", System.Data.OleDb.OleDbType.BSTR) pc.Add("Description_Orig", System.Data.OleDb.OleDbType.BSTR) Return cmd End Function Comment out the line:
> pc.Add("CategoryID_New", System.Data.OleDb.OleDbType.Integer) since there won't be a new id"glenn" <gl***@discussions.microsoft.com> wrote in message System.Data.OleDb.OleDbCommandnews:CCE13581-7ED4-4901-BEEE-F81EEB7F32AF@microsoft.com... > Thanks for any thoughts on this > > I receive the following error when I run the code snippet below: > > An OleDbParameter with ParameterName 'CateroryID_New' is not contained by > this OleDbParameterCollection. > > > Private Function CreateUpdateCommand() As > Dim StrSQL As String "Provider=Microsoft.Jet.OLEDB.4.0;> Dim connectionString As String = > Ole DB Services=-4; Data Source=C:\Program File"& _ "s\Microsoft.NET\SDK\v2.0\QuickStart\aspnet\samples\data\App_Data\Northwind.> > mdb" Show quote > Dim dbConnection As System.Data.IDbConnection = New > System.Data.OleDb.OleDbConnection(connectionString) > > > strSQL = "UPDATE [Categories] SET CategoryName=?, Description=? > WHERE CategoryID=?" > > Dim cmd As New System.Data.OleDb.OleDbCommand (strSQL, dbConnection) > > Dim pc As System.Data.OleDb.OleDbParameterCollection = cmd.Parameters > > pc.Add("CategoryID_New", System.Data.OleDb.OleDbType.Integer) > pc.Add("CategoryName_New", System.Data.OleDb.OleDbType.BSTR) > pc.Add("Description_New", System.Data.OleDb.OleDbType.BSTR) > > pc.Add("CategoryID_Orig", System.Data.OleDb.OleDbType.Integer) > pc.Add("CategoryName_Orig", System.Data.OleDb.OleDbType.BSTR) > pc.Add("Description_Orig", System.Data.OleDb.OleDbType.BSTR) > > Return cmd > End Function > Try pc.Add(new oledbParameter(...))
The parameters collection expects a parameter object in the Add(). -- Show quoteBrad "glenn" wrote: > Thanks for any thoughts on this > > I receive the following error when I run the code snippet below: > > An OleDbParameter with ParameterName 'CateroryID_New' is not contained by > this OleDbParameterCollection. > > > Private Function CreateUpdateCommand() As System.Data.OleDb.OleDbCommand > Dim StrSQL As String > Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; > Ole DB Services=-4; Data Source=C:\Program File"& _ > > "s\Microsoft.NET\SDK\v2.0\QuickStart\aspnet\samples\data\App_Data\Northwind.mdb" > Dim dbConnection As System.Data.IDbConnection = New > System.Data.OleDb.OleDbConnection(connectionString) > > > strSQL = "UPDATE [Categories] SET CategoryName=?, Description=? > WHERE CategoryID=?" > > Dim cmd As New System.Data.OleDb.OleDbCommand (strSQL, dbConnection) > > Dim pc As System.Data.OleDb.OleDbParameterCollection = cmd.Parameters > > pc.Add("CategoryID_New", System.Data.OleDb.OleDbType.Integer) > pc.Add("CategoryName_New", System.Data.OleDb.OleDbType.BSTR) > pc.Add("Description_New", System.Data.OleDb.OleDbType.BSTR) > > pc.Add("CategoryID_Orig", System.Data.OleDb.OleDbType.Integer) > pc.Add("CategoryName_Orig", System.Data.OleDb.OleDbType.BSTR) > pc.Add("Description_Orig", System.Data.OleDb.OleDbType.BSTR) > > Return cmd > End Function > |
|||||||||||||||||||||||