Add New Record

Please support our VB.NET advertiser: Intel Parallel Studio Home
Reply

Join Date: Dec 2008
Posts: 9
Reputation: Evil03 is an unknown quantity at this point 
Solved Threads: 0
Evil03 Evil03 is offline Offline
Newbie Poster

Add New Record

 
0
  #1
Dec 29th, 2008
hi,

I have Created a vb.net Application with MS ACCESS DATABASE, everything is working fine, But, There is a small problem . Everytime i ADD a new record it saves succesfully
but i can only view that particular saved data only after restarting the application..Pls Help me

******************************************************

Imports System.Data

Public Class frmdetail
Inherits System.Windows.Forms.Form

Dim inc As Integer
Dim maxrows As Integer
Dim con As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String

Private Sub frmdetail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source = C:\Documents and Settings\Acer\Desktop\CounsellingSystem\counselling.mdb"
con.Open()

sql = "select * from counselling"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "counselling")

con.Close()

maxrows = ds.Tables("counselling").Rows.Count
inc = -1

End Sub

Private Sub navigaterecords()

txtname.Text = ds.Tables("counselling").Rows(inc).Item(1)
txtcname.Text = ds.Tables("counselling").Rows(inc).Item(2)
txtnpos.Text = ds.Tables("counselling").Rows(inc).Item(3)

End Sub

Private Sub btncommit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncommit.Click
If inc <> -1 Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim dsnewrow As DataRow

dsnewrow = ds.Tables("counselling").NewRow()


dsnewrow.Item(1) = txtname.Text
dsnewrow.Item(2) = txtcname.Text
dsnewrow.Item(3) = txtnpos.Text

ds.Tables("counselling").Rows.Add(dsnewrow)
da.Update(ds, "counselling")
MsgBox("New Record Added!")
Endclass

End Class

***************************************************
Reply With Quote Quick reply to this message  
Join Date: Sep 2008
Posts: 36
Reputation: Alexpap is an unknown quantity at this point 
Solved Threads: 0
Alexpap Alexpap is offline Offline
Light Poster

Re: Add New Record

 
0
  #2
Dec 30th, 2008
yes this happens because the control you are using is not eligible to update its data everytime. So what do you need to do is to update the data that is shown every time that you add a row.

you can do this by executing the same code that you have written.


Happy X-mas & Coding!
Reply With Quote Quick reply to this message  
Join Date: Dec 2008
Posts: 9
Reputation: Evil03 is an unknown quantity at this point 
Solved Threads: 0
Evil03 Evil03 is offline Offline
Newbie Poster

Re: Add New Record

 
0
  #3
Dec 30th, 2008
Originally Posted by Alexpap View Post
yes this happens because the control you are using is not eligible to update its data everytime. So what do you need to do is to update the data that is shown every time that you add a row.

you can do this by executing the same code that you have written.


Happy X-mas & Coding!
Hi ALex...

Execute Control!>.....could you pls give me an example ?

Merry X-Mas n Year 09 dude.
Reply With Quote Quick reply to this message  
Join Date: Sep 2008
Posts: 36
Reputation: Alexpap is an unknown quantity at this point 
Solved Threads: 0
Alexpap Alexpap is offline Offline
Light Poster

Re: Add New Record

 
0
  #4
Jan 2nd, 2009
first you should tell me what control are u using so as to write the code for the specific control....
Reply With Quote Quick reply to this message  
Reply

This thread is more than three months old.
Perhaps start a new thread instead?
Message:


Thread Tools Search this Thread



About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC