New columns and update problem...!

[explode]

I made a procedure Public Sub Novo(ByVal nova1 As String, ByVal nova2 As
String) that creates a new oledbDataAdapte r with insert update select and
delete commads. I also added that commands can change depending how many
columns are in a Table.
I add a new column with this code:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Try
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Add("TEST
Marko", GetType(Integer ))
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Accep tChanges()
Form2.Table1Dat aGridView.AutoG enerateColumns = True
Novo(Form2.Stud enti1Data.Table s.Item(Index(Co mboBox1.Text)). TableName,
"Fill")

Catch ex As Exception
MsgBox("Vec postoji dati stupac!", MsgBoxStyle.Exc lamation, "Upozorenje !")
End Try

End Sub
Function index() gets the index of the Table. The column shows in the
datagridview but whe I try
to save changes I get this exception:
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()
Procedur for the oledbDataAdapte r is:
Public Sub Novo(ByVal nova1 As String, ByVal nova2 As String)
Dim i As Integer
Dim nova As OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter
Dim veza As OleDb.OleDbConn ection = New
OleDb.OleDbConn ection(Global.D iplomski1.My.My Settings.Defaul t.Studenti1Conn ection)
Dim SelectCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim UpdateCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim InsertCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim DeleteCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim tableMapping As System.Data.Com mon.DataTableMa pping = New
System.Data.Com mon.DataTableMa pping("Marko", ComboBox1.Text)
veza.Open()
For i = 0 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
tableMapping.Co lumnMappings.Ad d(Form2.Student i1Data.Tables.I tem(Index(Combo Box1.Text)).Col umns.Item(i).Co lumnName,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i
nova.TableMappi ngs.Add(tableMa pping)
nova.MissingMap pingAction = MissingMappingA ction.Passthrou gh
nova.MissingSch emaAction = MissingSchemaAc tion.AddWithKey
nova.AcceptChan gesDuringUpdate = True
SelectCom.Conne ction = veza
SelectCom.Comma ndType = CommandType.Tex t
SelectCom.Comma ndText = "SELECT * FROM " & nova1
UpdateCom.Conne ction = veza
UpdateCom.Comma ndType = CommandType.Tex t
UpdateCom.Comma ndText = "UPDATE " & nova1 & " SET " & InsSql(ComboBox 1.Text,
"Treci") & " WHERE [Broj iksice]=?" '[Broj iksice]=?, [Prezime]=?, [Ime]=?,
[Broj indeksa]=?, [Broj pohadjanja]=? & _
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input, CType(20,
Byte), CType(0, Byte), "Broj iksice", DataRowVersion. Current, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Prezime", DataRowVersion. Current, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Ime", DataRowVersion. Current, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj indeksa", DataRowVersion. Current, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj pohadjanja", DataRowVersion. Current, False,
Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
UpdateCom.Param eters.Add(New
OleDb.OleDbPara meter(Form2.Stu denti1Data.Tabl es.Item(Index(C omboBox1.Text)) .Columns.Item(i ).ColumnName,
_
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte),
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
DataRowVersion. Current, False, Nothing))
Next i
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input, CType(20,
Byte), CType(0, Byte), "Broj iksice", DataRowVersion. Original, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Prezime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Prezime", DataRowVersion. Original, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Ime", DataRowVersion. Original, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj indeksa", DataRowVersion. Original, True,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj pohadjanja", DataRowVersion. Original, True,
Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari " &
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
_
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte),
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
DataRowVersion. Original, True, Nothing))
Next i
InsertCom.Conne ction = veza
InsertCom.Comma ndType = CommandType.Tex t
InsertCom.Comma ndText = "INSERT INTO " & nova1 & " (" &
InsSql(ComboBox 1.Text, "Prvi") & ")" & " VALUES " & "(" &
InsSql(ComboBox 1.Text, "Drugi") & ")" '" ([Broj iksice], [Prezime], [Ime],
[Broj indeksa], " & _
'"[Broj pohadjanja]) VALUES (?,?,?,?,?)"
InsertCom.Param eters.Add("Broj iksice", OleDb.OleDbType .Double, 0, "Broj
iksice")
InsertCom.Param eters.Add("Prez ime", OleDb.OleDbType .WChar, 0, "Prezime")
InsertCom.Param eters.Add("Ime" , OleDb.OleDbType .WChar, 0, "Ime")
InsertCom.Param eters.Add("Broj indeksa", OleDb.OleDbType .WChar, 0, "Broj
indeksa")
InsertCom.Param eters.Add("Broj pohadjanja", OleDb.OleDbType .Integer, 0,
"Broj pohadjanja")
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
InsertCom.Param eters.Add(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)).Columns.It em(i).ColumnNam e,
_
OleDb.OleDbType .Integer, 0,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i
DeleteCom.Conne ction = veza
DeleteCom.Comma ndType = CommandType.Tex t
DeleteCom.Comma ndText = "DELETE * FROM " & nova1 & " WHERE [Broj iksice]=?"
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input, False,
CType(20, Byte), CType(0, Byte), "Broj iksice", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, False,
CType(0, Byte), CType(0, Byte), "Prezime", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, False,
CType(0, Byte), CType(0, Byte), "Ime", DataRowVersion. Original, Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, True,
CType(0, Byte), CType(0, Byte), "Broj indeksa", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, True,
CType(0, Byte), CType(0, Byte), "Broj pohadjanja", DataRowVersion. Original,
Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
DeleteCom.Param eters.Add(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)).Columns.It em(i).ColumnNam e,
_
OleDb.OleDbType .Integer, 0,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i

