Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 4238

Sep 20th, 2007

retrieving current record in database

Expand Post »

hello, i neeed help badly.my problem is i want to retrieve the record that has just been added.
let say:
step :load RESERVATION form->fill in details->click the save button->load RECEIPT form
as soon as i click the save button, i want the records to be displayed in RECEIPT form.
all this operation happens in a single click.but i dont know how to retrieve it!please help.here is my codings :
[code]
With Adodc1
.Refresh
.Recordset.AddNew

.Recordset.Fields("Cust_Contact") = Txt_Contact.Text
.Recordset.Fields("Fac_Type") = Fac_type
.Recordset.Fields("Reserv_Date") = Now()
.Recordset.Fields("Booking_Time") = time
.Recordset.Fields("Cust_Name") = Txt_Name.Text

.Recordset.Update

MsgBox "Records have been successfully saved!", vbOKOnly

End With
End If
End If
Unload Me

Adodc1.RecordSource = (current record that has just been added)//i don't know how!
Adodc1.Recordset.Requery
Adodc1.Refresh

Receipt.Lbl_Amount.Caption = amount

Receipt.Lbl_ReservNo = Adodc1.Recordset.Fields("Reserv_No").Value
Receipt.Lbl_Name.Caption = Adodc1.Recordset.Fields("Cust_Name").Value
Receipt.Lbl_DateOfBooking.Caption = Adodc1.Recordset.Fields("Reserv_Date").Value
Receipt.Lbl_FacType.Caption = Adodc1.Recordset.Fields("Fac_Type").Value
Receipt.Lbl_DateIssued.Caption = Now()
Receipt.Lbl_CurrentUser.Caption = current_user

Receipt.Show

End Sub

Similar Threads

How to Update a record in a database in PHP
Login and retrieve user data from database in ASP.NET
vb6 update record in the database in Visual Basic 4 / 5 / 6
Beginner: how to add new record into database??? in VB.NET
retrieving images from database in thumbnail form in PHP

nuBudDy

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Aug 2007

Permalink

Sep 21st, 2007

Re: retrieving current record in database

First of all, why do you have

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

unload me

in the middle of your sub? The program won't do the lines after that.
And now to your question, when you just added a record, then your recordset is pointing to that record so you can just do

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Receipt.Lbl_Amount.Caption = amount
 
Receipt.Lbl_ReservNo = Adodc1.Recordset.Fields("Reserv_No").Value
Receipt.Lbl_Name.Caption = Adodc1.Recordset.Fields("Cust_Name").Value
Receipt.Lbl_DateOfBooking.Caption = Adodc1.Recordset.Fields("Reserv_Date").Value
Receipt.Lbl_FacType.Caption = Adodc1.Recordset.Fields("Fac_Type").Value
Receipt.Lbl_DateIssued.Caption = Now()
Receipt.Lbl_CurrentUser.Caption = current_user
 
Receipt.Show
Receipt.Lbl_Amount.Caption = amount

Receipt.Lbl_ReservNo = Adodc1.Recordset.Fields("Reserv_No").Value
Receipt.Lbl_Name.Caption = Adodc1.Recordset.Fields("Cust_Name").Value
Receipt.Lbl_DateOfBooking.Caption = Adodc1.Recordset.Fields("Reserv_Date").Value
Receipt.Lbl_FacType.Caption = Adodc1.Recordset.Fields("Fac_Type").Value
Receipt.Lbl_DateIssued.Caption = Now()
Receipt.Lbl_CurrentUser.Caption = current_user

Receipt.Show

and you don't need

Adodc1.RecordSource = (current record that has just been added)//i don't know how!
Adodc1.Recordset.Requery
Adodc1.Refresh

Last edited by plusplus; Sep 21st, 2007 at 1:45 am.

plusplus

Reputation Points: 10

Solved Threads: 16

Posting Whiz in Training

Offline

207 posts
since Jul 2007

Permalink

Sep 21st, 2007

Re: retrieving current record in database

use the code in the attachment.
hope it will help you.

Attached Files

Code.zip (5.8 KB, 144 views)

choudhuryshouvi

Reputation Points: 30

Solved Threads: 49

Posting Pro

Offline

553 posts
since May 2007

Permalink

Sep 21st, 2007

Re: retrieving current record in database

plusplus, thank you for your effort to help.does it really point to the current record because it didn't seem to work.maybe there is an error in other parts of the codes..

n choudhuryshouvi,thank you very much for your help,it worked well!

nuBudDy

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Aug 2007

Permalink

Sep 21st, 2007

Re: retrieving current record in database

Did you get your answer or do you still need help

plusplus

Reputation Points: 10

Solved Threads: 16

Posting Whiz in Training

Offline

207 posts
since Jul 2007

Permalink

Sep 21st, 2007

Re: retrieving current record in database

another suggestion, inestead of getting a record from the database why dont you use the data from the textboxes or from the variables you have used to add? example:

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
     with Receipt
          .Lbl_Amount.Caption = amounttxt.text
          .Lbl_ReservNo = ReservNo.text
          .Lbl_Name.Caption = CustName.Text
          .Lbl_DateOfBooking.Caption = Now
          .Lbl_FacType.Caption = FacType.Text
          .Lbl_DateIssued.Caption = Now
          .Lbl_CurrentUser.Caption = current_user
          .Show
     End with
     with Receipt
          .Lbl_Amount.Caption = amounttxt.text
          .Lbl_ReservNo = ReservNo.text
          .Lbl_Name.Caption = CustName.Text
          .Lbl_DateOfBooking.Caption = Now
          .Lbl_FacType.Caption = FacType.Text
          .Lbl_DateIssued.Caption = Now
          .Lbl_CurrentUser.Caption = current_user
          .Show
     End with

Last edited by jireh; Sep 21st, 2007 at 4:49 am.

jireh

Reputation Points: 11

Solved Threads: 49

Posting Whiz

Offline

316 posts
since Jul 2007

Permalink

Sep 23rd, 2007

Re: retrieving current record in database

plusplus,i already found the answer.thank you very much 4 ur concern.

thanx again.

nuBudDy

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Aug 2007

Permalink

Sep 24th, 2007

Re: retrieving current record in database

If you got your answer then mark the thread solved

plusplus

Reputation Points: 10

Solved Threads: 16

Posting Whiz in Training

Offline

207 posts
since Jul 2007

Permalink

Nov 30th, 2007

Re: retrieving current record in database

nuBudDy post your answer here please i want the solution for the same problem but i am not able to ge it thank you

bapu435

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

9 posts
since Jul 2007

Permalink

Dec 22nd, 2007

Re: retrieving current record in database

bapu435, the answer is in the zipfile provided by choudryshouvi

nuBudDy

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

32 posts
since Aug 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

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 Visual Basic 4 / 5 / 6 Forum Timeline: What is Form in VB6

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: resizing toolbar

DaniWeb Message

Cancel Changes

User Name
Password