Updating Datasets

Question

Hi,
I am new to .net environment and odp.net.
I installed Oracle Express Edition and Visual Basic 2005 Express Edition.
I tried to update dataset. But Iam getting error as
'Concurrency violatation : affected 0 records expected 1 records'
code i used
Namespace : system.oracle.dataaccess.
dim ds as dataset
cn=new oracle.dataaccess.client.oracleconnection(cnstr)
daCustomers= new oracledataadapter("Select * from Customers Order By Name",cn)
cmbCustomers=new oraclecommandbuilder(dacustomers)
da.tablemappings.add("CUSTOMERS","CUSTOMERS")
da.insertcommand=cmbcustomers.getinsertcommand
da.updatecommand=cmbcustomers.getupdatecommand
da.deletecommand=cmbcustomers.getdeletecommand
da.fill(ds,"CUSTOMERS")
in the updating procedure
dim dv as dataview
dv.rowfilter="CUSTID=" & someid
if dv.count > 0 then
dv(fieldnames...)=field values..
end if
dacustomers.update(ds.tables("CUSTOMERS"))
for the first time when I try to insert or update , it works well.
for the second time when i try to insert or update. I am getting the error as like.
without commandbuilder.getinsertcommand,getupdatecommand,getdeletecommand
these lines doesn't TOTALLY working.
I seen the odp.net, it has given a very simple neat example. but according to that it is not working.
in the table i have a primary key column custid.
is any other thing has to be installed in the system.( In my system an error comes like this. when I take an adapter and placed error comes as guid 000-00000000-000-0000 cannot access.).
Any Suggestion,help !. Please
Thx in advance

Answer 1

