Error updating new column...!

**Cor Ligthert [MVP]** · Jan 24 '07, 05:36 AM

Re: Error updating new column...!

Explode,

It is hard to see, but does your table have a primary key, and is it set?

Cor

"explode" <ured@mzos.hrsc hreef in bericht
news:ep5ubf$om3 $1@news1.carnet .hr...

My table has 5 columns: Broj iksice, Prezime, Ime, Broj indeksa, Broj
pohadjanja.
This is the code in the dataset designer VB made it by it self:
>
Private Sub InitClass()
Me.columnBroj_i ksice = New System.Data.Dat aColumn("Broj
iksice",
GetType(Double) , Nothing, System.Data.Map pingType.Elemen t)
>
Me.columnBroj_i ksice.ExtendedP roperties.Add(" Generator_Colum nPropNameInRow" ,
"Broj_iksic e")
>
Me.columnBroj_i ksice.ExtendedP roperties.Add(" Generator_Colum nPropNameInTabl e",
"Broj_iksiceCol umn")
>
Me.columnBroj_i ksice.ExtendedP roperties.Add(" Generator_Colum nVarNameInTable ",
"columnBroj_iks ice")
>
Me.columnBroj_i ksice.ExtendedP roperties.Add(" Generator_UserC olumnName",
"Broj iksice")
MyBase.Columns. Add(Me.columnBr oj_iksice)
Me.columnPrezim e = New System.Data.Dat aColumn("Prezim e",
GetType(String) , Nothing, System.Data.Map pingType.Elemen t)
MyBase.Columns. Add(Me.columnPr ezime)
Me.columnIme = New System.Data.Dat aColumn("Ime",
GetType(String) , Nothing, System.Data.Map pingType.Elemen t)
MyBase.Columns. Add(Me.columnIm e)
Me.columnBroj_i ndeksa = New System.Data.Dat aColumn("Broj
indeksa", GetType(String) , Nothing, System.Data.Map pingType.Elemen t)
>
Me.columnBroj_i ndeksa.Extended Properties.Add( "Generator_Colu mnPropNameInRow ",
"Broj_indek sa")
>
Me.columnBroj_i ndeksa.Extended Properties.Add( "Generator_Colu mnPropNameInTab le",
"Broj_indeksaCo lumn")
>
Me.columnBroj_i ndeksa.Extended Properties.Add( "Generator_Colu mnVarNameInTabl e",
"columnBroj_ind eksa")
>
Me.columnBroj_i ndeksa.Extended Properties.Add( "Generator_User ColumnName",
"Broj indeksa")
MyBase.Columns. Add(Me.columnBr oj_indeksa)
Me.columnBroj_p ohadjanja = New System.Data.Dat aColumn("Broj
pohadjanja", GetType(Integer ), Nothing, System.Data.Map pingType.Elemen t)
>
Me.columnBroj_p ohadjanja.Exten dedProperties.A dd("Generator_C olumnPropNameIn Row",
"Broj_pohadjanj a")
>
Me.columnBroj_p ohadjanja.Exten dedProperties.A dd("Generator_C olumnPropNameIn Table",
"Broj_pohadjanj aColumn")
>
Me.columnBroj_p ohadjanja.Exten dedProperties.A dd("Generator_C olumnVarNameInT able",
"columnBroj_poh adjanja")
>
Me.columnBroj_p ohadjanja.Exten dedProperties.A dd("Generator_U serColumnName",
"Broj pohadjanja")
MyBase.Columns. Add(Me.columnBr oj_pohadjanja)
Me.Constraints. Add(New
System.Data.Uni queConstraint(" Constraint1", New System.Data.Dat aColumn()
{Me.columnBroj_ iksice}, true))
Me.columnBroj_i ksice.AllowDBNu ll = false
Me.columnBroj_i ksice.Unique = true
Me.columnPrezim e.MaxLength = 255
Me.columnIme.Ma xLength = 255
Me.columnBroj_i ndeksa.MaxLengt h = 255
End Sub
>
I get an error when I add new column with this code:
>
Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Dim noviStupac As Data.DataColumn = New Data.DataColumn ("Test
Marko", System.Type.Get Type("System.In t32"), Nothing,
System.Data.Map pingType.Elemen t)
noviStupac.Auto Increment = False
noviStupac.Defa ultValue = 0
>
Try
>
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Add(noviStup ac)
'Dodaje stupac u tablicu
>
>
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Accep tChanges()
>
Form2.Table1Dat aGridView.AutoG enerateColumns = True 'Kada dodas
stupac da se prikaze u prozoru
>
>
Novo(Form2.Stud enti1Data.Table s.Item(Index(Co mboBox1.Text)). TableName,
"Fill") 'Ponovo prikazuje tablicu u datom prozoru
>
Catch ex As Exception
>
MsgBox("Vec postoji dati stupac!", MsgBoxStyle.Exc lamation,
"Upozorenje !")
>
End Try
End Sub
>
The error is:
>
>
System.Data.Ole Db.OleDbExcepti on was unhandled
ErrorCode=-2147217887
Message="Cannot update 'TEST Marko'; field not updateable."
Source="Microso ft JET Database Engine"
StackTrace:
at
System.Data.Com mon.DbDataAdapt er.UpdatedRowSt atusErrors(RowU pdatedEventArgs
rowUpdatedEvent , BatchCommandInf o[] batchCommands, Int32 commandCount)
at
System.Data.Com mon.DbDataAdapt er.UpdatedRowSt atus(RowUpdated EventArgs
rowUpdatedEvent , BatchCommandInf o[] batchCommands, Int32 commandCount)
at System.Data.Com mon.DbDataAdapt er.Update(DataR ow[] dataRows,
DataTableMappin g tableMapping)
at System.Data.Com mon.DbDataAdapt er.UpdateFromDa taTable(DataTab le
dataTable, DataTableMappin g tableMapping)
at System.Data.Com mon.DbDataAdapt er.Update(DataT able dataTable)
at Diplomski1.Form 1.Novo(String nova1, String nova2) in
D:\OdMomka\Dipl omski\Diplomski 1\Diplomski1\Fo rm1.vb:line 305
at Diplomski1.Form 2.Table1Binding NavigatorSaveIt em_Click(Object
sender, EventArgs e) in
D:\OdMomka\Dipl omski\Diplomski 1\Diplomski1\Fo rm2.vb:line 8
at System.Windows. Forms.ToolStrip Item.RaiseEvent (Object key,
EventArgs e)
at System.Windows. Forms.ToolStrip Button.OnClick( EventArgs e)
at System.Windows. Forms.ToolStrip Item.HandleClic k(EventArgs e)
at System.Windows. Forms.ToolStrip Item.HandleMous eUp(MouseEventA rgs
e)
at System.Windows. Forms.ToolStrip Item.FireEventI nteractive(Even tArgs
e, ToolStripItemEv entType met)
at System.Windows. Forms.ToolStrip Item.FireEvent( EventArgs e,
ToolStripItemEv entType met)
at System.Windows. Forms.ToolStrip .OnMouseUp(Mous eEventArgs mea)
at System.Windows. Forms.Control.W mMouseUp(Messag e& m, MouseButtons
button, Int32 clicks)
at System.Windows. Forms.Control.W ndProc(Message& m)
at System.Windows. Forms.Scrollabl eControl.WndPro c(Message& m)
at System.Windows. Forms.ToolStrip .WndProc(Messag e& m)
at
System.Windows. Forms.Control.C ontrolNativeWin dow.OnMessage(M essage& m)
at System.Windows. Forms.Control.C ontrolNativeWin dow.WndProc(Mes sage&
m)
at System.Windows. Forms.NativeWin dow.DebuggableC allback(IntPtr hWnd,
Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows. Forms.UnsafeNat iveMethods.Disp atchMessageW(MS G&
msg)
at
System.Windows. Forms.Applicati on.ComponentMan ager.System.Win dows.Forms.Unsa feNativeMethods .IMsoComponentM anager.FPushMes sageLoop(Int32
dwComponentID, Int32 reason, Int32 pvLoopData)
at
System.Windows. Forms.Applicati on.ThreadContex t.RunMessageLoo pInner(Int32
reason, ApplicationCont ext context)
at
System.Windows. Forms.Applicati on.ThreadContex t.RunMessageLoo p(Int32
reason,
ApplicationCont ext context)
at System.Windows. Forms.Applicati on.Run(Applicat ionContext context)
at
Microsoft.Visua lBasic.Applicat ionServices.Win dowsFormsApplic ationBase.OnRun ()
at
Microsoft.Visua lBasic.Applicat ionServices.Win dowsFormsApplic ationBase.DoApp licationModel()
at
Microsoft.Visua lBasic.Applicat ionServices.Win dowsFormsApplic ationBase.Run(S tring[]
commandLine)
at Diplomski1.My.M yApplication.Ma in(String[] Args) in
17d14f5c-a337-4978-8281-53493378c1071.v b:line 81
at System.AppDomai n.nExecuteAssem bly(Assembly assembly, String[]
args)
at System.Runtime. Hosting.Manifes tRunner.Run(Boo lean checkAptModel)
at System.Runtime. Hosting.Manifes tRunner.Execute AsAssembly()
at
System.Runtime. Hosting.Applica tionActivator.C reateInstance(A ctivationContex t
activationConte xt, String[] activationCusto mData)
at
System.Runtime. Hosting.Applica tionActivator.C reateInstance(A ctivationContex t
activationConte xt)
at
Microsoft.Visua lStudio.Hosting Process.HostPro c.RunUsersAssem blyDebugInZone( )
at System.Threadin g.ThreadHelper. ThreadStart_Con text(Object state)
at System.Threadin g.ExecutionCont ext.Run(Executi onContext
executionContex t, ContextCallback callback, Object state)
at System.Threadin g.ThreadHelper. ThreadStart()
>
>
>
I didn't set autoincrement as true.
I dont know wat is wrong!
Can you help me...!
>
>

Error updating new column...!

Error updating new column...!

Comment