nova.SelectComm and = SelectCom
nova.UpdateComm and = UpdateCom
nova.DeleteComm and = DeleteCom
nova.InsertComm and = InsertCom
If nova2 = "Fill" Then
nova.Fill(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)))
End If
If nova2 = "Update" Then
nova.Update(For m2.Studenti1Dat a.Tables.Item(I ndex(ComboBox1. Text)))
End If
veza.Close()
End Sub
InsSql(ComboBox 1.Text, string) creates new sql commands with new column. The
code is:
Public Function InsSql(ByVal imeTab As String, ByVal tipSql As String) As
String 'Generira nastavak sql komande za update i insert
Dim i As Integer
Dim sql As String = "[Broj iksice]"
If tipSql = "Prvi" Then
For i = 1 To Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count -
1
sql = sql & ", [" &
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Item( i).ColumnName &
"]"
Next i
End If
If tipSql = "Drugi" Then
sql = "?"
For i = 0 To Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count -
2
sql = sql & ", ?" 'Ove dvije if petlje za insert komandu
Next i
End If
If tipSql = "Treci" Then
sql = "[Broj iksice]=?"
For i = 1 To Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count -
1
sql = sql & ", [" &
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Item( i).ColumnName &
"]" & "=?" 'Za Update komandu
Next i
End If
Return sql
End Function

Dataset is Studenti1data, I made it by the new data source
wizard,and made datagridview and bindingsource draging Table1 to Form2. I
use Access database.
Please help....!

[Cor Ligthert [MVP]]

Explode,

Do you really believe that there is one person on earth who will have a look
at your code.

If you want help, than make a simple sample from absolute no more than 20
lines.

Cor

"explode" <ur**@mzos.hrsc hreef in bericht
news:ep******** **@news1.carnet .hr...