Hello,
In My system the .net framework configuration shows
Oracle.DataAccess - 2.102.2.1
oracle.dataaccess - 1.102.2.1
oracle.dataaccess - 10.2.0.1
Warning     1
Referenced assembly 'D:\oracle\product\10.2.0\client_1\odp.net\bin\2.x\Oracle.DataAccess.dll' targets a different processor than the application.
Actually I removed the old reference and added new 2.102.2.1 reference.
It will be helpful, please tell me the automatic code generation steps in VB Express Edition. No table adapter or dataset configuration wizards shows oracle data provider.
I don't Know where the concurrency violation raised in the below code.
ColdStorage30
Public Class FrmCustomers
Dim Cn As New Oracle.DataAccess.Client.OracleConnection
Dim daCustomers As New Oracle.DataAccess.Client.OracleDataAdapter
Dim cmbCustomers As New Oracle.DataAccess.Client.OracleCommandBuilder
Dim viewCustomers As New DataView
Dim cboview As New DataView
Dim ds As New DataSet
Private Sub FrmCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
' Dim daa As New Oracle.DataAccess.Client.OracleConnection
Cn.ConnectionString = My.Settings.DbCn.ToString
Cn.Open()
daCustomers = New Oracle.DataAccess.Client.OracleDataAdapter("Select * from Customers Order By Name", Cn)
daCustomers.TableMappings.Add("CUSTOMERS", "CUSTOMERS")
cmbCustomers = New Oracle.DataAccess.Client.OracleCommandBuilder(daCustomers)
daCustomers.InsertCommand = cmbCustomers.GetInsertCommand
daCustomers.UpdateCommand = cmbCustomers.GetUpdateCommand
daCustomers.DeleteCommand = cmbCustomers.GetDeleteCommand
daCustomers.Fill(ds, "CUSTOMERS")
'ds.Tables("CUSTOMERS").Columns("CUSTID").Unique = True
viewCustomers = New DataView(ds.Tables("CUSTOMERS"))
cboCustomers.DataSource = ds.Tables("CUSTOMERS")
cboCustomers.DisplayMember = ds.Tables("CUSTOMERS").Columns("Name").ToString
cboCustomers.ValueMember = ds.Tables("CUSTOMERS").Columns("CUSTID").ToString
cboCustomers.Refresh()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
grdCustomers.DataSource = viewCustomers
grdCustomers.Columns("Name").Width = 120
grdCustomers.Columns("address").Width = 120
grdCustomers.Columns("City").Width = 100
grdCustomers.Columns("Phone1").Width = 80
grdCustomers.Columns("Phone2").Width = 80
grdCustomers.Columns("phone3").Width = 80
grdCustomers.Columns("Phone4").Width = 80
grdCustomers.Columns("Fax").Width = 80
grdCustomers.Columns("email").Width = 120
grdCustomers.Columns("TNGST").Width = 80
grdCustomers.Columns("Second_Lang_Name").Visible = False
grdCustomers.Columns("second_Lang_address").Visible = False
grdCustomers.Columns("second_Lang_City").Visible = False
grdCustomers.Columns("CustID").Visible = False
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
'-- Verify the Values
If txtName.Text = "" Then
MsgBox("Enter the Customer Name Properly !", MsgBoxStyle.Critical)
Exit Sub
End If
If txtAddress.Text = "" Then
MsgBox("Enter the Address Properly !", MsgBoxStyle.Critical)
Exit Sub
End If
If txtCity.Text = "" Then
MsgBox("Enter the City Properly !", MsgBoxStyle.Critical)
Exit Sub
End If
Dim dr() As DataRow
If btnSave.Text = "&Update" Then
If cboCustomers.SelectedIndex = -1 Then
MsgBox("Select a Customer First Properly !", MsgBoxStyle.Critical)
Exit Sub
End If
dr = ds.Tables("Customers").Select("CustID = " & CLng(cboCustomers.SelectedValue))
'Dim dv As New DataView(ds.Tables("Customers"))
'dv.RowFilter = "CustID=" & CLng(cboCustomers.SelectedValue)
'If dv.Count > 0 Then
dr(0)("CustId") = CLng(cboCustomers.SelectedValue)
dr(0)("Name") = txtName.Text
dr(0)("Address") = txtAddress.Text
dr(0)("City") = txtCity.Text
dr(0)("PIN") = txtPIN.Text
dr(0)("Phone1") = txtPhone1.Text
dr(0)("Phone2") = txtPhone2.Text
dr(0)("Phone3") = txtPhone3.Text
dr(0)("Phone4") = txtPhone4.Text
dr(0)("Fax") = txtFax.Text
dr(0)("Email") = txtEmail.Text
dr(0)("TNGST") = txtTNGST.Text
dr(0)("Second_Lang_Name") = txtSecond_Lang_Name.Text
dr(0)("Second_Lang_Address") = txtSecond_Lang_Address.Text
dr(0)("Second_Lang_City") = txtSecond_Lang_City.Text
Try
MsgBox(daCustomers.UpdateCommand.CommandText.ToString)
daCustomers.Update(ds, "CUSTOMERS")
MsgBox("Customer Information Modified Successfully !", MsgBoxStyle.Information)
clear_fields()
btnSave.Text = "&Save"
txtName.Focus()
Exit Sub
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
Else
MsgBox("No Data Found . Unable to Update !")
End If
Dim cmd As New Oracle.DataAccess.Client.OracleCommand("Select Max(CustID) From Customers", Cn)
Dim CustID As Oracle.DataAccess.Types.OracleDecimal
CustID = CInt(cmd.ExecuteScalar()) '-- extra added for type conversion
Dim InsRow As DataRow
InsRow = ds.Tables("Customers").NewRow
If CustID.IsNull = True Then
InsRow.Item("CustID") = 1
Else
InsRow.Item("CustID") = CustID.Value + 1
End If
InsRow.Item("Name") = txtName.Text
InsRow.Item("Address") = txtAddress.Text
InsRow.Item("City") = txtCity.Text
InsRow.Item("Pin") = txtPIN.Text
InsRow.Item("Phone1") = txtPhone1.Text
InsRow.Item("Phone2") = txtPhone2.Text
InsRow.Item("Phone3") = txtPhone3.Text
InsRow.Item("Phone4") = txtPhone4.Text
InsRow.Item("Fax") = txtFax.Text
InsRow.Item("Email") = txtEmail.Text
InsRow.Item("tngst") = txtTNGST.Text
InsRow.Item("Second_Lang_Name") = txtSecond_Lang_Name.Text
InsRow.Item("Second_Lang_Address") = txtSecond_Lang_Address.Text
InsRow.Item("Second_Lang_City") = txtSecond_Lang_City.Text
ds.Tables("CUSTOMERS").Rows.Add(InsRow)
Try
MsgBox(daCustomers.InsertCommand.CommandText.ToString)
daCustomers.Update(ds.Tables("CUSTOMERS"))
ds.AcceptChanges()
clear_fields()
btnSave.Text = "&Save"
MsgBox("Entries Filed Successfully !", MsgBoxStyle.Information)
txtName.Focus()
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
End Sub
Thank you.