Updating Datagridview

[Guest]

When I go to update my datagridview...I get this error

Dynamic SQL generation for the UpdateCommand is not supported against a
SelectCommand that does not return any key column information.

using an update button...I have the following code:

Dim cm As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(SxAdapter)
SxAdapter.Update(CType(SxSource.DataSource, DataTable))

I'm using 2005

Any ideas?

 

[Ken Tucker [MVP]]

Hi,

What is the select command for SxAdapter?

Ken

 

[Guest]

Here is my GetData mod

Private Sub GetData(ByVal selectCommand As String)
Try
Dim Cxx As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source= " & Application.StartupPath & "\zAdmin.mdb;User Id=admin;Password=;"
SQL = "Select LastName, FirstName, Date, Score from Scores"
' Create a new data adapter based on the specified query.
SxAdapter = New OleDbDataAdapter(SQL, Cxx)
Dim MyCommandBuilder As New OleDbCommandBuilder(SxAdapter)
Dim SxTable As New DataTable()
SxTable.Locale = System.Globalization.CultureInfo.InvariantCulture
SxAdapter.Fill(SxTable)
SxSource.DataSource = SxTable
Catch ex As OleDbException
MessageBox.Show("Error")
End Try
End Sub

 

[Ken Tucker [MVP]]

Hi,

I think date is an keyword. Try this for the select statement

SQL = "Select LastName, FirstName, [Date], Score from Scores"

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

 

[Guest]

Good thought but still didn't work...I even changed the column to
TestDate...still no luck...

I'm stumped

Hi,

I think date is an keyword. Try this for the select statement

SQL = "Select LastName, FirstName, [Date], Score from Scores"

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

Here is my GetData mod

Private Sub GetData(ByVal selectCommand As String)
Try
Dim Cxx As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source= " & Application.StartupPath & "\zAdmin.mdb;User
Id=admin;Password=;"
SQL = "Select LastName, FirstName, Date, Score from Scores"
' Create a new data adapter based on the specified query.
SxAdapter = New OleDbDataAdapter(SQL, Cxx)
Dim MyCommandBuilder As New OleDbCommandBuilder(SxAdapter)
Dim SxTable As New DataTable()
SxTable.Locale =
System.Globalization.CultureInfo.InvariantCulture
SxAdapter.Fill(SxTable)
SxSource.DataSource = SxTable
Catch ex As OleDbException
MessageBox.Show("Error")
End Try
End Sub

 

[RobinS]

VB2005 or 2003?

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

 

[RobinS]

Do you have Option Strict On and Option Explicit On, just to make sure
all of your variables are defined, and correctly?

Where are Sql, SxAdapter, and SxSource defined, and as what?

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

 

[Guest]

Defined as...

Private SxAdapter As New OleDbDataAdapter()
Private SxSource As New BindingSource()