>I made a procedure Public Sub Novo(ByVal nova1 As String, ByVal nova2 As
String) that creates a new oledbDataAdapte r with insert update select and
delete commads. I also added that commands can change depending how many
columns are in a Table.
I add a new column with this code:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Try
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Add("TEST
Marko", GetType(Integer ))
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Accep tChanges()
Form2.Table1Dat aGridView.AutoG enerateColumns = True
Novo(Form2.Stud enti1Data.Table s.Item(Index(Co mboBox1.Text)). TableName,
"Fill")

Catch ex As Exception
MsgBox("Vec postoji dati stupac!", MsgBoxStyle.Exc lamation, "Upozorenje !")
End Try

End Sub
Function index() gets the index of the Table. The column shows in the
datagridview but whe I try
to save changes I get this exception:
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()
Procedur for the oledbDataAdapte r is:
Public Sub Novo(ByVal nova1 As String, ByVal nova2 As String)
Dim i As Integer
Dim nova As OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter
Dim veza As OleDb.OleDbConn ection = New
OleDb.OleDbConn ection(Global.D iplomski1.My.My Settings.Defaul t.Studenti1Conn ection)
Dim SelectCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim UpdateCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim InsertCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim DeleteCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim tableMapping As System.Data.Com mon.DataTableMa pping = New
System.Data.Com mon.DataTableMa pping("Marko", ComboBox1.Text)
veza.Open()
For i = 0 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
tableMapping.Co lumnMappings.Ad d(Form2.Student i1Data.Tables.I tem(Index(Combo Box1.Text)).Col umns.Item(i).Co lumnName,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i
nova.TableMappi ngs.Add(tableMa pping)
nova.MissingMap pingAction = MissingMappingA ction.Passthrou gh
nova.MissingSch emaAction = MissingSchemaAc tion.AddWithKey
nova.AcceptChan gesDuringUpdate = True
SelectCom.Conne ction = veza
SelectCom.Comma ndType = CommandType.Tex t
SelectCom.Comma ndText = "SELECT * FROM " & nova1
UpdateCom.Conne ction = veza
UpdateCom.Comma ndType = CommandType.Tex t
UpdateCom.Comma ndText = "UPDATE " & nova1 & " SET " &
InsSql(ComboBox 1.Text, "Treci") & " WHERE [Broj iksice]=?" '[Broj
iksice]=?, [Prezime]=?, [Ime]=?, [Broj indeksa]=?, [Broj pohadjanja]=? & _
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input, CType(20,
Byte), CType(0, Byte), "Broj iksice", DataRowVersion. Current, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Prezime", DataRowVersion. Current, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Ime", DataRowVersion. Current, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj indeksa", DataRowVersion. Current, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj pohadjanja", DataRowVersion. Current, False,
Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
UpdateCom.Param eters.Add(New
OleDb.OleDbPara meter(Form2.Stu denti1Data.Tabl es.Item(Index(C omboBox1.Text)) .Columns.Item(i ).ColumnName,
_
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte),
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
DataRowVersion. Current, False, Nothing))
Next i
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input, CType(20,
Byte), CType(0, Byte), "Broj iksice", DataRowVersion. Original, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Prezime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Prezime", DataRowVersion. Original, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Ime", DataRowVersion. Original, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj indeksa", DataRowVersion. Original, True,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte), "Broj pohadjanja", DataRowVersion. Original, True,
Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari " &
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
_
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, CType(0,
Byte), CType(0, Byte),
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
DataRowVersion. Original, True, Nothing))
Next i
InsertCom.Conne ction = veza
InsertCom.Comma ndType = CommandType.Tex t
InsertCom.Comma ndText = "INSERT INTO " & nova1 & " (" &
InsSql(ComboBox 1.Text, "Prvi") & ")" & " VALUES " & "(" &
InsSql(ComboBox 1.Text, "Drugi") & ")" '" ([Broj iksice], [Prezime], [Ime],
[Broj indeksa], " & _
'"[Broj pohadjanja]) VALUES (?,?,?,?,?)"
InsertCom.Param eters.Add("Broj iksice", OleDb.OleDbType .Double, 0, "Broj
iksice")
InsertCom.Param eters.Add("Prez ime", OleDb.OleDbType .WChar, 0, "Prezime")
InsertCom.Param eters.Add("Ime" , OleDb.OleDbType .WChar, 0, "Ime")
InsertCom.Param eters.Add("Broj indeksa", OleDb.OleDbType .WChar, 0, "Broj
indeksa")
InsertCom.Param eters.Add("Broj pohadjanja", OleDb.OleDbType .Integer, 0,
"Broj pohadjanja")
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
InsertCom.Param eters.Add(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)).Columns.It em(i).ColumnNam e,
_
OleDb.OleDbType .Integer, 0,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i
DeleteCom.Conne ction = veza
DeleteCom.Comma ndType = CommandType.Tex t
DeleteCom.Comma ndText = "DELETE * FROM " & nova1 & " WHERE [Broj
iksice]=?"
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input, False,
CType(20, Byte), CType(0, Byte), "Broj iksice", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, False,
CType(0, Byte), CType(0, Byte), "Prezime", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, False,
CType(0, Byte), CType(0, Byte), "Ime", DataRowVersion. Original, Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, True,
CType(0, Byte), CType(0, Byte), "Broj indeksa", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input, True,
CType(0, Byte), CType(0, Byte), "Broj pohadjanja",
DataRowVersion. Original, Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count - 1
DeleteCom.Param eters.Add(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)).Columns.It em(i).ColumnNam e,
_
OleDb.OleDbType .Integer, 0,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i

nova.SelectComm and = SelectCom
nova.UpdateComm and = UpdateCom
nova.DeleteComm and = DeleteCom
nova.InsertComm and = InsertCom
If nova2 = "Fill" Then
nova.Fill(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)))
End If
If nova2 = "Update" Then
nova.Update(For m2.Studenti1Dat a.Tables.Item(I ndex(ComboBox1. Text)))
End If
veza.Close()
End Sub
InsSql(ComboBox 1.Text, string) creates new sql commands with new column.
The code is:
Public Function InsSql(ByVal imeTab As String, ByVal tipSql As String) As
String 'Generira nastavak sql komande za update i insert
Dim i As Integer
Dim sql As String = "[Broj iksice]"
If tipSql = "Prvi" Then
For i = 1 To
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count - 1
sql = sql & ", [" &
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Item( i).ColumnName
& "]"
Next i
End If
If tipSql = "Drugi" Then
sql = "?"
For i = 0 To
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count - 2
sql = sql & ", ?" 'Ove dvije if petlje za insert komandu
Next i
End If
If tipSql = "Treci" Then
sql = "[Broj iksice]=?"
For i = 1 To
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count - 1
sql = sql & ", [" &
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Item( i).ColumnName
& "]" & "=?" 'Za Update komandu
Next i
End If
Return sql
End Function

