Ad:

VB.NET Discussion Thread
Unsolved
Views: 825

Aug 3rd, 2009

Update database

Expand Post »

I connected a access database by usin codes, But when i add new data the data doesn't display in same time. it need to restart the programme. can I solve this?

Similar Threads

how to update database using mysql and jsp in JSP
could someone please explain to me why this script will not update my database? in PHP
Can't Update Database with AJAX inline Editor? in JavaScript / DHTML / AJAX
how to update database on the basis of real tme entry in PHP
Automatic update of Database in Visual Basic 4 / 5 / 6

tdapower

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Jul 2009

Permalink

Aug 3rd, 2009

Re: Update database

use refresh()

Nada_ward

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

53 posts
since Jul 2009

Permalink

Aug 3rd, 2009

-1

Re: Update database

can i plz c the code

babbu

Reputation Points: -1

Solved Threads: 23

Posting Whiz in Training

Offline

207 posts
since Jun 2009

Permalink

Aug 3rd, 2009

Re: Update database

Welcome to DaniWeb tdapower! Please post the relevant code for your application on this thread so we can see where the problem is. when you post code be sure to use code tags:

[code=vb.net]
...code here
[/code]

sknake

Featured Poster

Reputation Points: 1749

Solved Threads: 735

Senior Poster

Offline

3,948 posts
since Feb 2009

Permalink

Aug 5th, 2009

Re: Update database

vb.net Syntax (Toggle Plain Text)
 
Imports System.Data.OleDb
Public Class frmLecAdd
    Dim con As New OleDbConnection
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
 
    Dim rowNo As Integer
 
    Private Sub pbUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUpdate.Click
 
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim mycmd As New OleDb.OleDbCommand
        Dim rows As Integer
 
        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = database.mdb;"
        con.Open()
 
        sql = "SELECT * FROM lec_info"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "myDB")
 
        mycmd.CommandText = "INSERT INTO lec_info(lecturer_name,staff_no,course_name) VALUES('" & txtLname.Text & "','" & txtStaffNo.Text & "','" & cboCourses.Text & "')"
        mycmd.Connection = con
 
        rows = mycmd.ExecuteNonQuery()
        con.Close()
          ds.AcceptChanges()
 
    End Sub
Imports System.Data.OleDb
Public Class frmLecAdd
    Dim con As New OleDbConnection
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String

    Dim rowNo As Integer

    Private Sub pbUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUpdate.Click
        
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim mycmd As New OleDb.OleDbCommand
        Dim rows As Integer

        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = database.mdb;"
        con.Open()

        sql = "SELECT * FROM lec_info"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "myDB")

        mycmd.CommandText = "INSERT INTO lec_info(lecturer_name,staff_no,course_name) VALUES('" & txtLname.Text & "','" & txtStaffNo.Text & "','" & cboCourses.Text & "')"
        mycmd.Connection = con
     
        rows = mycmd.ExecuteNonQuery()
        con.Close()
          ds.AcceptChanges()

    End Sub

tdapower

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Jul 2009

Permalink

Aug 5th, 2009

Re: Update database

This is my code is
when i add new record using this i have to restart my programme to see the new data.
pls help me...

vb.net Syntax (Toggle Plain Text)
 
Imports System.Data.OleDb
Public Class frmLecAdd
    Dim con As New OleDbConnection
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
 
    Dim rowNo As Integer
 
    Private Sub pbUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUpdate.Click
 
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim mycmd As New OleDb.OleDbCommand
        Dim rows As Integer
 
        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = database.mdb;"
        con.Open()
 
        sql = "SELECT * FROM lec_info"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "myDB")
 
        mycmd.CommandText = "INSERT INTO lec_info(lecturer_name,staff_no,course_name) VALUES('" & txtLname.Text & "','" & txtStaffNo.Text & "','" & cboCourses.Text & "')"
        mycmd.Connection = con
 
        rows = mycmd.ExecuteNonQuery()
        con.Close()
          ds.AcceptChanges()
 
    End Sub
