VB.NET

VB.NET RSS

Update database

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

•

Join Date: Jul 2009

Posts: 5

Reputation: tdapower is an unknown quantity at this point

Solved Threads: 0

tdapower

Offline

Newbie Poster

Update database

Aug 3rd, 2009

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?

•

Join Date: Jul 2009

Posts: 47

Reputation: Nada_ward is an unknown quantity at this point

Solved Threads: 0

Nada_ward

Offline

Light Poster

Re: Update database

Aug 3rd, 2009

use refresh()

•

Join Date: Jun 2009

Posts: 132

Reputation: babbu has a little shameless behaviour in the past

Solved Threads: 13

babbu

Offline

Junior Poster

Re: Update database

-1

Aug 3rd, 2009

can i plz c the code

•

Join Date: Feb 2009

Posts: 3,264

Reputation: sknake has much to be proud of

Solved Threads: 582

sknake

Offline

.NET Enthusiast

Re: Update database

Aug 3rd, 2009

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]

Scott Knake
Custom Software Development
Apex Software, Inc.

•

Join Date: Jul 2009

Posts: 5

Reputation: tdapower is an unknown quantity at this point

Solved Threads: 0

tdapower

Offline

Newbie Poster

Re: Update database

Aug 5th, 2009

 Help with Code Tags 
 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

•

Join Date: Jul 2009

Posts: 5

Reputation: tdapower is an unknown quantity at this point

Solved Threads: 0

tdapower

Offline

Newbie Poster

Re: Update database

Aug 5th, 2009

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...

 Help with Code Tags 
 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

•

Join Date: Jun 2009

Posts: 132

Reputation: babbu has a little shameless behaviour in the past

Solved Threads: 13

babbu

Offline

Junior Poster

Re: Update database

Aug 5th, 2009

u have to update the data table

 Help with Code Tags 
 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

 Help with Code Tags 
 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.

•

Join Date: Jul 2009

Posts: 5

Reputation: tdapower is an unknown quantity at this point

Solved Threads: 0

tdapower

Offline

Newbie Poster

Re: Update database

Aug 9th, 2009

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

•

Join Date: Jun 2009

Posts: 57

Reputation: emint is an unknown quantity at this point

Solved Threads: 4

emint

Offline

Junior Poster in Training

Re: Update database

Aug 9th, 2009

everything are seems fine just need to update dataset

 Help with Code Tags 
 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.

•

Join Date: May 2009

Posts: 11

Reputation: Vivek_1986 is an unknown quantity at this point

Solved Threads: 0

Vivek_1986 Vivek_1986 is offline

Offline

Newbie Poster

@ tdapower

#10

Aug 10th, 2009

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

Help with Code Tags

(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