Dataset is Studenti1data, I made it by the new data source
wizard,and made datagridview and bindingsource draging Table1 to Form2. I
use Access database.
Please help....!

[RobinS]

This is your primary error:

Message="Cannot update 'TEST Marko'; field not updateable."

Is the field an AutoNumber field? If so, you can not update it.

Robin S.

-----------------------------------
"explode" <ur**@mzos.hrwr ote in message
news:ep******** **@news1.carnet .hr...

>I made a procedure Public Sub Novo(ByVal nova1 As String, ByVal nova2
As String) that creates a new oledbDataAdapte r with insert update
select and delete commads. I also added that commands can change
depending how many columns are in a Table.
I add a new column with this code:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button4.Click
Try
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Add("TEST
Marko", GetType(Integer ))
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Accep tChanges()
Form2.Table1Dat aGridView.AutoG enerateColumns = True
Novo(Form2.Stud enti1Data.Table s.Item(Index(Co mboBox1.Text)). TableName,
"Fill")

Catch ex As Exception
MsgBox("Vec postoji dati stupac!", MsgBoxStyle.Exc lamation,
"Upozorenje !")
End Try

End Sub
Function index() gets the index of the Table. The column shows in the
datagridview but whe I try
to save changes I get this exception:
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()
Procedur for the oledbDataAdapte r is:
Public Sub Novo(ByVal nova1 As String, ByVal nova2 As String)
Dim i As Integer
Dim nova As OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter
Dim veza As OleDb.OleDbConn ection = New
OleDb.OleDbConn ection(Global.D iplomski1.My.My Settings.Defaul t.Studenti1Conn ection)
Dim SelectCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim UpdateCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim InsertCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim DeleteCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim tableMapping As System.Data.Com mon.DataTableMa pping = New
System.Data.Com mon.DataTableMa pping("Marko", ComboBox1.Text)
veza.Open()
For i = 0 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count -
1
tableMapping.Co lumnMappings.Ad d(Form2.Student i1Data.Tables.I tem(Index(Combo Box1.Text)).Col umns.Item(i).Co lumnName,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i
nova.TableMappi ngs.Add(tableMa pping)
nova.MissingMap pingAction = MissingMappingA ction.Passthrou gh
nova.MissingSch emaAction = MissingSchemaAc tion.AddWithKey
nova.AcceptChan gesDuringUpdate = True
SelectCom.Conne ction = veza
SelectCom.Comma ndType = CommandType.Tex t
SelectCom.Comma ndText = "SELECT * FROM " & nova1
UpdateCom.Conne ction = veza
UpdateCom.Comma ndType = CommandType.Tex t
UpdateCom.Comma ndText = "UPDATE " & nova1 & " SET " &
InsSql(ComboBox 1.Text, "Treci") & " WHERE [Broj iksice]=?" '[Broj
iksice]=?, [Prezime]=?, [Ime]=?, [Broj indeksa]=?, [Broj pohadjanja]=?
& _
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input,
CType(20, Byte), CType(0, Byte), "Broj iksice",
DataRowVersion. Current, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Prezime", DataRowVersion. Current,
False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Ime", DataRowVersion. Current, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Broj indeksa",
DataRowVersion. Current, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Broj pohadjanja",
DataRowVersion. Current, False, Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count -
1
UpdateCom.Param eters.Add(New
OleDb.OleDbPara meter(Form2.Stu denti1Data.Tabl es.Item(Index(C omboBox1.Text)) .Columns.Item(i ).ColumnName,
_
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte),
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
DataRowVersion. Current, False, Nothing))
Next i
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input,
CType(20, Byte), CType(0, Byte), "Broj iksice",
DataRowVersion. Original, False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Prezime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Prezime", DataRowVersion. Original,
False, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Ime", DataRowVersion. Original, False,
Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj
indeksa", OleDb.OleDbType .WChar, 0,
System.Data.Par ameterDirection .Input, CType(0, Byte), CType(0, Byte),
"Broj indeksa", DataRowVersion. Original, True, Nothing))
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari Broj
pohadjanja", OleDb.OleDbType .Integer, 0,
System.Data.Par ameterDirection .Input, CType(0, Byte), CType(0, Byte),
"Broj pohadjanja", DataRowVersion. Original, True, Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count -
1
UpdateCom.Param eters.Add(New OleDb.OleDbPara meter("stari " &
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
_
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte),
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName,
DataRowVersion. Original, True, Nothing))
Next i
InsertCom.Conne ction = veza
InsertCom.Comma ndType = CommandType.Tex t
InsertCom.Comma ndText = "INSERT INTO " & nova1 & " (" &
InsSql(ComboBox 1.Text, "Prvi") & ")" & " VALUES " & "(" &
InsSql(ComboBox 1.Text, "Drugi") & ")" '" ([Broj iksice], [Prezime],
[Ime], [Broj indeksa], " & _
'"[Broj pohadjanja]) VALUES (?,?,?,?,?)"
InsertCom.Param eters.Add("Broj iksice", OleDb.OleDbType .Double, 0,
"Broj iksice")
InsertCom.Param eters.Add("Prez ime", OleDb.OleDbType .WChar, 0,
"Prezime")
InsertCom.Param eters.Add("Ime" , OleDb.OleDbType .WChar, 0, "Ime")
InsertCom.Param eters.Add("Broj indeksa", OleDb.OleDbType .WChar, 0,
"Broj indeksa")
InsertCom.Param eters.Add("Broj pohadjanja", OleDb.OleDbType .Integer,
0, "Broj pohadjanja")
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count -
1
InsertCom.Param eters.Add(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)).Columns.It em(i).ColumnNam e,
_
OleDb.OleDbType .Integer, 0,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i
DeleteCom.Conne ction = veza
DeleteCom.Comma ndType = CommandType.Tex t
DeleteCom.Comma ndText = "DELETE * FROM " & nova1 & " WHERE [Broj
iksice]=?"
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbType .Double, 0, System.Data.Par ameterDirection .Input,
False, CType(20, Byte), CType(0, Byte), "Broj iksice",
DataRowVersion. Original, Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, False,
CType(0, Byte), CType(0, Byte), "Prezime", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, False,
CType(0, Byte), CType(0, Byte), "Ime", DataRowVersion. Original,
Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbType .WChar, 0, System.Data.Par ameterDirection .Input, True,
CType(0, Byte), CType(0, Byte), "Broj indeksa",
DataRowVersion. Original, Nothing))
DeleteCom.Param eters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbType .Integer, 0, System.Data.Par ameterDirection .Input,
True, CType(0, Byte), CType(0, Byte), "Broj pohadjanja",
DataRowVersion. Original, Nothing))
For i = 5 To
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Count -
1
DeleteCom.Param eters.Add(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)).Columns.It em(i).ColumnNam e,
_
OleDb.OleDbType .Integer, 0,
Form2.Studenti1 Data.Tables.Ite m(Index(ComboBo x1.Text)).Colum ns.Item(i).Colu mnName)
Next i

