How to Add/Update/Delete Record using MS Access Database

can u make same program in vb6?

hi gud pm., can i ask? how can i run the program that ive download already?? i need ur reply now., thank you..

do you have simple code in finding record in the database?

I have been coding for several years and now using vb.net 2008. When I try to run your code I get an error on Object reference not set to an instance of an object,

newRow = dt.NewRow() Line 98 I set dt = new datatable because 99% of the time when I see this error it is because the the instance was not created as a new instance. Any Ideas? What version did you code this in ? Thanks Dwain

thankyou for the code

Hi! It's been a while since I coded something and that was VB6 then. Do you have time to share some codes/programs using VB2008 as I am using it now. I just need to refresh my knowledge. thank you. My email: yan(at)yanspeaks(dot)com
Thank you kabayan!

hi,
your source code is very userful as im making a project in vb.net2008 with access database.its really very appriciated.will u plz upload the coding of granting the permisiion of different user for accessing the software or data or it send on my id 'sandli28@rediffmail.com'

Thanx,
Regards,
Sandeep

hi,
Thanx for the replied.I want to ask that how the data is view through the list view.I mean like customer id shown in list view and when user click on the id,it shows the full detail of that customer in different fields that fields like cus id,name ,add.i saw ur list view project.but in this fields are also shown from database.i just want to show only data from database and not the fields name.thats field name,i put throgh the components like textboxes.labels and button.will u plz tell how its done,when user clicked on cust id in list view and records would be shown of that customer.

Thanx,
Regards,
Sandeep

Hi,
Follwing is the coding of save and retrive the image from ms access database in vb.net2008.but its through input box.I just want that user click on a account no.from combobox and image is displayed.

Imports System.Data.OleDb
Imports System.IO
 
Public Class Form7
Public ImageSlno As Integer
Public con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Documents and Settings\Pankaj Arora\My Documents\database.mdb") ' connection srting 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Insert_Image()
End Sub
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
OpenFileDialog1.Filter = "Bmp Files(*.bmp)|*.bmp|Gif Files(*.gif)|*.gif|Jpg Files(*.jpg)|*.jpg"
OpenFileDialog1.ShowDialog()
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
Catch
 
End Try
End Sub
Public Sub Insert_Image()
Try
Dim st As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim mbr As BinaryReader = New BinaryReader(st)
Dim buffer(st.Length) As Byte
mbr.Read(buffer, 0, CInt(st.Length))
st.Close()
con.Open()
Dim Str As String = "insert into imageTable(photo) values(?)"
Dim Cmd As New System.Data.OleDb.OleDbCommand(Str, con)
Cmd.Parameters.Add("@photo", System.Data.OleDb.OleDbType.Binary, buffer.Length).Value = buffer
Cmd.ExecuteNonQuery()
con.Close()
MsgBox("Image Saved Successfully")
Catch ex As Exception
con.Close()
MsgBox("Error In Insertphoto", MsgBoxStyle.Critical, "Error")
MsgBox(ex.ToString)
End Try
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
ImageSlno = InputBox("Insert Slno ", , "0")
 
Call LoadPhoto(ImageSlno)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Public Sub LoadPhoto(ByVal slno As Decimal)
' display image from the database
Try
Dim str As String = "SELECT photo FROM ImageTable WHERE slno = " & slno
con.Open()
Dim cmd As New OleDb.OleDbCommand(str, con)
Dim b() As Byte
b = cmd.ExecuteScalar()
con.Close()
If (b.Length > 0) Then
Dim stream As New MemoryStream(b, True)
stream.Write(b, 0, b.Length)
DrawToScale(New Bitmap(stream))
stream.Close()
End If
Catch ex As Exception
'MsgBox(ex.ToString)
End Try
End Sub
'Function to Create Instance For the Image From the Buffer
Private Sub DrawToScale(ByVal bmp As Image)
PictureBox1.Image = New Bitmap(bmp)
End Sub
 
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
End Sub
End Class

Plz anybody help me.its urgent.

Thanx,
Regards,
Sandeep

hi,
How to insert a data into two table by using acces database with vb.net

Thanx,
Regards,
Sandeep

Hi friend i already download your Code.
But i want to clear that can i able to access Msdatabase File from web server.
if possible please explain me

my id is lightininggroups@gmail.com

Gud day sir!

i want to seek help on how to change the datasource of a report in the choice of the user dynamically..

in short.. one report viewer, multiple rdlc files can be shown simultaneously.. hust a sample code..

hope for your kind help! more power and godbless!

tnx..
aguirre

i have two tables using acces database and i need to insert the same records in that two particular tables.The problem is that, "I can only save the records into one table and the other table is empty.".I hope you can help me with this particular problem, i'll apreciated it so much..thank you..

if its ok, heres my eadd: vash_jbv@yahoo.com

sir..gud am...can u teach me the hard coding connection of my project to ms access as my back end with out using any control...purely coding???...adding record in table updating retrieving and deleting...thx in advance...

hi
i am already design the code using vb.net 2005 for insert data in the table ,
but when i am again run that program then all the previous value of the table will delete and again newly entry value are store in table
my code:
Imports System.Data.OleDb

Public Class Form1
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\raghu1stdb.mdb")

'Dim da As OleDbDataAdapter
Dim da As New OleDbDataAdapter("select * from table1", con)
'Dim x As String = "select *from table1"
' da = New OleDbDataAdapter(x, con)
Dim ds As New DataSet, dt As New DataTable, dr As DataRow
Dim i As Integer
Dim bm As BindingManagerBase : Dim cb As OleDbCommandBuilder
Dim cm As OleDbCommand
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim x As String = "select *from table1 "
da = New OleDbDataAdapter
da.SelectCommand = New OleDbCommand(x, con)

da = New OleDbDataAdapter(x, con)
ds = New DataSet
da.Fill(ds, "name1")
dt = ds.Tables("name1")
dr = dt.NewRow
bm = Me.BindingContext(dt)
cb = New OleDbCommandBuilder(da)
''MessageBox.Show()
End Sub

Private Sub Bsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bsave.Click
dr = dt.NewRow
dr.Item("ID") = Txtid.Text
dr.Item("Name") = txtname.Text
dr.Item("Address") = txtadd.Text
da.Fill(ds, "name1")
dt = ds.Tables("name1")
dt.Rows.Add(dr)

dt.AcceptChanges()
da.Update(dt)
MessageBox.Show("datais update")
End Sub

End Class

so what i will do
plz send the code for save in db using vb.net
as soon as posible plz send me i need that
plz send in my mail id: raghuramsahu@gmail.com

hi,, i copied your code about how to add update delete,,, the one thats above,,,, after ive done everything already (including the module, forms, designs, everything) it shows an error "Error while trying to run your project. could not load file or assembly 'add,deletewithaccess' or one of its dependencies. the given assembly name or code was invalid. (exception from HRESULT:0x80131047)" by the way 'add,deletewithaccess' is the filename of the project i saved in... please help....

Nice Sample...
I got a challenge for you...

ListView Groups...
Group the list according to the Header Collumns that is being clicked.

hy i wanted to add images in the ms access 2003, but i forgot how the step is.could u please tell me how?

Plz help in creating database by code
my email id prvnkmr449@gmail.com
Praveen

i want 2 move data without using binding navigator in vb.net but i want to use buttons like first, previous, last & next. please help me!!!