Imports System.Data.OleDb
Public Class frmLecAdd
    Dim con As New OleDbConnection
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String

    Dim rowNo As Integer

    Private Sub pbUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbUpdate.Click
        
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Dim mycmd As New OleDb.OleDbCommand
        Dim rows As Integer

        con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = database.mdb;"
        con.Open()

        sql = "SELECT * FROM lec_info"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "myDB")

        mycmd.CommandText = "INSERT INTO lec_info(lecturer_name,staff_no,course_name) VALUES('" & txtLname.Text & "','" & txtStaffNo.Text & "','" & cboCourses.Text & "')"
        mycmd.Connection = con
     
        rows = mycmd.ExecuteNonQuery()
        con.Close()
          ds.AcceptChanges()

    End Sub

tdapower

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Jul 2009

Permalink

Aug 5th, 2009

Re: Update database

u have to update the data table

VB.NET Syntax (Toggle Plain Text)
da.update(datatable)
da.update(datatable)

u have used data adapter to retrieve data thn why dont u use it to insert as well

VB.NET Syntax (Toggle Plain Text)
Dim drNewRow As DataRow = DataTable.NewRow()
        drNewRow("lecturer_name") = txtLname.Text
        drNewRow("staff_no") = txtStaffNo.Text
        drNewRow("course_name") = cboCourses.Text
 
DataTable.Rows.Add(drNewRow)
da.Update(DataTable)
Dim drNewRow As DataRow = DataTable.NewRow()
        drNewRow("lecturer_name") = txtLname.Text
        drNewRow("staff_no") = txtStaffNo.Text
        drNewRow("course_name") = cboCourses.Text

DataTable.Rows.Add(drNewRow)
da.Update(DataTable)

Last edited by babbu; Aug 5th, 2009 at 2:43 am.

babbu

Reputation Points: -1

Solved Threads: 23

Posting Whiz in Training

Offline

207 posts
since Jun 2009

Permalink

Aug 9th, 2009

Re: Update database

I tryied your code, but that doesn't work well

tdapower

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since Jul 2009

Permalink

Aug 9th, 2009

Re: Update database

everything are seems fine just need to update dataset

VB.NET Syntax (Toggle Plain Text)
 rows = mycmd.ExecuteNonQuery()
           con.Close()
          ds.AcceptChanges()
          da.Update(ds)
 rows = mycmd.ExecuteNonQuery()
           con.Close()
          ds.AcceptChanges()
          da.Update(ds)

should work fine.

Last edited by emint; Aug 9th, 2009 at 4:10 pm.

emint

Reputation Points: 10

Solved Threads: 4

Junior Poster in Training

Offline

60 posts
since Jun 2009

Permalink

Aug 10th, 2009

@ tdapower

Tryout this code(It's bit different and i't tested):

(Toggle Plain Text)


Imports System.data
Imports System.Data.OleDb
Public Class frmLectureRecords
    Dim con As OleDbConnection
    Dim cmd As OleDbCommand()
    Dim da As OleDb.OleDbDataAdapter
    Dim ds As New DataSet()
    Dim Sql As String

    Private Sub frmLectureRecords_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\college.mdb;Persist Security Info=False")
        con.Open()
        Sql = "SELECT * FROM lec_info"
        da = New OleDb.OleDbDataAdapter(Sql, con)
        da.Fill(ds, "lec_info")
        con.Close()
        DataGridView1.ClearSelection()
        ' Set the DataGridView properties to bind it to our data...
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "lec_info"
        DataGridView1.Columns(0).HeaderText = "Lecturer Name"
        DataGridView1.Columns(1).HeaderText = "Staff No"
        DataGridView1.Columns(2).HeaderText = "Course"
    End Sub
End Class

Vivek_1986

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

11 posts
since May 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: can't show a form...

Next Thread in VB.NET Forum Timeline: Same data gets appended repeatedly

DaniWeb Message

Cancel Changes

User Name
Password