Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB
Dear all
My name is Sarfaraz.
I am developing a small project in vb6 and access.
My problem is like that I have a table called investigations which has investigations and rate and other table patients where i am storing patient name receipt no. investigations prescribed and rate.
Actually i want the rate to be automatically inserted into the corresponding field of patient table from the investigations table for the corresponding item.
All the other things are going quite well but i do not know how to do that.
My following code is running successfully. But now i want to insert rate also.
Please help
Thank you
______________________________________
 
Connection
sql = "patients"
Set rs = New ADODB.Recordset
rs.Open sql, Con, adOpenDynamic, adLockOptimistic
 Dim x As Long
 For x = 0 To List2.ListCount - 1
With rs
    .AddNew
        !Receipt_no = Text1.Text
        !OPD_MRD = Text2.Text
        !Patientname = Text3.Text
               
     !Investigations = List2.List(x)
 
       
        !Receipt_date = Label6.Caption
        !Receipt_time = Label7.Caption
        
    .Update
End With
    Next
    MsgBox "New student record successfully saved..", vbInformation, "Success"
Posted 28-Sep-12 3:25am
Edited 28-Sep-12 5:25am
v3

1 solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 OriginalGriff 365
1 Sergey Alexandrovich Kryukov 329
2 CPallini 270
3 Afzaal Ahmad Zeeshan 204
4 DamithSL 194
0 OriginalGriff 5,515
1 DamithSL 4,451
2 Maciej Los 3,902
3 Kornfeld Eliyahu Peter 3,480
4 Sergey Alexandrovich Kryukov 3,175


Advertise | Privacy | Mobile
Web04 | 2.8.141216.1 | Last Updated 29 Sep 2012
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100