[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 186
  • Last Modified:

why it not show data?

i have 2 forms here. i want the DBGrid in form2 show data based onthe StudentNumber from Text1 in form1. i have success doing this. THANKS to all who have helped me before!

but, my problem is the DBGrid only show the first time entering StudentNumber only.


for example:
i enter StudentNumber for the first time : AH970001
the DBGrid show all the AH970001 data.

but when i enter StudentNumber for the second time: AH 970031
the DBGrid still show the AH970001 data.


ooppss..
i put this coding in my Form1

Form2.Show vbModal
Form2.Text1.Text=Text1.Text

is there any wrong here?

could anybody teach me on how to settle this problem?

i appreciate any help!
thanks in advance.
Private Sub Form_Load()
   Dim MySQL As String
   Dim Log As String
   Dim db As Database
   
   Text1.Text = Form1.Text1.Text
 
    Set db = DBEngine(0).OpenDatabase("c:\WINDOWS\Desktop\Psm2\PSM2.mdb")

   MySQL = "SELECT * FROM QStudentSubject where StudentNumber='" & Text1.Text & "'"
   Data1.RecordSource = MySQL
   Data1.Refresh
   
   Log = "StudentNumber='" & Text1.Text & "'"
   
   If Not Data1.Recordset.NoMatch Then
       Text1.Text = Data1.Recordset![StudentNumber]
       Text2.Text = Data1.Recordset![StudentIC]
       
       With Data1.Recordset
           If Not Data1.Recordset.EOF Then                
               DBGrid1 = Data1.RecordSource  
           End If
       End With
   End If

End Sub

0
arnab79
Asked:
arnab79
1 Solution
 
daveherrmannCommented:
Try rebinding when you refresh
0
 
arnab79Author Commented:
i don't know how to rebind and the comment is so short.
0
 
daveherrmannCommented:
dbgrid1.rebind
dgbrid1.refresh

do that whenever you change the recordsource.  i might have them backwards (might be refresh before rebind)
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
costelloCommented:
Davehermann


you are relatively new to this site so I would ask you to please read the guidelines on comments vs answers at the bottom of this page and on http://www.experts-exchange.com/jsp/cmtyQuestAnswer.jsp 

It is not considered good practice to lock questions in this way, as this places these questions in the locked section and reduces the visibility of the question to other experts. It also tends to put pressure on the questioner to accept the proposed answer. In future, please do not post "answers" except in trivial questions which have one and only one answer such as what is 1+1. I know that is a bit simplistic but I am sure you get the idea.

Having said that I hope that you continue to contribute to this site and that your experience proves useful to many others in future.
I am also rejecting your answer, for above reasons.

arnab79,

This does not mean that thi comment is not valuable, it still can be accepted as an answer.

costello
Community Support Moderator @ Experts-Exchange
0
 
JackOfPHCommented:
this is what dave mean...
With Data1.Recordset
          If Not Data1.Recordset.EOF Then                
              DBGrid1 = Data1.RecordSource
              ***DBGrid1.bind
              ***DBgrid1.refresh
          End If
      End With
  End If
0
 
arnab79Author Commented:
thanks to both dave and costello for trying to help me! :)
i appreciate it very much!
i'll try both of your suggestion now!
but, can i ask again if i still got problem?
0
 
arnab79Author Commented:
oh, thanks to JackOfPH ! :)  :)

thanks for elaborating the suggestion for me!:)
i appreciate it very much!
0
 
arnab79Author Commented:
hi everybody :)

i've tried Dave's and Jack's suggestion.
it worked!!!!
i'm happy! thank you!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now