nova.SelectComm and = SelectCom
nova.UpdateComm and = UpdateCom
nova.DeleteComm and = DeleteCom
nova.InsertComm and = InsertCom
If nova2 = "Fill" Then
nova.Fill(Form2 .Studenti1Data. Tables.Item(Ind ex(ComboBox1.Te xt)))
End If
If nova2 = "Update" Then
nova.Update(For m2.Studenti1Dat a.Tables.Item(I ndex(ComboBox1. Text)))
End If
veza.Close()
End Sub
InsSql(ComboBox 1.Text, string) creates new sql commands with new
column. The code is:
Public Function InsSql(ByVal imeTab As String, ByVal tipSql As String)
As String 'Generira nastavak sql komande za update i insert
Dim i As Integer
Dim sql As String = "[Broj iksice]"
If tipSql = "Prvi" Then
For i = 1 To
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count - 1
sql = sql & ", [" &
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Item( i).ColumnName
& "]"
Next i
End If
If tipSql = "Drugi" Then
sql = "?"
For i = 0 To
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count - 2
sql = sql & ", ?" 'Ove dvije if petlje za insert komandu
Next i
End If
If tipSql = "Treci" Then
sql = "[Broj iksice]=?"
For i = 1 To
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Count - 1
sql = sql & ", [" &
Form2.Studenti1 Data.Tables.Ite m(Index(imeTab) ).Columns.Item( i).ColumnName
& "]" & "=?" 'Za Update komandu
Next i
End If
Return sql
End Function

Dataset is Studenti1data, I made it by the new data source
wizard,and made datagridview and bindingsource draging Table1 to
Form2. I use Access database.
Please help....!

[RobinS]

Apparently there is *one*. But in all fairness, I didn't scrutinize it
that closely. A little dizzying, isn't it?

Robin S.
-----------------------------------------

"Cor Ligthert [MVP]" <no************ @planet.nlwrote in message
news:Ov******** ******@TK2MSFTN GP05.phx.gbl...

Explode,

Do you really believe that there is one person on earth who will have
a look at your code.

If you want help, than make a simple sample from absolute no more than
20 lines.

Cor

"explode" <ur**@mzos.hrsc hreef in bericht
news:ep******** **@news1.carnet .hr...

>>I made a procedure Public Sub Novo(ByVal nova1 As String, ByVal nova2
As String) that creates a new oledbDataAdapte r with insert update
select and delete commads. I also added that commands can change
depending how many columns are in a Table.
I add a new column with this code:

