Click here to Skip to main content
Rate this: bad
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
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
        !Receipt_no = Text1.Text
        !OPD_MRD = Text2.Text
        !Patientname = Text3.Text
     !Investigations = List2.List(x)
        !Receipt_date = Label6.Caption
        !Receipt_time = Label7.Caption
End With
    MsgBox "New student record successfully saved..", vbInformation, "Success"
Posted 28-Sep-12 3:25am
Edited 28-Sep-12 5:25am

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