| | |
URGENT!! Adding, updating and deleting records in VB.Net 2003. URGENT!!
Please support our VB.NET advertiser: Intel Parallel Studio Home
![]() |
•
•
Join Date: Apr 2008
Posts: 4
Reputation:
Solved Threads: 0
I am doing a project and i need to be able to add, record, search and delete customer bookings. I am using VB.Net 2003 and microsoft access 2003 and i need help on how to do this. Can anybody help me?? PLEASE?!?! Basically i need the information that is entered in VB.Net to be stored in an access database e.g. name, tel no, date, time, table no, etc and search for the customer as well. i hope that makes sense.
show the effort and many people will help you
Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *
So, Please do something before post your thread.
* PM Asking will be ignored *
•
•
Join Date: Apr 2008
Posts: 4
Reputation:
Solved Threads: 0
hi. sorry. erm iv got this so far (if it makes any sens) but i think it is totally wrong and i really duno where to go from here. iv tried a million books and got no help from them!!
Dim dbE As New DAO.DBEngine
Dim db As DAO.Database
Dim rs As DAO.Recordset
db = dbE.OpenDatabase(Trim(TextBox1.Text))
rs = db.OpenRecordset("UPDATE Bookings (Name, TelNo, Date, Time, How many people?, Deposit paid?, TableNo) VALUE ("")" + Trim(Txtname.Text) + "'")
Try
If (rs.Fields("Name").Value) = Trim(Txtname.Text) Then
Dim Name, TelNo, Date1, Time, Howmanypeople, Depositpaid, TableNo As String
Name = rs.Fields("Name").Value
TelNo = rs.Fields("TelNo").Value
Date1 = rs.Fields("Date").Value
Time = rs.Fields("Time").Value
Howmanypeople = rs.Fields("How many people?").Value
Depositpaid = rs.Fields("Deposit paid?").Value
TableNo = rs.Fields("TableNo").Value
End If
End Try
Dim dbE As New DAO.DBEngine
Dim db As DAO.Database
Dim rs As DAO.Recordset
db = dbE.OpenDatabase(Trim(TextBox1.Text))
rs = db.OpenRecordset("UPDATE Bookings (Name, TelNo, Date, Time, How many people?, Deposit paid?, TableNo) VALUE ("")" + Trim(Txtname.Text) + "'")
Try
If (rs.Fields("Name").Value) = Trim(Txtname.Text) Then
Dim Name, TelNo, Date1, Time, Howmanypeople, Depositpaid, TableNo As String
Name = rs.Fields("Name").Value
TelNo = rs.Fields("TelNo").Value
Date1 = rs.Fields("Date").Value
Time = rs.Fields("Time").Value
Howmanypeople = rs.Fields("How many people?").Value
Depositpaid = rs.Fields("Deposit paid?").Value
TableNo = rs.Fields("TableNo").Value
End If
End Try
Last edited by Lei24; Apr 15th, 2008 at 4:30 pm.
•
•
Join Date: Mar 2004
Posts: 16
Reputation:
Solved Threads: 0
Someone asked a similar question recently and I did this short video clip on how to do it with the free version of VB.Net
Cheers Tony
Cheers Tony
•
•
Join Date: Apr 2008
Posts: 4
Reputation:
Solved Threads: 0
•
•
•
•
Someone asked a similar question recently and I did this short video clip on how to do it with the free version of VB.Net
Cheers Tony
Thanks for that but I am doing my project in 2003. I watched it and tried but I am still lost! I forgot to mention that I am new to this as well!
•
•
Join Date: Apr 2008
Posts: 11
Reputation:
Solved Threads: 0
Hi
I had the same problem as you a few months ago. Try the webiste www.homeandlearn.co.uk
this goes through what yo need to do step by step
I had the same problem as you a few months ago. Try the webiste www.homeandlearn.co.uk
this goes through what yo need to do step by step
•
•
Join Date: Apr 2008
Posts: 4
Reputation:
Solved Threads: 0
•
•
•
•
Hi
I had the same problem as you a few months ago. Try the webiste www.homeandlearn.co.uk
this goes through what yo need to do step by step
Thanks. I'll take a look.
![]() |
Other Threads in the VB.NET Forum
- Previous Thread: E-Mail button
- Next Thread: No given for required parameters
| Thread Tools | Search this Thread |
"crystal .net .net2005 30minutes 2005 2008 access account arithmetic array assignment basic binary bing button buttons center check code combobox component connectionstring convert crystalreport data database databasesearch datagrid datagridview design dissertation dissertations dissertationthesis dosconsolevb.net dropdownlist excel file-dialog firewall folder ftp google hardcopy image images insert isnumericfuntioncall listview login math memory mobile ms navigate net networking opacity output passingparameters peertopeervideostreaming picturebox picturebox1 port print problemwithinstallation project reports" save savedialog searchbox serial soap sorting string table tcp temp text textbox timer toolbox trim update updown upload useraccounts usercontrol vb vb.net vb.netcode vb.netformclosing()eventpictureboxmessagebox vb.nettoolboxvisualbasic2008sidebar vb2008 vbnet view visual visualbasic visualbasic.net visualstudio web wpf