Private Sub Button4_Click(B yVal sender As System.Object, ByVal e As
System.EventAr gs) Handles Button4.Click
Try
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Add("TEST
Marko", GetType(Integer ))
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Acce ptChanges()
Form2.Table1Da taGridView.Auto GenerateColumns = True
Novo(Form2.Stu denti1Data.Tabl es.Item(Index(C omboBox1.Text)) .TableName,
"Fill")

Catch ex As Exception
MsgBox("Vec postoji dati stupac!", MsgBoxStyle.Exc lamation,
"Upozorenje! ")
End Try

End Sub
Function index() gets the index of the Table. The column shows in the
datagridview but whe I try
to save changes I get this exception:
System.Data.Ol eDb.OleDbExcept ion was unhandled
ErrorCode=-2147217887
Message="Cannot update 'TEST Marko'; field not updateable."
Source="Microso ft JET Database Engine"
StackTrace:
at
System.Data.Co mmon.DbDataAdap ter.UpdatedRowS tatusErrors(Row UpdatedEventArg s
rowUpdatedEven t, BatchCommandInf o[] batchCommands, Int32
commandCount )
at
System.Data.Co mmon.DbDataAdap ter.UpdatedRowS tatus(RowUpdate dEventArgs
rowUpdatedEven t, BatchCommandInf o[] batchCommands, Int32
commandCount )
at System.Data.Com mon.DbDataAdapt er.Update(DataR ow[] dataRows,
DataTableMappi ng tableMapping)
at
System.Data.Co mmon.DbDataAdap ter.UpdateFromD ataTable(DataTa ble
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\Dip lomski\Diplomsk i1\Diplomski1\F orm1.vb:line 305
at Diplomski1.Form 2.Table1Binding NavigatorSaveIt em_Click(Object
sender, EventArgs e) in
D:\OdMomka\Dip lomski\Diplomsk i1\Diplomski1\F orm2.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.ToolStri pItem.HandleMou seUp(MouseEvent Args e)
at
System.Windows .Forms.ToolStri pItem.FireEvent Interactive(Eve ntArgs e,
ToolStripItemE ventType met)
at System.Windows. Forms.ToolStrip Item.FireEvent( EventArgs e,
ToolStripItemE ventType 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. ControlNativeWi ndow.OnMessage( Message&
m)
at
System.Windows .Forms.Control. ControlNativeWi ndow.WndProc(Me ssage& m)
at System.Windows. Forms.NativeWin dow.DebuggableC allback(IntPtr
hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at
System.Windows .Forms.UnsafeNa tiveMethods.Dis patchMessageW(M SG& msg)
at
System.Windows .Forms.Applicat ion.ComponentMa nager.System.Wi ndows.Forms.Uns afeNativeMethod s.IMsoComponent Manager.FPushMe ssageLoop(Int32
dwComponentI D, Int32 reason, Int32 pvLoopData)
at
System.Windows .Forms.Applicat ion.ThreadConte xt.RunMessageLo opInner(Int32
reason, ApplicationCont ext context)
at
System.Windows .Forms.Applicat ion.ThreadConte xt.RunMessageLo op(Int32
reason, ApplicationCont ext context)
at System.Windows. Forms.Applicati on.Run(Applicat ionContext
context)
at
Microsoft.Visu alBasic.Applica tionServices.Wi ndowsFormsAppli cationBase.OnRu n()
at
Microsoft.Visu alBasic.Applica tionServices.Wi ndowsFormsAppli cationBase.DoAp plicationModel( )
at
Microsoft.Visu alBasic.Applica tionServices.Wi ndowsFormsAppli cationBase.Run( String[]
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
checkAptMode l)
at System.Runtime. Hosting.Manifes tRunner.Execute AsAssembly()
at
System.Runtime .Hosting.Applic ationActivator. CreateInstance( ActivationConte xt
activationCont ext, String[] activationCusto mData)
at
System.Runtime .Hosting.Applic ationActivator. CreateInstance( ActivationConte xt
activationCont ext)
at
Microsoft.Visu alStudio.Hostin gProcess.HostPr oc.RunUsersAsse mblyDebugInZone ()
at System.Threadin g.ThreadHelper. ThreadStart_Con text(Object
state)
at System.Threadin g.ExecutionCont ext.Run(Executi onContext
executionConte xt, ContextCallback callback, Object state)
at System.Threadin g.ThreadHelper. ThreadStart()
Procedur for the oledbDataAdapte r is:
Public Sub Novo(ByVal nova1 As String, ByVal nova2 As String)
Dim i As Integer
Dim nova As OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter
Dim veza As OleDb.OleDbConn ection = New
OleDb.OleDbCon nection(Global. Diplomski1.My.M ySettings.Defau lt.Studenti1Con nection)
Dim SelectCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim UpdateCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim InsertCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim DeleteCom As OleDb.OleDbComm and = New OleDb.OleDbComm and
Dim tableMapping As System.Data.Com mon.DataTableMa pping = New
System.Data.Co mmon.DataTableM apping("Marko", ComboBox1.Text)
veza.Open()
For i = 0 To
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Count
- 1
tableMapping.C olumnMappings.A dd(Form2.Studen ti1Data.Tables. Item(Index(Comb oBox1.Text)).Co lumns.Item(i).C olumnName,
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Item(i).Col umnName)
Next i
nova.TableMapp ings.Add(tableM apping)
nova.MissingMa ppingAction = MissingMappingA ction.Passthrou gh
nova.MissingSc hemaAction = MissingSchemaAc tion.AddWithKey
nova.AcceptCha ngesDuringUpdat e = True
SelectCom.Conn ection = veza
SelectCom.Comm andType = CommandType.Tex t
SelectCom.Comm andText = "SELECT * FROM " & nova1
UpdateCom.Conn ection = veza
UpdateCom.Comm andType = CommandType.Tex t
UpdateCom.Comm andText = "UPDATE " & nova1 & " SET " &
InsSql(ComboBo x1.Text, "Treci") & " WHERE [Broj iksice]=?" '[Broj
iksice]=?, [Prezime]=?, [Ime]=?, [Broj indeksa]=?, [Broj
pohadjanja]=? & _
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbTyp e.Double, 0, System.Data.Par ameterDirection .Input,
CType(20, Byte), CType(0, Byte), "Broj iksice",
DataRowVersion .Current, False, Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Prezime", DataRowVersion. Current,
False, Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Ime", DataRowVersion. Current, False,
Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Broj indeksa",
DataRowVersion .Current, False, Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbTyp e.Integer, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Broj pohadjanja",
DataRowVersion .Current, False, Nothing))
For i = 5 To
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Count
- 1
UpdateCom.Para meters.Add(New
OleDb.OleDbPar ameter(Form2.St udenti1Data.Tab les.Item(Index( ComboBox1.Text) ).Columns.Item( i).ColumnName,
_
OleDb.OleDbTyp e.Integer, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte),
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Item(i).Col umnName,
DataRowVersion .Current, False, Nothing))
Next i
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("stari Broj
iksice", OleDb.OleDbType .Double, 0,
System.Data.Pa rameterDirectio n.Input, CType(20, Byte), CType(0,
Byte), "Broj iksice", DataRowVersion. Original, False, Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("stari Prezime",
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Prezime", DataRowVersion. Original,
False, Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("stari Ime",
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte), "Ime", DataRowVersion. Original,
False, Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("stari Broj
indeksa", OleDb.OleDbType .WChar, 0,
System.Data.Pa rameterDirectio n.Input, CType(0, Byte), CType(0, Byte),
"Broj indeksa", DataRowVersion. Original, True, Nothing))
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("stari Broj
pohadjanja", OleDb.OleDbType .Integer, 0,
System.Data.Pa rameterDirectio n.Input, CType(0, Byte), CType(0, Byte),
"Broj pohadjanja", DataRowVersion. Original, True, Nothing))
For i = 5 To
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Count
- 1
UpdateCom.Para meters.Add(New OleDb.OleDbPara meter("stari " &
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Item(i).Col umnName,
_
OleDb.OleDbTyp e.Integer, 0, System.Data.Par ameterDirection .Input,
CType(0, Byte), CType(0, Byte),
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Item(i).Col umnName,
DataRowVersion .Original, True, Nothing))
Next i
InsertCom.Conn ection = veza
InsertCom.Comm andType = CommandType.Tex t
InsertCom.Comm andText = "INSERT INTO " & nova1 & " (" &
InsSql(ComboBo x1.Text, "Prvi") & ")" & " VALUES " & "(" &
InsSql(ComboBo x1.Text, "Drugi") & ")" '" ([Broj iksice], [Prezime],
[Ime], [Broj indeksa], " & _
'"[Broj pohadjanja]) VALUES (?,?,?,?,?)"
InsertCom.Para meters.Add("Bro j iksice", OleDb.OleDbType .Double, 0,
"Broj iksice")
InsertCom.Para meters.Add("Pre zime", OleDb.OleDbType .WChar, 0,
"Prezime")
InsertCom.Para meters.Add("Ime ", OleDb.OleDbType .WChar, 0, "Ime")
InsertCom.Para meters.Add("Bro j indeksa", OleDb.OleDbType .WChar, 0,
"Broj indeksa")
InsertCom.Para meters.Add("Bro j pohadjanja", OleDb.OleDbType .Integer,
0, "Broj pohadjanja")
For i = 5 To
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Count
- 1
InsertCom.Para meters.Add(Form 2.Studenti1Data .Tables.Item(In dex(ComboBox1.T ext)).Columns.I tem(i).ColumnNa me,
_
OleDb.OleDbTyp e.Integer, 0,
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Item(i).Col umnName)
Next i
DeleteCom.Conn ection = veza
DeleteCom.Comm andType = CommandType.Tex t
DeleteCom.Comm andText = "DELETE * FROM " & nova1 & " WHERE [Broj
iksice]=?"
DeleteCom.Para meters.Add(New OleDb.OleDbPara meter("Broj iksice",
OleDb.OleDbTyp e.Double, 0, System.Data.Par ameterDirection .Input,
False, CType(20, Byte), CType(0, Byte), "Broj iksice",
DataRowVersion .Original, Nothing))
DeleteCom.Para meters.Add(New OleDb.OleDbPara meter("Prezime" ,
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input,
False, CType(0, Byte), CType(0, Byte), "Prezime",
DataRowVersion .Original, Nothing))
DeleteCom.Para meters.Add(New OleDb.OleDbPara meter("Ime",
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input,
False, CType(0, Byte), CType(0, Byte), "Ime",
DataRowVersion .Original, Nothing))
DeleteCom.Para meters.Add(New OleDb.OleDbPara meter("Broj indeksa",
OleDb.OleDbTyp e.WChar, 0, System.Data.Par ameterDirection .Input, True,
CType(0, Byte), CType(0, Byte), "Broj indeksa",
DataRowVersion .Original, Nothing))
DeleteCom.Para meters.Add(New OleDb.OleDbPara meter("Broj pohadjanja",
OleDb.OleDbTyp e.Integer, 0, System.Data.Par ameterDirection .Input,
True, CType(0, Byte), CType(0, Byte), "Broj pohadjanja",
DataRowVersion .Original, Nothing))
For i = 5 To
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Count
- 1
DeleteCom.Para meters.Add(Form 2.Studenti1Data .Tables.Item(In dex(ComboBox1.T ext)).Columns.I tem(i).ColumnNa me,
_
OleDb.OleDbTyp e.Integer, 0,
Form2.Studenti 1Data.Tables.It em(Index(ComboB ox1.Text)).Colu mns.Item(i).Col umnName)
Next i

