Adapter Update...Syntax error

[Guest]

I have a simple Access database and I'm using VB.net. I'm getting a syntax
error on the update line. Any idea what needs to be fixed

Dim CX As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Application.StartupPath & "\zAdmin.mdb;User Id=admin;Password=;"
Dim PWConn As New OleDbConnection(CX)

PWConn.Open()
SQL = "Select * from Admin"
Dim AdDataSet As New DataSet
Dim AdAdapter As New OleDbDataAdapter(SQL, PWConn)
AdAdapter.Fill(AdDataSet, "Admin")
Dim MyCommandBuilder As New OleDbCommandBuilder(AdAdapter)
AdAdapter.InsertCommand = MyCommandBuilder.GetInsertCommand
AdAdapter.UpdateCommand = MyCommandBuilder.GetUpdateCommand
Dim PwTable As DataTable

PwTable = AdDataSet.Tables("Admin")
PwTable.Rows(0)("Password") = "charlie"
AdAdapter.Update(AdDataSet, "Admin")
AdDataSet.AcceptChanges()
PWConn.Close()

Thanks

 

[Guest]

Hi,

Generally that is caused by a keyword being used a column name for your
admin table. Surrounding the column name in [ ] will fix the problem. A
simple fix is to change

Select * from Admin

to

Select [col1], [col2], [col3] from Admin

Ken

 

[Guest]

That did it ...thanks...

Hi,

Generally that is caused by a keyword being used a column name for your
admin table. Surrounding the column name in [ ] will fix the problem. A
simple fix is to change

Select * from Admin

to

Select [col1], [col2], [col3] from Admin

Ken
-------------------------------------

I have a simple Access database and I'm using VB.net. I'm getting a syntax
error on the update line. Any idea what needs to be fixed

Dim CX As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Application.StartupPath & "\zAdmin.mdb;User Id=admin;Password=;"
Dim PWConn As New OleDbConnection(CX)

PWConn.Open()
SQL = "Select * from Admin"
Dim AdDataSet As New DataSet
Dim AdAdapter As New OleDbDataAdapter(SQL, PWConn)
AdAdapter.Fill(AdDataSet, "Admin")
Dim MyCommandBuilder As New OleDbCommandBuilder(AdAdapter)
AdAdapter.InsertCommand = MyCommandBuilder.GetInsertCommand
AdAdapter.UpdateCommand = MyCommandBuilder.GetUpdateCommand
Dim PwTable As DataTable

PwTable = AdDataSet.Tables("Admin")
PwTable.Rows(0)("Password") = "charlie"
AdAdapter.Update(AdDataSet, "Admin")
AdDataSet.AcceptChanges()
PWConn.Close()

Thanks

 

[Cor Ligthert [MVP]]

Arne,

Why are you trying to screw up your dataadapter with setting an insert
command that is already not used because the dynamicly build one in the
commandbuilder is used?

Cor

That did it ...thanks...

Hi,

Generally that is caused by a keyword being used a column name for
your
admin table. Surrounding the column name in [ ] will fix the problem. A
simple fix is to change

Select * from Admin

to

Select [col1], [col2], [col3] from Admin

Ken
-------------------------------------

I have a simple Access database and I'm using VB.net. I'm getting a
syntax
error on the update line. Any idea what needs to be fixed

Dim CX As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
Application.StartupPath & "\zAdmin.mdb;User Id=admin;Password=;"
Dim PWConn As New OleDbConnection(CX)

PWConn.Open()
SQL = "Select * from Admin"
Dim AdDataSet As New DataSet
Dim AdAdapter As New OleDbDataAdapter(SQL, PWConn)
AdAdapter.Fill(AdDataSet, "Admin")
Dim MyCommandBuilder As New OleDbCommandBuilder(AdAdapter)
AdAdapter.InsertCommand = MyCommandBuilder.GetInsertCommand
AdAdapter.UpdateCommand = MyCommandBuilder.GetUpdateCommand
Dim PwTable As DataTable

PwTable = AdDataSet.Tables("Admin")
PwTable.Rows(0)("Password") = "charlie"
AdAdapter.Update(AdDataSet, "Admin")
AdDataSet.AcceptChanges()
PWConn.Close()

Thanks