nova.SelectCom mand = SelectCom
nova.UpdateCom mand = UpdateCom
nova.DeleteCom mand = DeleteCom
nova.InsertCom mand = InsertCom
If nova2 = "Fill" Then
nova.Fill(Form 2.Studenti1Data .Tables.Item(In dex(ComboBox1.T ext)))
End If
If nova2 = "Update" Then
nova.Update(Fo rm2.Studenti1Da ta.Tables.Item( Index(ComboBox1 .Text)))
End If
veza.Close()
End Sub
InsSql(ComboBo x1.Text, string) creates new sql commands with new
column. The code is:
Public Function InsSql(ByVal imeTab As String, ByVal tipSql As
String) As String 'Generira nastavak sql komande za update i insert
Dim i As Integer
Dim sql As String = "[Broj iksice]"
If tipSql = "Prvi" Then
For i = 1 To
Form2.Studenti 1Data.Tables.It em(Index(imeTab )).Columns.Coun t - 1
sql = sql & ", [" &
Form2.Studenti 1Data.Tables.It em(Index(imeTab )).Columns.Item (i).ColumnName
& "]"
Next i
End If
If tipSql = "Drugi" Then
sql = "?"
For i = 0 To
Form2.Studenti 1Data.Tables.It em(Index(imeTab )).Columns.Coun t - 2
sql = sql & ", ?" 'Ove dvije if petlje za insert komandu
Next i
End If
If tipSql = "Treci" Then
sql = "[Broj iksice]=?"
For i = 1 To
Form2.Studenti 1Data.Tables.It em(Index(imeTab )).Columns.Coun t - 1
sql = sql & ", [" &
Form2.Studenti 1Data.Tables.It em(Index(imeTab )).Columns.Item (i).ColumnName
& "]" & "=?" 'Za Update komandu
Next i
End If
Return sql
End Function

Dataset is Studenti1data, I made it by the new data source
wizard,and made datagridview and bindingsource draging Table1 to
Form2. I use Access database.
Please help....!

[explode]

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 this error (in the post before) 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

I didn't set autoincrement as true.
I dont know wat is wrong!
Can you help me...!

[RobinS]

Well, I can tell you the first thing I would do is rename the
data columns to *NOT* have spaces in the names. That's just a
recipe for disaster.

You said previously it was stopping when trying to update the
record, and I asked if there was a primary key, which Cor also
asked when you reposted this in a new thread and you never answered.

Second, what exactly is your problem, and where is it stopping?

Robin S.
-------------------------------
"explode" <ur**@mzos.hrwr ote in message
news:ep******** **@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 this error (in the post before) 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

I didn't set autoincrement as true.
I dont know wat is wrong!
Can you help me...!